أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


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





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

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


موضوع مغلق


01-12-2021 01:42 مساء
محب لله ورسوله
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-09-2017
رقم العضوية : 425
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 14-3-1983
الدعوات : 1
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 77
 offline 

السلام عليكم

برجاء عمل الاتى على الشيت المرفق
عند الضغط على اسم الصنف مرتين او وجود القيمة 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
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif إخفاء الاعمده بناءا على قيمة
وعليكم السلام أخي الكريم
ضع الكود التالي في حدث ورقة العمل ، كليك يمين على اسم ورقة العمل ثم 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

06-12-2021 09:45 صباحا
مشاهدة مشاركة منفردة [2]
محب لله ورسوله
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-09-2017
رقم العضوية : 425
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 14-3-1983
الدعوات : 1
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 77
 offline 
look/images/icons/i1.gif إخفاء الاعمده بناءا على قيمة

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

 

06-12-2021 11:04 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif إخفاء الاعمده بناءا على قيمة
الكود الخاص بالاستاذ ياسر ابو البراء يظهر لك الكميه والنسبه وليس به اي مشكله اخى الكريم

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

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]
محب لله ورسوله
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-09-2017
رقم العضوية : 425
المشاركات : 45
الجنس : ذكر
تاريخ الميلاد : 14-3-1983
الدعوات : 1
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 77
 offline 
look/images/icons/i1.gif إخفاء الاعمده بناءا على قيمة
جزاكم الله خيرا ونفع الله بكم
 

06-12-2021 01:31 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif إخفاء الاعمده بناءا على قيمة
الحمد لله الذي بنعمته تتم الصالحات 

06-12-2021 02:13 مساء
مشاهدة مشاركة منفردة [6]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif إخفاء الاعمده بناءا على قيمة
وهذا الكود للاختيار بين الكميه والنسبه او كليهما

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



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


 










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

الساعة الآن 06:57 صباحا