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

السلام عليكم ورحمة الله وبركاته يوجد لدي مشكلة في برمجة 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