تعديل كود إخفاء أعمدة

[ليلى الهلالي]

السلام عليكم.

تحياتي للجميع. مع شكري لكل من ساعدني في برنامجي المدرسي ومع شكري لكل الأعضاء ولكل الخبراء الذين ما بخلوا علينا بمعلومة. وبفضل الله أولاُ ثم بفضلهم استطعت إنجاز جزء من هذا البرنامج وعملت كود الاخفاء لمادة القرآن الكريم  ولأنه طويل جداً أود لو في الإمكان طريقة استطيع بها اختصار هذا الكود لأنني سأطبقه لبقية المواد وقد يؤدي إلى ثقل العمل وبطأه.

وكما هو موضح في المرفق تم عمل فورم من خلالها استطيع التحكم في ظهور أو إخفاء كل مادة على حده.

شاكرة للجميع وأدعو لهم بالتوفيق.

أول ثانوي .rar

تم تعديل أكتوبر 20, 2016 بواسطه morestudy

[ليلى الهلالي]

السلام عليكم.

حتى الآن لم أجد من يجيب. إن لم يكن المطلوب واضحاً، أُعيد توضيحه:

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

ولكم جزيل الشكر لجهودكم وسعة صدركم لسؤالي.

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

وعليكم السلام

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

 

Hide Show Multi Columns.rar

[۩◊۩ أبو حنين ۩◊۩]

3 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام

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

 

Hide Show Multi Columns.rar

السلام عليكم  اخى ياسر 

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

نتوقع الان الامر صعب ... ولاكن دائما  تظهر لنا ان الامر سهل جدا ... 

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

[ليلى الهلالي]

السلام عليكم.

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

مرة أخرى أشكرك جزيل الشكر لردك وتفاعلك.

إذا لم أجد حلاً يبدو أني سأستمر بالكود كما هو ولو أنه طويل آملة أن لا يثقل عملي بسببه

[ليلى الهلالي]

السلام عليكم.

هل من الممكن أن أضع الكود الخاص بالإخفاء في  Function (دالة) تكرر الكود وتقوم بعمل المطلوب من الكود ولا نحتاج لتكراره؟ إذا كان بالإمكان كيف؟ وما هي الدالة  (Function) المناسبة.

تم تعديل أكتوبر 26, 2016 بواسطه morestudy

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

وعليكم السلام

في المثال الذي تم إرفاقه نفس فكرة الـ Function حيث يوجد إجراء فرعي شبيه بالدالة المعرفة ، ويمكن استخدام الإجراء الفرعي الرئيسي والذي يحتوي على بارامترات في إجراءات فرعية أخرى

[احمد حليم]

السلام عليكم 

[ليلى الهلالي]

السلام عليكم.

أستاذي الفاضل راجعت الكود في المرفق الذي ذكرته ولكن لم أجد أي Function أو أنني لم أعرفه  فأرجو منك أن توضح لي موقع الـ  Function .وما هو الباراميتر؟ ولك جزيل الشكر.هذا هو الكود

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

Sub S()
    kh_ColumnHidden "F:H"
End Sub

Sub D()
kh_ColumnHidden "I:K"
End Sub

Sub EN()
kh_ColumnHidden "L:N"
End Sub

Sub AR()
kh_ColumnHidden "O:Q"
End Sub

Sub RE()
kh_ColumnHidden "r:t"
End Sub

Sub F()
kh_ColumnHidden "u:w"
End Sub

 

 

 

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

الكود في أول الموديول

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

حيث أن البارامتر المستخدم هو ColumnAddress أي عنوان العمود المطلوب إظهاره فقط

حيث يقوم الكود المعرف بإخفاء الأعمدة كلها من C إلى W ، ويمكن تغييرها حسب الرغبة

ثم في السطر التالي يقوم بإظهار العمود الهدف فقط .. 

 

استخدام الكود المعرف واضح في بقية الإجراءات الفرعية

[ليلى الهلالي]

لك جزيل الشكر أستاذي. سأحاول أن أجرب إن شاء الله أي يفي بالمطلوب.

[ليلى الهلالي]

السلام عليكم.

الأخوة الأفاضل هل من الممكن مساعدتي في عمل data range(نطاق الأسماء) للشهور بتجربته في مادة القرآن الكريم حيث أريد عمل قائمة منسدلة للمادة الدراسية التي بدورها تؤدي لإظهار قائمة الشهور بدون ظهور فراغات مثلاً أريد أن يظهر الشهر الأول ، الشهر الثاني ......وهكذا حتى الفصل الثاني. حاولت أن أطبق من خلال بحثي في الموقع عن القوائم المنسدلة والكمبوبوكس ولكن لم أنجح فكلما قمت بعمل قائمة منسدلة باسماء المواد تتبعها قائمة أخرى بأسماء الشهور لكل مادة. وكلما جربت ظهرت لي أرقام أو كلمات المحصلة ثم فراغات أو أرقام.

لذا أرجو منكم مساعدتي في عمل تسمية للنطاق وتعبئته في الكومبوبوكس في الفورم في مادة القرآن الكريم.

ولكم جزيل الشكر والامتنان.

الملف مرفق في بداية الموضوع.

[ليلى الهلالي]

030-Hide Show Columns Based On Specific Value YasserKhalil.rar

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

Option Explicit

Sub HideShowColumns()
    If Not IsEmpty(Range("A1")) And IsNumeric(Range("A1")) And Range("A1") <> 1 And Range("A1") < 13 Then
        Dim iMon As Integer
        iMon = Range("A1").Value + 1
        iMon = Range("b1").Value + 1

        Columns("C:N").Hidden = False
        Range(Cells(1, 3), Cells(1, iMon)).EntireColumn.Hidden = True
    Else
        MsgBox "Cell A1 Should Be Numeric And Not Emtpy" & Chr(10) & "You Should Type From 2 To 12 Only", 64
        Columns("C:N").Hidden = False
   If Not IsEmpty(Range("A1")) And IsNumeric(Range("A1")) And Range("A1") <> 1 And Range("A1") < 13 Then
               Columns("m:z").Hidden = False
        Range(Cells(1, 3), Cells(1, iMon)).EntireColumn.Hidden = True
    Else
        MsgBox "Cell b1 Should Be Numeric And Not Emtpy" & Chr(10) & "You Should Type From 2 To 12 Only", 64
        Columns("o:z").Hidden = False
    End If
    End If
End Sub

 

030-Hide Show Columns Based On Specific Value YasserKhalil.rar

[ليلى الهلالي]

في ٢٥‏/١‏/١٤٣٨ هـ at 22:59, ياسر خليل أبو البراء said:

الكود في أول الموديول

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

حيث أن البارامتر المستخدم هو ColumnAddress أي عنوان العمود المطلوب إظهاره فقط

حيث يقوم الكود المعرف بإخفاء الأعمدة كلها من C إلى W ، ويمكن تغييرها حسب الرغبة

ثم في السطر التالي يقوم بإظهار العمود الهدف فقط .. 

 

استخدام الكود المعرف واضح في بقية الإجراءات الفرعية

أستاذي الفاضل ياسر

استخدمت هذا الكود وعدلت فيه وتمت الأمور بنجاح حتى وصلت إلى اختيار درجات النصف الأول حيث يجب أن أخفي الجميع وأظهر عدة أعمدة ولكن ظهرت لي هذه الرسائل هل من الممكن شرح سببها وكيفية التعديل عليها.

مرفق لكم صور بذلك.

مع جزيل الشكر.