طلب عمل زرار لاخفاء اعمدة

[abuhoba]

الرجاء كيفية عمل زرار لاخفاء واظهار عمود الرقم السري في شيت ؟

وشكرا

[أبو حنــــين]

للاخفاء نستعمل

Columns("E:E").EntireColumn.Hidden = True

و للاظهار نستعمل

Columns("E:E").EntireColumn.Hidden = False

على اعتبار ان العمود المعني هو E

[محمود_الشريف]

أخى فى الله

الأستاذ القدير / أبو حنين

بارك الله فيك

وجزاكم رب العالمين عنا خيرا

وتقبلوا منى وافر الإحترام والتقدير

[abuhoba]

جزاك الله كل خير الاخ ابو حنين

لكن ماذا عن طريقة عمل زر بمجرد الضغط يخفي العمود وعند الضغط يظهره

وشكرا

[أبو حنــــين]

***********************************************

جزاك الله خيرا اخي  :  محمود الشريف على المرور

***********************************************

 

بالنسبة للسؤال الأخ

Private Sub CommandButton1_Click()

With Columns("E:E").EntireColumn
If .Hidden = False Then .Hidden = True Else .Hidden = False
End With

End Sub

[رجب جاويش]

أخى الحبيب / أبو حنين

تسلم ايديك

ولاثراء الموضوع

Private Sub CommandButton1_Click()
With Columns("E:E")
 .Hidden = Not .Hidden
End With
End Sub

[أبو حنــــين]

اخي الحبيب : / رجب

جزاك الله خيرا على المختصر المفيد

تقبل تحياتي

[محمد ابو البـراء]

استاذي الفاضل / أبو حنين

استاذي الحبيب / رجب جاويش

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

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

تم تعديل يناير 18, 2014 بواسطه محمد ابو البـراء