اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

الردود الموصى بها

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

اخفاء واظهار الايقونات بناء على الاختيار من القائمة المنسدلة.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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information