قائمة منسدلة حسب الطلب (تقرير حسب الطلب)

[ابو عبدالرحمن البغدادي]

السلام عليكم

عندي راس جدول يحتوي على بيانات كثيرة

يطلب منا تقرير يحتوي على بعض البيانات

ممكن تصميم قائمة منسدلة يختار منها اظهار بعض البيانات ليس كل الجدول  ( يشبه الصورة المرفقة)

طلب اخر مهم : القائمة المنسدلة تتغير حسب راس الجدول

 

قائمة.rar

تم تعديل يناير 26, 2016 بواسطه ابو عبدالرحمن البغدادي

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

أخي الكريم أبو عبد الرحمن

على حسب علمي لا يوجد خاصية صناديق الاختيار داخل قائمة الكومبوبوكس

جرب الملف التالي عله يكون المطلوب لك ..سيتم إنشاء صناديق اختيار بمجرد تشغيل الفورم .. قم فقط بإنشاء زري أمر أحدهما باسم cmdExit للخروج من الفورم والآخر باسم cmdReport لإظهار الحقول المطلوبة فقط ..

أرجو أن يفي بالغرض

Private Sub cmdReport_Click()
    Dim Ctrl As Control, FoundCol
    
    Sheet1.Columns("A:T").EntireColumn.Hidden = False
    Sheet1.Columns("A:R").EntireColumn.Hidden = True
    
    For Each Ctrl In UserForm1.Controls
        If TypeName(Ctrl) = "CheckBox" Then
            If Ctrl.Value = True Then
                FoundCol = Application.Match(Ctrl.Caption, Sheet1.Rows(1), 0)
                If IsNumeric(FoundCol) Then Columns(FoundCol).Hidden = False
            End If
        End If
    Next Ctrl
    
    Application.Goto Sheet1.Range("A1")
End Sub

Private Sub UserForm_Initialize()
    Dim LastColumn  As Long
    Dim I           As Long
    Dim chkBox      As MSForms.CheckBox
    
    LastColumn = 18
    
    For I = 1 To LastColumn
        Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & I)
        chkBox.Caption = Sheet1.Cells(1, I).Value
        chkBox.Left = 20
        chkBox.Top = 5 + ((I - 1) * 20)
    Next I
End Sub

Private Sub cmdExit_Click()
    Unload Me
End Sub

تقبل تحياتي

 

Create CheckBoxes On UserForm By Cells In Specific Range YasserKhalil.rar

[أبوبسمله]

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

ونفعنا الله واياكم وذادكم من فضله وكرمه

[ابو عبدالرحمن البغدادي]

جزيت خيرا

هو المطلوب - تسلم - حياك الله 

 

 

تم تعديل يناير 27, 2016 بواسطه ابو عبدالرحمن البغدادي