احتاج كود زر اخفاء اعمدة

[mostafa_27]

 

السلام عليكم

وجدت كود اخفاء اعمدة لكن متجاورة 

H:I

ابحث عن كود يخفى اكثر من عمود و غير متجاورين

او بمعنى اصح ما هى الفاصله التى اضعها 

بدلا من : لاخفاء اكثر من عمود و غير متجاورين

 

 

Private Sub CommandButton1_Click()
    CommandButton1.Caption = IIf(CommandButton1.Caption = "Hide", "Show", "Hide")
    Columns("H:I").Hidden = Not Columns("H:I").Hidden
End Sub

 

 

 

 

 

[سليم حاصبيا]

الكود

Sub hide_col()
Range("B:C,F:G,J:J").EntireColumn.Hidden = True
End Sub

 

[mostafa_27]

شاكر لك اخى

لكن للاسف سليم ما يشتغل الكود

اريد زر امر اضغط عليه يخفى  و اضغط مره تانيه يظهروا

 

 

[سيد الأكرت]

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / mostafa_27

بارك الله فيك

بعد اذن اخي الاستاذ الحبيب /  سليم حاصبيا  .. جزاه الله خيرا

وعلي حسب فهمي لطلبك وباستخدام الكود المقدم من الاستاذ / سليم .. يكون الكود بالشكل التالي

Private Sub CommandButton1_Click()
    CommandButton1.Caption = IIf(CommandButton1.Caption = "Hide", "Show", "Hide")
    If CommandButton1.Caption = "Hide" Then
    Range("H:I,K:K,N:N").EntireColumn.Hidden = True
Else
    If CommandButton1.Caption = "Show" Then
    Range("H:I,K:K,N:N").EntireColumn.Hidden = False

 End If
 End If

End Sub

واليك ملف مرفق مطبق به الكود

تقبل خالص تحياتي

امرين مختلفين في زر وراحد - اظهار & اخفاء.rar

 

[محمود الحربي]

واذا حاب الغي صف وليس عامود

[mostafa_27]

شكرا  جدا  اخى   حمادة عمر

 

 

[حمادة عمر]

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

تقبل خالص تحياتي

 

[mostafa_27]

الاستاذ   سيد الأكرت

 

الاستاذ الفاضل الكريم  سليم حاصبيا

ساعدنى كثيرا جدا  و له فضل عليا    و انا اعتذر ، فكان ذالك منى بدون قصد طبعا

و انا ما قصدت الا انى اعتبره اخ

 

اكرر اعتذارى 

 

و اسف انى تاخرت لانى الحين فقط رايت التعليق