إخفاء واظهار الايقونات بناء على الاختيار من القائمة المنسدلة

[فوزى فوزى]

أولا الشكر موصول الى الأستاذ حسين مامون على مساعدتى في هذا الشيت بعد اذنكم في نقطة ثانية اريد إخفاء الايقونات الثلاثة وعند الاختيار من القائمة المنسدلة مثلا بحث بالاسم يظهر لى الايقونة المكتوب عليها بحث بالاسم بجانب القائمة المنسدلة  هكذا ويكون الايقونات الأخرى مخفية لان هذه الايقونات ستكون مرتبطة باكواد متمنين لكم التوفيق والعون من الله

اخفاء واظهار الايقونات بناء على الاختيار من القائمة المنسدلة.xlsm

[ابراهيم الحداد]

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

ضع الكود الاول فى موديول عادى

Sub test()
Dim sp As Shape
Dim SN As String, SR As String
SR = Sheet2.Range("B2").Text
For Each sp In Sheet2.Shapes
If sp.AutoShapeType = msoShapeHeart Then
SN = sp.TextFrame.Characters.Text
sp.Visible = False
If SN Like "*" & SR & "*" Then
sp.Visible = True
Else
sp.Visible = False
End If
End If
'Exit For
Next
End Sub

وضع الكود الاخر فى حدث الورقة 2

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$B$2" Then Exit Sub
 Call test
End Sub

 

[ابراهيم الحداد]

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

اخى الكريم هذا ماحدث معى بالضبط و البحث اكتشفت ان الحرف الاول المكتوب على الشكل

هو حرف الياء و ليس حرف الباء يعنى مكتوبة  "يحث" و ليس "بحث" لذا ارجو منك اعادة كتابة

النص على كل شكل من الاشكال الثلاثة مرة اخرى بصورة صحيحة حتى يعمل معك بصورة طيبة

ياريت كوبى بيست حتى تضمن دقة كتابة النص

و الله الموفق و المستعان

[Ali Mohamed Ali]

أحسنت استاذ ابراهيم الحداد

فأبدعت  كود ممتاز بارك الله فيك وجزاك الله خير الثواب

[ابراهيم الحداد]

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

احبتى فى الله اخجلتم تواضعى بردودكم ودعاؤكم لى 

جعلنى الله دائما عند حسن ظنكم

[فوزى فوزى]

استاذ ابراهيم عظيم بعملك متواضع بردودك