بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
الاكسل | كيفية انتفال المؤشر اوتوماتيكيا عند كتابة التاريخ فى التكست بوكس Format Date In Textbox Excel Vba
او بمعنى اوضح عند كتابة اليوم يتم انتقال الؤشر اوتوماتيكيا الى خانة الشهر ومن ثم الى خانة السنة بطريقة تلقائية
من هنا فكرنا فى حل
بداية التفكير المنطقى فى الحل
1- ايجاد دالة تقوم بعد السلسلة النصية المدخلة فى التكست بوكس TextBox وهذا سيكون من خلال الدالة LEN
Len(Me.TextBox1.Value)
2- نقوم بعمل شرط للعد : بمعنى اذا كان طول السلسة النصية يساوى 2 يقوم بعمل "/"
If Len(Me.TextBox1.Value) = 2 Then Me.TextBox1.Value =
Left(Me.TextBox1.Value, 2) & "/"
وذلك من خلال عد السلسلة النصية اذا كانت تساوى 5 يقوم بادخال الشهر ومن ثم ينتقل الى خانة السنة
If
Len(Me.TextBox1.Value) = 5 Then Me.TextBox1.Value = Left(Me.TextBox1.Value, 2)
& Right(Me.TextBox1, 3) & "/"
وبهذا نكون قد ادخلنا التاريخ اوتوماتيكيا فى التكست بوكس