پرسش ثبت ساعت

[میثم مقدم نیا]

سلام
آیا امکانش هست که تو یوزرفرم داخل تکس باکس با محدود کردن کارکتر برای ثبت ساعت اقدام کرد؛ به طوری که با وارد کردن دو رقم ساعت به طور خود کار علامت( : ) وارده بشه و بعد دو رقم دقیقه را وارد کنیم؟

[حسام بحرانی]

سلام
آیا امکانش هست که تو یوزرفرم داخل تکس باکس با محدود کردن کارکتر برای ثبت ساعت اقدام کرد؛ به طوری که با وارد کردن دو رقم ساعت به طور خود کار علامت( : ) وارده بشه و بعد دو رقم دقیقه را وارد کنیم؟

سلام
منظورتون اینه که این رویداد در تکست باکس اعمال بشه و یا اینکه در سلول حاصل از عدد وارد شده در تکست باکس، این تغییرات انجام بشه؟!
در هرصورت امکان پاسخگویی هست.
موفق باشید.

[میثم مقدم نیا]

سلام
منظورتون اینه که این رویداد در تکست باکس اعمال بشه و یا اینکه در سلول حاصل از عدد وارد شده در تکست باکس، این تغییرات انجام بشه؟!
در هرصورت امکان پاسخگویی هست.
موفق باشید.

من میخوام توی تکس باکس اعمال بشه بعد از زدن کلید ثبت در سل مربوت ذخیره بشه
ممنون میشم اگه با یک نمونه برام توضیح بدهید

[حسام بحرانی]

من میخوام توی تکست باکس اعمال بشه بعد از زدن کلید ثبت در سل مربوت ذخیره بشه
ممنون میشم اگه با یک نمونه برام توضیح بدهید

به شما پیشنهاد می کنم که فرمت سل ورود اطلاعات در سلول های اکسل را از General به فرمت سل زیر تغییر بدید:

##":"## 

با این کار پس از درج چهار عدد ساعت در تکست باکس، بطور اتومات اعداد شما جایگزین ساعت خواهند شد.
موفق باشید.

[میثم مقدم نیا]

به شما پیشنهاد می کنم که فرمت سل ورود اطلاعات در سلول های اکسل را از General به فرمت سل زیر تغییر بدید:

##":"## 

با این کار پس از درج چهار عدد ساعت در تکست باکس، بطور اتومات اعداد شما جایگزین ساعت خواهند شد.
موفق باشید.

ممنون از بابات راهنمایتون
تو خود تکس باکس این امکان وجود نداره
مثلا چطور تو MaxLength مشخص میکنم ۴ کارکتر بیشتر تایپ نشده
امکانش نیست تعریف کنیم وسط ساعت دقیقه دونقطه بزاره

[حسام بحرانی]

ممنون از بابات راهنمایتون
تو خود تکس باکس این امکان وجود نداره
مثلا چطور تو MaxLength مشخص میکنم ۴ کارکتر بیشتر تایپ نشده
امکانش نیست تعریف کنیم وسط ساعت دقیقه دونقطه بزاره

در اکسل این امکان هم وجود داره...

[میثم مقدم نیا]

در اکسل این امکان هم وجود داره...

این کار چطوری انجام میشه

[حسام بحرانی]

این کار چطوری انجام میشه

سلام
از کدی شبیه این استفاده کنید :

Private Sub TextBox1_Change()
Dim i, h
h = 0
For i = 1 To 4
If Mid(TextBox1.Text, i, 1) = ":" Then
h = h + 1
End If
Next

If h < 1 Then
    If Len(TextBox1.Text) = 3 And Mid(TextBox1.Text, 4, 1) <> ":" Then
        TextBox1.Text = Left(TextBox1.Text, 2) & ":" & Mid(TextBox1.Text, 3, 2)
    End If
End If
End Sub 

[میثم مقدم نیا]

سلام
از کدی شبیه این استفاده کنید :

Private Sub TextBox1_Change()
Dim i, h
h = 0
For i = 1 To 4
If Mid(TextBox1.Text, i, 1) = ":" Then
h = h + 1
End If
Next

If h < 1 Then
    If Len(TextBox1.Text) = 3 And Mid(TextBox1.Text, 4, 1) <> ":" Then
        TextBox1.Text = Left(TextBox1.Text, 2) & ":" & Mid(TextBox1.Text, 3, 2)
    End If
End If
End Sub 

عالی بود استاد فقط یه چیز دیگه توی این کد چطور تایین کنم که کار بر از ۲۴ ساعت و ۵۹ دقیقه بیشتر تایپ نکنه یعنی پیغام خطا بده