To set validation for a text box in UserForm

**mortezataheri** · 2017/02/20

سلام دوستان
در یک فرم 2 textbox وجود داره
الف- txtPresenceHours
ب-txtProductionHours
چطور میشه برای تکست باکس تولید شرط یا اعتباری تعریف کرد که اگر کاربر اشتباهی ساعت تولید رو بیش از ساعت حضور وارد کرد قبول نکنه و مسیج باکس هشدار ظاهر شه
تشکر از دوستان

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**majid_mx4** · 2017/02/21

با سلام

لطفل فایل ضمیمه را بررسی نمایید.

خلاصه: کنترل و مقایسه ساعت های وارد شده در تکست باکس

توضیح : میتوانید ساعت را بصورت عدد چهار رقمی وارد کنید بطور اتوماتیک اصلاح میشود .

با کلید های Alt + F4 میتوانید کد ها را مشاهد نمایید.

پایدار باشید میر

**mortezataheri** · 2017/02/21

سلام دوست عزیز .
ضمن تشکر از لطف شما چند نکته وجود داره که از خدمتتون سئوال می پرسم
1 تو فرم من بیش از 20 تکست باکس هست که باید فرمت تایم داشته باشند ، ایا میشه بجای اعمال کد مورد نظر شما بر روی تک تک هر باکس، کدی داشت که هر باکسی رو خواستیم فرمت تایم داشته باشه درون اون کد ذکر کنیم؟

2- مقدار تایم در بعضی از باکسها بیش از 23:59 است من حالت

[h]:mm

رو انتخاب کردم اما جواب نداد.

3- با اعمال این کد

کد:

 If Not IsNumeric(Me.txtProductionHours.Value) Then
        MsgBox "The Production Hours box must contain a Number.", vbExclamation, "R & D Engineering Staff Amar1"
        Me.txtProductionHours.SetFocus
        Exit Sub
    End If

از خالی رها نشدن باکس مطمئن میشیم اما IsNumeric برای فرمت عدد هست نه تایم

سپاس