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

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

قام بنشر

السلام عليكم

 

هذه طريقة بسيطة بالكود لإخفاء واظهار اعمدة

فصلته هنا لتعم الفائدة

 

اولا تعمل كود رئيسي مثل هذا

Sub kh_ColumnHidden(ColumnAddres As String)
    Columns("C:W").EntireColumn.Hidden = True
    Columns(ColumnAddres).EntireColumn.Hidden = False
End Sub

حيث انه يقوم باخفاء جميع اعمدة  المواد

ويظهر النطاق الخاص بالمادة المشار اليه بالمتغير ColumnAddres

 

ثم تعمل اكواد لربطها بالازرة

تعين فيها اعمدة المادة التي تريد اظهارها

مثل هذا

Sub M()
    kh_ColumnHidden "C:E"
End Sub

المرفق 2003

اظهار واخفاء اعمدة.rar

 

G.png

  • Like 3
قام بنشر

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

الاستاذ الفاضل والعالم العلامة عبد الله باقشير جزاكم الله خيرا

دائما اعمالكم لها نكهة خاصة من حيث الابداع و الاتقان وبساطة التعامل معها

كود اكثر من رائع جعله الله في ميزان حسناتكم

زادكم الله علما وشرفا واعلى مقامكم في الدارين

تقبل فائق احترامي وتقديري

  • Like 1
قام بنشر

أستاذنا الكبير علاّمة الوطن العربي / عبد الله باقشير

 

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

 

بجد كود رائع جداً جداً . إبداع يا أستاذنا جزاء الله خيراً وزادك الله من علمه وفضله وجعله في ميزان حسناتك. لك كل التحية والتقدير.

قام بنشر (معدل)

اخينا الفاضل والحبيب ومعلمنا القدير الأستاذ // عبدالله باقشير 

دائما وابدا اعمالك فيها الجديد والمفيد باسلوب السهل اليسير

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

ومدخل للتطوير في مجال تطويع امكانيات الاكسيل والاستفادة منه 

وانتهز الفرصة لاتقدم لكم بالشكر والعرفان لما تعلمناه منكم .....  وصبركم علينا بدون كلل وملل

فلكم فضل علينا بعد فضل الله

ومن لا يشكر الناس لا يشكر الله 

بارك الله لكم وجزاكم خيرا

تقبلوا تحياتي واحترامي وتقديري

تم تعديل بواسطه ضاحي الغريب
قام بنشر

اخى عبدالله باقشير

اكوادكم رائعه سهله تصلح لتوجيهها فى اى اتجاه

اسال الله ان يبارك فيكم

تقبل تحياتى وشكرى

  • 3 weeks later...
قام بنشر (معدل)

آخي الفاضل وأستاذي /عبد الله باقشير 

لقد قمت بتنفيذ الكود مع ما يتناسب مع الشيت الذي صممته واشتغل تمام وأضفت المواد التي أريدها  والحمد لله كنت محتاج هذا الكود ..بارك الله فيك وجعلك سبباً للخير دائماً 

تم تعديل بواسطه عبد الحميد شقير
  • 4 weeks later...
  • 3 weeks 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