اذهب الي المحتوي
أوفيسنا

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


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

السلام عليكم

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

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

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

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

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

  • 2 months later...

السلام عليكم

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

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

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

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

 

تم تعديل بواسطه morestudy
رابط هذا التعليق
شارك

  • 1 year later...

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