اخفاء واظهار الاعمدة بشرط

[ابوصلاح]

السلام عليكم

في المرفق التالي كود اظهار واخفاء الاعمدة بحسبب الخلية a1

وهو كود للاستاذ سليم حاصبيا اريد اظهار الاسم بحسب الخلية المذكور مع اخفاء الاعمدة الاخري

طبعا ان طبقت الكود لن يظهر عمود واحد والمطلوب ثلاث اعمدة

اشكركم وباقي الشرح بالمرفق

اخفاء واظهار بحسب عدد معين.rar

[الشهابي]

أخي العزيز الأستاذ / أبو صلاح 

الشكر موصول لأستاذنا الكبير سليم حاصبيا حفظه الله أمين 

جرب التعديل التالي في الكود إن شاء الله يحقق المطلوب

تحياتي لكم ولأستاذنا سليم حاصبيا

Sub اخفاء()
Application.ScreenUpdating = False
    Range("c1:bd1").EntireColumn.Hidden = True
    My_Match = Application.Match(Range("a1"), Range("c1:bd1"), 0) + 2
    Cells(3, My_Match).Resize(1, 3).EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub

اخفاء واظهار بحسب عدد معين.rar

تم تعديل أغسطس 7, 2016 بواسطه الشهابي

[ابوصلاح]

الاستاذ الشهابي بارك الله فيك 

التعديل ادي الغرض شكرا لك

[ليلى الهلالي]

السلام عليكم

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

فمثلاً كيف تم عمل القائمة المنسدلة برغم عدم وجود نطاق للأسماء أو  بأي طريقة أعرفها عن القائمة المنسدلة؟ وكيف تم الربط بين القائمة المنسدلة والكود؟ وهل من الممكن تطبيقه على فورم بدلاً من روقة العمل نفسها؟

أعذر لي جهلي في الفيجوال بيسك. فمنكم نتعلم ونستفيد.

ولكم جزيل الشكر ووفقكم الله لما يرضيه وجعل سائر عملكم في ميزان حسناتكم.

 

تم تعديل أكتوبر 17, 2016 بواسطه morestudy

[ابوانس2013]

عمل رائع