تغير الوقت من ١٢:٠٠ الي ٠:٠٥ في textbox في vba

[max-7]

السلام عليكم ورحمة الله وبركاته

يوجد لدي مشكلة في برمجة vba excel وهي:

عندما اقوم بإدخال الوقت في textbox في form يتم تغير الوقت بصورة آليه

فعندما اقوم بإدخال الوقت 12:00 يتم تغير الوقت الي 0:05

اتمنى اجد لديكم الحل المناسب للتخلص من هذه المشكلة

هذا كود vba

Private Sub TextBox1_Change()
Worksheets("Sheet1").Range("A1") = TextBox1.Value
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = Range("A1")
Me.TextBox1.Value = Format(Me.TextBox1, "hh:mm")
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = Range("A1")
Me.TextBox1.Value = Format(Me.TextBox1, "hh:mm")
End Sub

وملف الاكسل بالمرفقات ،،،

TextBox.zip

[ابو عبدالبارى]

الأخ العزيزmax-7

جرب المرفق التالى

abo_abary_TextBox.rar

[max-7]

مشكور آخي العزيز

لكن للاسف لا تزال المشكلة موجودة

حيث انني اريد الاحتفاظ بقيمة textbox  عندما افتح الفوم ويشترط لذلك تفعيل كل من 

Private Sub UserForm_Initialize()
TextBox1.Value = Range("A1")
Me.TextBox1.Value = Format(Me.TextBox1, "hh:mm")
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = Range("A1")
Me.TextBox1.Value = Format(Me.TextBox1, "hh:mm")
End Sub