فوزى فوزى قام بنشر فبراير 7, 2020 مشاركة قام بنشر فبراير 7, 2020 أولا الشكر موصول الى الأستاذ حسين مامون على مساعدتى في هذا الشيت بعد اذنكم في نقطة ثانية اريد إخفاء الايقونات الثلاثة وعند الاختيار من القائمة المنسدلة مثلا بحث بالاسم يظهر لى الايقونة المكتوب عليها بحث بالاسم بجانب القائمة المنسدلة هكذا ويكون الايقونات الأخرى مخفية لان هذه الايقونات ستكون مرتبطة باكواد متمنين لكم التوفيق والعون من الله اخفاء واظهار الايقونات بناء على الاختيار من القائمة المنسدلة.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر فبراير 7, 2020 أفضل إجابة مشاركة قام بنشر فبراير 7, 2020 السلام عليكم ورحمة الله ضع الكود الاول فى موديول عادى 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 3 1 رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر فبراير 8, 2020 مشاركة قام بنشر فبراير 8, 2020 السلام عليكم ورحمة الله اخى الكريم هذا ماحدث معى بالضبط و البحث اكتشفت ان الحرف الاول المكتوب على الشكل هو حرف الياء و ليس حرف الباء يعنى مكتوبة "يحث" و ليس "بحث" لذا ارجو منك اعادة كتابة النص على كل شكل من الاشكال الثلاثة مرة اخرى بصورة صحيحة حتى يعمل معك بصورة طيبة ياريت كوبى بيست حتى تضمن دقة كتابة النص و الله الموفق و المستعان 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر فبراير 8, 2020 مشاركة قام بنشر فبراير 8, 2020 أحسنت استاذ ابراهيم الحداد فأبدعت كود ممتاز بارك الله فيك وجزاك الله خير الثواب 1 رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر فبراير 8, 2020 مشاركة قام بنشر فبراير 8, 2020 السلام عليكم و رحمة الله احبتى فى الله اخجلتم تواضعى بردودكم ودعاؤكم لى جعلنى الله دائما عند حسن ظنكم 2 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر فبراير 8, 2020 الكاتب مشاركة قام بنشر فبراير 8, 2020 استاذ ابراهيم عظيم بعملك متواضع بردودك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.