كود لاظهار اعمده

[ناصر سعيد]

اخواني في الله

هذا كود موجود بالملف لاظهار اعمده ولا ادري لم لايعمل ؟

جزاكم الله خيرا .. اريد تضبيطه

Sub kh_ColumnHidden(ColumnAddres As String)
    Columns("K:IZ").EntireColumn.Hidden = True
    Columns(ColumnAddres).EntireColumn.Hidden = False
End Sub
'======================
Sub رصد_تحريري_تـــــرم2()
 Sheets("Sheet1").Select
kh_ColumnHidden "K:P"
End Sub

 

كود لاظهار اعمده محدده.rar

[ياسر خليل أبو البراء]

السلام عليكم

الكود يعمل بشكل جيد حيث يقوم الكود أولاً بإخفاء كل الأعمدة K:IZ ثم بعد ذلك يظهر الأعمدة من K:P ...

ماذا يحدث معك بالضبط أو ما المشكلة التي تصادفك؟

إذا كنت من مستخدمي أوفيس 2003 (أمتنع عن الاستمرار في المشاركة في الموضوع حيث أنني لا أمتلك نسخة أوفيس 2003)

[ناصر سعيد]

جزاك الله كل خير استاذ ياسر

Sub kh_ColumnHidden(ColumnAddres As String)

'هذه الأكواد الثلاثة التالية تعمل على تسريع تنفيذ الأوامر
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
      Columns("D:XFD").EntireColumn.Hidden = True
      Columns(ColumnAddres).EntireColumn.Hidden = False
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
'======================
Sub رصد_أعمال_ترم1()
'هذه الأكواد الثلاثة التالية تعمل على تسريع تنفيذ الأوامر
 Sheets("رصد الدرجات  ").Select
kh_ColumnHidden "U:AD"
End Sub

تمام .. حفظكم الله

=====================

 

كود لاظهار اعمده محددة 1.rar

الاستاذ ياسر ارجو تمكين الزر رصد على سري1 ورصد على الجلوس

==========

سري 1 معناها

معناها ظهور نفس الاعمده المختاره بالكود + المسلسل وسري1

اما رصد على الجلوس

معناها ظهور نفس الاعمده المختاره بالكود + المسلسل والاسم ورقم الجلوس

[ناصر سعيد]

Sub تحريري()
kh_ColumnHidden "m:w"
     Range("m7").Select
End Sub

مفيده لاجبار الموشر للوقوف على اول خليه في العمود المطلوب

[ناصر سعيد]

هنا الكود يظهر اعمده متتاليه جنب بعضها

او عمود واحد ...

كيف اجعله يظهر اعمده متفرقه ؟

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

 

[ناصر سعيد]

هنا الكود يظهر اعمده متتاليه جنب بعضها

او عمود واحد ...

كيف اجعله يظهر اعمده متفرقه ؟

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