تمت الإجابة إخفاء الاعمده بناءا على قيمة

لوحة التميز الأسبوعي
العضو المتميز	المشرف المتميز	المراقب المتميز	المدير المتميز	الموضوع المتميز	القسم المتميز

mmagedmemo	ali mohamed ali	لا تميز خلال هذه الفترة	YasserKhalil	هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد	اكسيل اسئله واجابات

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

الرئيسية

منتدى الاكسيل

اكسيل اسئله واجابات

إخفاء الاعمده بناءا على قيمة

السلام عليكم برجاء عمل الاتى على الشيت المرفق عند الضغط على اسم الصنف مرتين او وجود القيمة 1 المقابله للصنف فى الع ..

: موضوع مغلق

حالة الموضوع : مغلق
أدوات الموضوع

أدوات الموضوع

تحميل محتوى الموضوع

عرض نسخة صالحة للطباعة

أرسل هذا الموضوع إلى صديق

: تمت الإجابة إخفاء الاعمده بناءا على قيمة

01-12-2021 01:42 مساء

محب لله ورسوله

عضو مشارك

تاريخ الإنضمام : 08-09-2017

رقم العضوية : 425

المشاركات : 45

الجنس :

تاريخ الميلاد : 14-3-1983

الدعوات : 1

يتابعهم : 0

يتابعونه : 1

قوة السمعة : 77

السلام عليكم

برجاء عمل الاتى على الشيت المرفق
عند الضغط على اسم الصنف مرتين او وجود القيمة 1 المقابله للصنف فى العمود A
يتم إخفاء الاعمده بناءا على القيمه صفر فى الخلايا من ( E1:R1 )
وذلك لاظهار الأعمده فقط التى بها القيمه

مع الشكر

نموذج.xlsm تحميل xlsm مرات التحميل :(5)
الحجم :(23.396) KB

أفضل إجابة مقدمة من YasserKhalil وهي:

وعليكم السلام أخي الكريم
ضع الكود التالي في حدث ورقة العمل ، كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود. ولتنفيذ الكود قم بالنقر المزدوج على اسم الصنف في العمود الثاني

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

    Dim c As Range

    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 2 And Target.Column = 2 Then

        Cancel = True

        Application.ScreenUpdating = False

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

            For Each c In Range("E" & Target.Row & ":R" & Target.Row).Cells

                If c.Value = Empty Or c.Value = 0 Then c.EntireColumn.Hidden = True

            Next c

        Application.ScreenUpdating = True

    End If

End Sub

عرض الإجابة

: 01-12-2021 05:10 مساء

[1]

YasserKhalil

مراقب عام

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 3

المشاركات : 10461

الجنس :

تاريخ الميلاد : 1-10-1978

الدعوات : 24

يتابعهم : 1

يتابعونه : 539

قوة السمعة : 36712

عدد الإجابات: 257

: إخفاء الاعمده بناءا على قيمة

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

    Dim c As Range

    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 2 And Target.Column = 2 Then

        Cancel = True

        Application.ScreenUpdating = False

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

            For Each c In Range("E" & Target.Row & ":R" & Target.Row).Cells

                If c.Value = Empty Or c.Value = 0 Then c.EntireColumn.Hidden = True

            Next c

        Application.ScreenUpdating = True

    End If

End Sub

: 06-12-2021 09:45 صباحا

[2]

محب لله ورسوله

عضو مشارك

تاريخ الإنضمام : 08-09-2017

رقم العضوية : 425

المشاركات : 45

الجنس :

تاريخ الميلاد : 14-3-1983

الدعوات : 1

يتابعهم : 0

يتابعونه : 1

قوة السمعة : 77

: إخفاء الاعمده بناءا على قيمة

: خلينا نختار الكميه فقط

: 06-12-2021 11:04 صباحا

[3]

hassona229

مشرف عام

تاريخ الإنضمام : 20-11-2018

رقم العضوية : 9257

المشاركات : 812

الدولة : مصر

الجنس :

تاريخ الميلاد : 13-9-1980

يتابعهم : 0

يتابعونه : 11

قوة السمعة : 4330

عدد الإجابات: 113

: إخفاء الاعمده بناءا على قيمة

الكود الخاص بالاستاذ ياسر ابو البراء يظهر لك الكميه والنسبه وليس به اي مشكله اخى الكريم

حضرتك عايز الكميه فقط
تفضل هذا التعديل



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

    Dim c As Range

    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 2 And Target.Column = 2 Then

        Cancel = True

        Application.ScreenUpdating = False

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

        For Each a In Range("E" & Target.Row & ":R" & Target.Row).Cells

            If a.Value = Empty Or a.Value = 0 Or a.EntireColumn.Hidden = True Then

                a.EntireColumn.Hidden = True

            Else

                a.EntireColumn.Offset(0, 1).EntireColumn.Hidden = True

            End If

        Next a

        Application.ScreenUpdating = True

    End If

End Sub

: 06-12-2021 01:23 مساء

[4]

محب لله ورسوله

عضو مشارك

تاريخ الإنضمام : 08-09-2017

رقم العضوية : 425

المشاركات : 45

الجنس :

تاريخ الميلاد : 14-3-1983

الدعوات : 1

يتابعهم : 0

يتابعونه : 1

قوة السمعة : 77

: إخفاء الاعمده بناءا على قيمة

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

: 06-12-2021 01:31 مساء

[5]

hassona229

مشرف عام

تاريخ الإنضمام : 20-11-2018

رقم العضوية : 9257

المشاركات : 812

الدولة : مصر

الجنس :

تاريخ الميلاد : 13-9-1980

يتابعهم : 0

يتابعونه : 11

قوة السمعة : 4330

عدد الإجابات: 113

: إخفاء الاعمده بناءا على قيمة

: الحمد لله الذي بنعمته تتم الصالحات

: 06-12-2021 02:13 مساء

[6]

hassona229

مشرف عام

تاريخ الإنضمام : 20-11-2018

رقم العضوية : 9257

المشاركات : 812

الدولة : مصر

الجنس :

تاريخ الميلاد : 13-9-1980

يتابعهم : 0

يتابعونه : 11

قوة السمعة : 4330

عدد الإجابات: 113

: إخفاء الاعمده بناءا على قيمة

وهذا الكود للاختيار بين الكميه والنسبه او كليهما



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

    Dim c As Range, S As Long

    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 2 And Target.Column = 2 Then

        Cancel = True

        Application.ScreenUpdating = False

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

        S = MsgBox("هل تريد الكمية والنسبة؟", 36, "")

        For Each A In Range("E" & Target.Row & ":R" & Target.Row).Cells

            If S = 7 Then

                If A.Value = Empty Or A.Value = 0 Or A.EntireColumn.Hidden = True Then

                    A.EntireColumn.Hidden = True

                Else

                    A.EntireColumn.Offset(0, 1).EntireColumn.Hidden = True

                End If

            Else

                If A.Value = Empty Or A.Value = 0 Then A.EntireColumn.Hidden = True

            End If

        Next A

        Application.ScreenUpdating = True

    End If

End Su

الكلمات الدلالية

إخفاء ، الاعمده ، بناءا ، قيمة ،

« تعديل على ملف برنامج الجدول المدرسي الاصدار الثاني للاستاذ خبور | إيجاد محموع معين لأرقام متتالية »

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

سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:24 صباحا