كود لاخفاء textbox اذا لم يكن في label نص

[M.NHAKAMI]

مساء النور 

عندي label وtextbox اريد كود بمجرد ان يكون الشيت اكتف يختفي textbox اذا كان label لا يوجد به نص 

انا استخدمت الكود

 If label1. Caption= "" then 
Textbox1. Visible = false 
Else
Textbox1. Visible = true 
 End if 

اريد الكود ان يكون في label لكن ما اعلم ايش الحدث بمجرد تكون الصفحه نشطه يتنفذ الكود

 

برنامج_تحكيم_تجربه.xlsm

[حسين مامون]

هذه تجربة ولكن ليس في ملفك 

ملفك لايريد ان يفتح عندي

 

Book1.xlsm

او ضع هذا الكود في حدث الفورم

Private Sub UserForm_Initialize()
If Label1.Caption = "" Then
TextBox1.Visible = False
Else
TextBox1.Visible = True
End If

End Sub

 

[حسين مامون]

وهذا في حدث الشيت ان كان اليبل والتيكست بوكس على صفحة العمل

Private Sub Worksheet_Activate()
If Label1.Caption = "" Then
TextBox1.Visible = False
Else
TextBox1.Visible = True
End If

End Sub

 

تم تعديل نوفمبر 5, 2019 بواسطه حسين مامون

[M.NHAKAMI]

اخ حسن هذا المطلوب كنت ابحث عن مكان الكود والان فهمت