ساخت یوزفرم ورود ساعت کارکرد

[iranweld]

برای تایپ عدد ساعت و درج ":" بصورت خودکار کدهای ذیل را به ماکرو اضافه کنید

Private Sub TextBox2_Change()
If Len(TextBox2.Value) = 4 And IsNumeric(TextBox2.Value) Then
TextBox2.Value = Left(TextBox2.Value, 2) & ":" & Right(TextBox2.Value, 2)
End If
End Sub

Private Sub TextBox3_Change()
If Len(TextBox3.Value) = 4 And IsNumeric(TextBox3.Value) Then
TextBox3.Value = Left(TextBox3.Value, 2) & ":" & Right(TextBox3.Value, 2)
End If
End Sub 

[lhbb67]

خیلی مفید بود فقط من پست قبلی(پاسخ شماره 10) رو متوجه نشدم الان من دسترسی به فایل اصلی ندارم من تغییراتم رو اعمال میکنم فایل اصلی رو قرار میدم لطفا اونجا بهم کمک کنید
و البته من از پاسخ شماره 11 شما خیلی چیز یاد گرفتم وقعا ممنونم ازتون

[lhbb67]

دوستان این فایلیه که ساختم لطفا بررسی بفرمایید البته ردپای دوستان هم توش هست

[lhbb67]

از اساتید کسی می تونه کد های دکمه تعطیلات رو اصلاح کنه فکر میکنم خیلی الکی زیاد هستن من جواب صحیح رو میگیرم ازش ولی حس میکنم لقمه رو دور سرم چرخوندم

[iranweld]

با سلام

در هنگام ثبت تاریخ ماهانه بصورت اتوماتیک روزهای جمعه و تعطیل در ستونهای مجاور درج میگردد(روزهای جمعه اتوماتیک شناسایی شده و تعطیلات رسمی از شیت تعطیلات فراخوانی میگردد)