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

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


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





عرض البيانات داخل لست بطريقه معينة

السلام عليكم هل يمكن عرض العناصر بطريقة العنصر الرئيسى فى العمود الاول ثم العناصر التى تتبعه فى العمود الثانى اريد نتيجه ..


موضوع مغلق


26-02-2021 06:28 مساء
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 

السلام عليكم
هل يمكن عرض العناصر بطريقة
العنصر الرئيسى فى العمود الاول
ثم العناصر التى تتبعه فى العمود الثانى
اريد نتيجه
كالموجوده بورقة النتيجه
Private Sub CommandButton11_Click()
    ListBox1.Clear
    Dim ws As Worksheet: Set ws = data1
    Dim collon_d As Collection
    Set collon_d = New Collection
    Dim collon_d2 As Collection
    Set collon_d2 = New Collection
    '====================================================
    For Each dd In ws.Range("f5:f" & ws.Range("f" & Rows.Count).End(xlUp).Row)
        On Error Resume Next
        collon_d.Add dd.Value, dd.Text
    Next dd
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    With Me.ListBox1
        g = 0
        For g = 1 To collon_d.Count
            .AddItem
            .List(g - 1, 0) = collon_d.Item(g)
            ''''''''''''''''''''''''''''''''''''''
            For Each dd2 In ws.Range("d5:d" & ws.Range("d" & Rows.Count).End(xlUp).Row)
                If dd2.Offset(, 2) = collon_d.Item(g) Then
                    collon_d2.Add dd2.Value, dd2.Text
                End If
            Next dd2
            ''''''''''''''''''''''''''
            For a = 1 To collon_d2.Count
                .List(a, 0) = collon_d.Item(g)
                .List(a, 1) = collon_d2.Item(a)
            Next a
            '            g = a + 1
        Next g: End With
End Sub
 
 
  المصنف1.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(30.542) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
لما لا تقوم بوضع النطاق بشكل مباشر بهذا الشكل؟!
Private Sub CommandButton11_Click()
    ListBox1.Clear
    ListBox1.List = Range("C4:D" & Cells(Rows.Count, 4).End(xlUp).Row).Value
End Sub
عرض الإجابة




27-02-2021 07:56 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif عرض البيانات داخل لست بطريقه معينة
وعليكم السلام
لما لا تقوم بوضع النطاق بشكل مباشر بهذا الشكل؟!
Private Sub CommandButton11_Click()
    ListBox1.Clear
    ListBox1.List = Range("C4:D" & Cells(Rows.Count, 4).End(xlUp).Row).Value
End Sub

27-02-2021 10:08 مساء
مشاهدة مشاركة منفردة [2]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif عرض البيانات داخل لست بطريقه معينة
اخى العزيز ياسر
احاول ان تكون كل التقارير معتمده على الفورم
بس الكود لم يضبط والفكره موجوده فى الكود المرسل

27-02-2021 11:36 مساء
مشاهدة مشاركة منفردة [3]
سعد عابد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 135
الدولة : مصر
الجنس : ذكر
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 220
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif عرض البيانات داخل لست بطريقه معينة
توصلت لضبطه دون فواصل
وجارى المحاوله
Private Sub UserForm_Activate()
''''''''''''''''''''''''''''''''''''''
    With Me.ListBox1
        .ColumnWidths = "100,100,50,50,50,50"
    End With
    Dim collon_d As Collection
    Set collon_d = New Collection
    '====================================================
    For Each dd In data1.Range("f5:f" & data1.Range("f" & Rows.Count).End(xlUp).Row)
        On Error Resume Next
        collon_d.Add dd.Value, dd.Text
    Next dd
    For g = 1 To collon_d.Count
        ListBox2.AddItem
        ListBox2.List(g - 1, 0) = collon_d.Item(g)
    Next
End Sub

Private Sub CommandButton11_Click()
    ListBox1.Clear
    Dim ws As Worksheet: Set ws = data1
    With Me.ListBox2
    For gg = 0 To .ListCount
     With Me.ListBox1
     For a = 5 To 39
     On Error Resume Next
    If ListBox2.List(gg, 0) = Cells(a, "f") Then
            .AddItem
            .List(.ListCount - 1, 0) = ListBox2.List(gg, 0)
            .List(.ListCount - 1, 1) = Cells(a, "d")
'            .List(.ListCount - 1, 0) = collon_d.Item(g)
'            .List(.ListCount - 1, 1) = collon_d2.Item(a)
            End If: Next a: End With
        Next gg: End With
End Sub
 
 
  المصنف1.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(31.553) KB




الكلمات الدلالية
البيانات ، داخل ، بطريقه ، معينة ،


 










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

الساعة الآن 11:55 مساء