إخفاء الأعمدة

[thegenius33]

ممكن كود اخفاء الأعمدة بحيث يتم التحكم في اظهار أو اخفاء العمود بزر

ياريت يكون فية شرح لأننا مبتدئين لسة وخبرتنا في الأكواد وتسجيله وتشغيلها بسيطة

ولكم جزيل الشكر

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Public Sub A_Hid()

Dim C_Hid As Range

On Error Resume Next

Application.DisplayAlerts = False

Set C_Hid = Application.InputBox(Prompt:="اختار العمود المراد اخفاءه ", Title:="تحديد عمود", Type:=8)

On Error GoTo 0

If C_Hid Is Nothing Then

Exit Sub

Else

Mg = MsgBox("للإخفاء نعم وللإظهار لا", vbYesNo, "تنبية !!!")

If Mg = vbYes Then

C_Hid.EntireColumn.Hidden = True

Else

C_Hid.EntireColumn.Hidden = False

End If

End If

Application.DisplayAlerts = True

End Sub

تم تعديل ديسمبر 13, 2012 بواسطه عباد

[يوسف عطا]

الله ينور عليك أخى عباد

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

بعد إذن أخي الحبيب أبو نصار

هذا الكود يقوم بإخفاء العمود الذي نضغط عليه مرتين متتاليتين

مثلا لاخفاء العمود D نقف عند أي خلية في العمود D و نضغط مرتين متتاليتين و هكذا

و لإظهار الأعمدة نضغط في اي خلية في العمود A

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Application.ScreenUpdating = False

    Cancel = True

	    If Target.Column > 1 Then

	    ActiveCell.Columns.EntireColumn.Hidden = True

	    End If

	    If Target.Column = 1 Then

	    For r = 1 To Columns.Count

	    Columns(r).EntireColumn.Hidden = False

	    Next

	    End If

Application.ScreenUpdating = True

End Sub

[ريان أحمد]

السلام عليكم

أستاذي

أبو حنين

هل بلإمكان أن يخفي الأعمدة بواسطة إختيار كما في المرفق أو طريقة تشبهها

صص.rar

[رجب جاويش]

بعد اذن أخى الحبيب / أبو حنين

أخى ريان أحمد

هذه هى الطريقة التى تريدها فى اخفاء واظهار الأعمدة

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

[ريان أحمد]

أستاذي

رجب جاويش

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

[أبو محمد عباس]

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

الاستاذ الفاضل والاخ الحبيب رجب المحترم عمل اكثر من رائع جزاك الله خيرا غيرت الخيارات وجعلتها جميعا في العمود A على التوالي وزدت العدد حسب حاجتي ونجح معي التغيير والحمد الله والشكر جعله الله في ميزان حسناتك

والشكر موصول للاستاذ ابو نصار جزاه الله خيرا وكذلك للاستاذ والاخ الحبيب ابوحنين جزاه الله خيرا ولجميع الاخوة الاعزاء

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

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

[رجب جاويش]

أخى الفاضل / ريان أحمد

لا شكر على واجب

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

[رجب جاويش]

أخى الحبيب / عباس السماوي

جزاك الله كل خير على هذه الكلمات الطيبة