[حل شده] ساعت در TextBox

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

سلام
من با کد زیر قالب ساعت را در TextBoxوارد میکنم

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 

تا اینجا هیچ مشکلی نیست اطلاعات به درستی ثبت میشوند
مشکل من اینجاست وقتی اطلاعات را برای ویرایش فراخوانی میکنم ساعت ها در TextBox درست نمایش داده نمیشود.

[Ali Parsaei]

سلام،
در يوزر فرم 2 براي دستور: TextBox1_Change بايد براي تکست بکس 3 به جاي TextBox3.Text = c.Offset(0, 2).Value بنويسيد: TextBox3.Text = c.Offset(0, 2).Text (براي تکست بکس 4 هم به همين صورت) وقتي value را فراخوان مي کنيد معادل عددي تاريخ را به شما مي دهد ولي وقتي text مي نويسيد دقيقا" همان چيزي که در سل نوشته شده با همان فرمت برايتان load مي شود.

Private Sub TextBox1_Change()
'Sheets(xx)
    xx = ActiveSheet.Name
            TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        Dim c As Range
For Each c In Sheets(xx).Range("a2:a100")
    If TextBox1.Text = c Then
        TextBox2.Text = c.Offset(0, 1).Value
        TextBox3.Text = c.Offset(0, 2).Text
        TextBox4.Text = c.Offset(0, 3).Text
        TextBox5.Text = c.Offset(0, 4).Value
     End If
 Nextc
End Sub 

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

سلام،
در يوزر فرم 2 براي دستور: TextBox1_Change بايد براي تکست بکس 3 به جاي TextBox3.Text = c.Offset(0, 2).Value بنويسيد: TextBox3.Text = c.Offset(0, 2).Text (براي تکست بکس 4 هم به همين صورت) وقتي value را فراخوان مي کنيد معادل عددي تاريخ را به شما مي دهد ولي وقتي text مي نويسيد دقيقا" همان چيزي که در سل نوشته شده با همان فرمت برايتان load مي شود.

Private Sub TextBox1_Change()
'Sheets(xx)
    xx = ActiveSheet.Name
            TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        Dim c As Range
For Each c In Sheets(xx).Range("a2:a100")
    If TextBox1.Text = c Then
        TextBox2.Text = c.Offset(0, 1).Value
        TextBox3.Text = c.Offset(0, 2).Text
        TextBox4.Text = c.Offset(0, 3).Text
        TextBox5.Text = c.Offset(0, 4).Value
     End If
 Nextc
End Sub 

ممنون از شما استاد ارجمند آقای پارسایی