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



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







22-09-2023 06:56 مساءً
 
أعضاء المنتدى الكرام
السلام عليكم ورحمة الله وبركاته
عندى يوزرفورم1 عليه ليست بوكس1  و كمبوبوكس 1  

وورقة عمل بيانات الموظفين بالدرجة المالية لهم

المطلوب :
عند اختيار الدرجة المالية ( 1 : 6 ) من الكمبوبوكس يتم استدعاء كافة أسماء الموظفين من ورقة العمل وإظهارهم 
فى الليست بوكس1 على أن يتم تقسيمهم فى اللسيت بوكس على 4 أعمدة
الملف فى المرفقات


attach Test.zip
 
 

تم تحرير الموضوع بواسطة :Haneen Amr بتاريخ:22-09-2023 07:06 مساءً
سبب التعديل : تم اضافة الملف بالخطأ وتم رفعه من جديد





look/images/icons/i1.gif تعبئة الليست بوكس باكثر من عمود
  23-09-2023 04:22 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء المولى
CODE
Option Explicit

Private Sub ComboBox1_Change()
    Const NUM As Long = 4
    Dim r As Long, lr As Long, cnt As Long, k As Long, n As Long
    With ActiveSheet
        lr = .Cells(Rows.Count, "D").End(xlUp).Row
        With Me.ListBox1
            .Clear
            .ColumnCount = NUM
        End With
        For r = 8 To lr
            If Val(.Cells(r, "F").Value) = Val(ComboBox1.Value) Then
                Me.ListBox1.AddItem Empty
                Me.ListBox1.List(k, n) = .Cells(r, "D").Value
                n = n + 1
                cnt = cnt + 1
                If cnt Mod NUM = 0 Then n = 0: k = k + 1
            End If
        Next r
    End With
End Sub

Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 1 To 6
        Me.ComboBox1.AddItem i
    Next i
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، hassona229،



look/images/icons/i1.gif تعبئة الليست بوكس باكثر من عمود
  23-09-2023 07:51 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 08-01-2018
رقم العضوية : 3478
المشاركات : 24
الجنس :
تاريخ الميلاد : 12-9-1976
قوة السمعة : 41
الاعجاب : 1
مشكور جدا أستاذى الفاضل على هذا الكود الرائع


تم تحرير المشاركة بواسطة :Haneen Amr بتاريخ:23-09-2023 07:52 مساءً





look/images/icons/i1.gif تعبئة الليست بوكس باكثر من عمود
  23-09-2023 08:01 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
عناوين رؤوس اعمدة الليست بوكس بليغ البتول
2 265 بليغ البتول
نقل ماهو مكتوب على CommandButtonالى الليست بوكس حبيبتى دائما
1 148 حبيبتى دائما
تنسيقات على الليست بوكس مصطفى شولاني
1 776 مصطفى شولاني
مشكلة تكرار هيدر الليست بوكس حبيبتى دائما
2 604 حبيبتى دائما
مشكلة فى ملف بحث بالليست بوكس حبيبتى دائما
6 932 حبيبتى دائما

الكلمات الدلالية
تعبئة ، الليست ، بوكس ، باكثر ، عمود ،








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

الساعة الآن 05:02 PM.