عدم قبول إدخال بيانات لخلية إكسيل ما عدا إرتباط تشعبي

[deebsagheer]

الإخوة الأفاضل

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

المطلوب أولا:

من قائمة التحقق من صحة البيانات أريد عدم قبول إدخال أية بيانات في الخلية و تقبل فقط إدراج إرتباط تشعبي.

ثانيا:

في مشاركة سابقه استطاع الزميل الأخ أحمد عبد الناصر أن يساعدني بهذا الكود بعد اضافه بسيطه مني علي الكود

 

If TextBox18.Text = "" Then

MsgBox ("لا توجد صوره")

Unload Me

Else:

 

For Each photo In Sheets("البيانات").Hyperlinks

If photo.TextToDisplay = TextBox18.Text Then

photo.Follow

Exit For

End If

Next

End If

و الكود يعمل بشكل جيد إلا أني أريد أن أضيف شرط على جملة الشرط الاولي و هو أن محتوي TextBox18.Text اذا كان فارغا أو نص عادي يخرج من الفورم و إذا كان ارتباط تشعبي يكمل الكود.

أرجو أن يكون طلبي واضح و لكم الشكر مقدما.

 

 

ارتباط تشعبي متغير في نموذج+-.rar