بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من سلسلة اكواد اكسل VBA
كيفية اظهار او اخفاء Textbox بناء على محتوى Textbox اخر
ورد الينا سؤال من احد المتابعين عبر صفحة القناةيسال فية
لو سمحت ممكن تساعدني انا عامل يوزر فورم وعايذ فيه خمس
اعمدة وخمس صفوف بس بشرط اذا اكتملت البيانات في الصف الاول يظهر الصف الثاني واذا
اكتمل الثاني يظهر الثالث حتي يصل الي الخامس عندها يعطي رساله ويقول يجب الترحيل
او الحفظ ارجو المساعدة
فقمنا بفتح ملف اكسل جديد وعمل يوزرفورم وادرجنا علية عدد 5 تكست بوكس وغيرنا الخاصية Visible الى False باستثناء التكست بوكس رقم 1 حتى يتم اخفاء الاربعة الباقيين واظهارهم عند ادخال البيانات فة التكست بوكس الذى يسبقهم
وقمنا بكتابة هذا الكود فى كل التكست بوكس.
Private Sub
TextBox3_Change()
If Me.TextBox3.Value
<> "" Then
Me.TextBox4.Visible =
True
Else
Me.TextBox4.Visible =
False
End If
End Sub
Private Sub
TextBox4_Change()
If Me.TextBox4.Value
<> "" Then
Me.TextBox5.Visible =
True
Else
Me.TextBox5.Visible =
False
End If
End Sub
وهكذا حتى وصلنا الى التكست بوكس الاخير وكتبا رسالة هل تريد الترحيل ام لا