هل من طريقة لعرض القائمة الأفقية ( صف ) في ComboBox2

[الجموعي]

السلام عليكم ورحمة الله تعالى وبركاته

أريد مساعده في ComboBox

هل من طريقة لعرض القائمة الأفقية في ComboBox2

علما أن القائمة العمودية تظهر في ComboBox1

الملف في المرفق يوضح ذلك

ComboBox.rar

[رجب جاويش]

أخى الفاضل

يكون الجزء الخاص به فى الكود كالآتى

With ComboBox2
.Column = Range("liste2").Value
End With

[شوقي ربيع]

السلام عليكم

هذا مثال بواسطة الحلقات التكرارية 

 

ComboBox.rar

[حمادة عمر]

ولاثراء الموضوع

في حاله انك تحدد القائمة يمكنك استخدام السطر التالي

ComboBox2.List = Array("1", "2", "3", "4", "5", "6")

[الجموعي]

 

أخى الفاضل

يكون الجزء الخاص به فى الكود كالآتى

With ComboBox2
.Column = Range("liste2").Value
End With

 

بارك الله فيك أستاذ/ رجب جاويش

 

الله يعطيك العافية

السلام عليكم

هذا مثال بواسطة الحلقات التكرارية 

أستاذ شوقي شكرا

الله يحفظك

 

عندي إستفسار كيف أنزع الفراغات في Combobox

نموذج ثاني في المرفق

ComboBox.rar

[الجموعي]

 

ولاثراء الموضوع

في حاله انك تحدد القائمة يمكنك استخدام السطر التالي

ComboBox2.List = Array("1", "2", "3", "4", "5", "6")

ماشاء الله عليك أستاذ عمر حماده

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

[رجب جاويش]

أخى الفاضل

تكون الأكواد كالآتى

Private Sub UserForm_Initialize()
With ComboBox1
For i = 2 To 8
If Not IsEmpty(Cells(i, 1)) Then ComboBox1.AddItem Cells(i, 1)
Next
End With
End Sub

Private Sub UserForm_Activate()
With ComboBox2
For i = 2 To 8
If Not IsEmpty(Cells(1, i)) Then ComboBox2.AddItem Cells(1, i)
Next
End With
End Sub

[حمادة عمر]

بسم الله ما شاء الله عليك

استاذي العملاق / رجب جاويش

عملاق عن جد وبكل جداره

ولاثراء الموضوع ... جرب الكود التالي

Private Sub UserForm_Initialize()
On Error Resume Next
Dim mycol As Collection
Dim myrng As Range
Set mycol = New Collection
For Each myrng In Range("a1:a10")
mycol.Add myrng.Value, myrng.Text
Next myrng
For i = 1 To mycol.Count
Me.ComboBox1.AddItem mycol(i)
Next i
End Sub

تقبلوا خالص تحياتي

[رجب جاويش]

أخى الحبيب / حمادة عمر

شكرا جزيلا على كلماتك الطيبة

وجزاك الله كل خير

[الجموعي]

 

أخى الفاضل

تكون الأكواد كالآتى

Private Sub UserForm_Initialize()
With ComboBox1
For i = 2 To 8
If Not IsEmpty(Cells(i, 1)) Then ComboBox1.AddItem Cells(i, 1)
Next
End With
End Sub

Private Sub UserForm_Activate()
With ComboBox2
For i = 2 To 8
If Not IsEmpty(Cells(1, i)) Then ComboBox2.AddItem Cells(1, i)
Next
End With
End Sub

الله الله أنت عملاق كما قال الأستاذ عمر

ياريت شرح هذا الكود لأستفيد به

[رجب جاويش]

أخى الفاضل

فكرة الكود فى السطر التالى

If Not IsEmpty(Cells(i, 1)) Then ComboBox1.AddItem Cells(i, 1)

حيث أنه اذا كانت الخلية غير فارغة تضاف كعنصر فى الـ ComboBox

[الجموعي]

بسم الله ما شاء الله عليك

استاذي العملاق / رجب جاويش

عملاق عن جد وبكل جداره

ولاثراء الموضوع ... جرب الكود التالي

Private Sub UserForm_Initialize()
On Error Resume Next
Dim mycol As Collection
Dim myrng As Range
Set mycol = New Collection
For Each myrng In Range("a1:a10")
mycol.Add myrng.Value, myrng.Text
Next myrng
For i = 1 To mycol.Count
Me.ComboBox1.AddItem mycol(i)
Next i
End Sub

تقبلوا خالص تحياتي

أستاذ عمر هل هذا الكود يصلح للصف الأفقي؟

[رجب جاويش]

أخى الحبيب / حمادة عمر

كود رائع جدا

تسلم ايديك

[إبراهيم ابوليله]

الاخوه الافاضل

الاخ رجب جاويش

الاخ حماده عمر

الاخ شوقى ربيع

مجهود كبير

وحلول متنوعه

بارك الله فيكم

واسمحو لى بالمشاركه

Private Sub UserForm_Initialize()
Dim I As Integer
    With Sheets("sheet1")
       For r = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
            If .Range("A" & r) <> "" Then
                ComboBox1.AddItem .Range("A" & r)
            End If
        Next r
        End With
End Sub

[رجب جاويش]

أخى الحبيب / ابراهيم

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

[إبراهيم ابوليله]

 

أخى الفاضل

تكون الأكواد كالآتى

Private Sub UserForm_Initialize()
With ComboBox1
For i = 2 To 8
If Not IsEmpty(Cells(i, 1)) Then ComboBox1.AddItem Cells(i, 1)
Next
End With
End Sub

Private Sub UserForm_Activate()
With ComboBox2
For i = 2 To 8
If Not IsEmpty(Cells(1, i)) Then ComboBox2.AddItem Cells(1, i)
Next
End With
End Sub

اخى واستاذنا رجب

دائما ما تاتى بالسهل

بارك الله فيك

ولكن ماذا لو اردنا عدم تكرار البيانات

مع عدم وجود فراغات ايضا

[الجموعي]

السلام عليكم

مرحبا مجددا

شكرا لكم جميعا على المساعدة وإثراء الموضوع

بعد حل مشكلة الكمبوبوكس

وجهتني مشكلة أخرى

المتمثلة في إستدعاء بيانات من الشيت تلقائيا ل label

جربت هذا الكود ولم يفلح معي

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 17
    Me.Controls("Label" & i).Caption = Cells(1, i).Value
Next i
End Sub

المرفق يوضح ذلك

 

label.rar

[إبراهيم ابوليله]

اخى الجموعى

تم عمل الطلوب

بالنسبه لترحيل البيانات

----------------------------------------

اما بالنسبه ل الليبول فانا مش عارف ايه المطلوب بالظبط

ممكن توضح اكتر

label.rar

[إبراهيم ابوليله]

اخى الجموعى

تم عمل ايضا المطلوب

الخاص

باستدعاء البيانات عن طريق الكومبوبوكس

الى ليست بوكس

 

label.rar

[الجموعي]

اخى الجموعى

تم عمل الطلوب

بالنسبه لترحيل البيانات

----------------------------------------

اما بالنسبه ل الليبول فانا مش عارف ايه المطلوب بالظبط

ممكن توضح اكتر

جميل جدا

تم الترحيل البيانات بنجاح للجدول

بالنسبة لليبول

الصورة في المرفق توضح ذلك

[رجب جاويش]

بالنسبة لطلب أخى ابراهيم

بخصوص عدم تكرار البيانات وعدم وجود فراغات

يكون الكود كالآتى

Private Sub UserForm_Initialize()
Dim Obj As Object, cl
Set Obj = CreateObject("Scripting.Dictionary")
LR = Cells(Rows.Count, 1).End(xlUp).Row
Set Rng = Range("A2:A" & LR)
For Each cl In Rng
    If Not IsEmpty(cl) And Not Obj.Exists(Trim(cl)) Then
        Obj.Add Trim(cl), 1
    End If
Next
For Each Item In Obj
    ComboBox1.AddItem Item
Next
Set Obj = Nothing
End Sub

[إبراهيم ابوليله]

اخى الجموعى

تفضل

واخبرنى

label.rar

[الجموعي]

اخى الجموعى

تفضل

واخبرنى

أخي إبراهيم مشكور

أنت قمت بإدخالها يدويا عن طريق شرط

أنا أريدها تلقائية من الشيت مباشرة

شاهد المرفق أنا إستطعت إدخالها عن طريق الفورم وأنا أريدها عند الإختيار من الكمبوبوكس

label.rar

[إبراهيم ابوليله]

اخى الجموعى

هل تقصد

ان تأخذ الليبل الارقام من 1 الى 9

فى حاله اختيار اى من الجداول الثلاث

شاهد المرفق

اذا لم يكن هذا طلبك ارجو

التوضيح اكثر

 

label.rar

[الجموعي]

اخى الجموعى

هل تقصد

ان تأخذ الليبل الارقام من 1 الى 9

فى حاله اختيار اى من الجداول الثلاث

شاهد المرفق

اذا لم يكن هذا طلبك ارجو

التوضيح اكثر

أخي تعبتك معي الفكرة لحد الان لم تصلك

 

عند إختيار جدول 1 تلقائياتكتب في الليبل الحروف اللاتينية

عند إختيار جدول 2 تلقائيا تكتب الليبل الحروف العربية

أنت اخي كنت تكتبها في محرر الفيجوال بسيك

أنا أريد إستدعائها مباشرة من الشيت

أرجو أنك فهمت ما اقصد

والصورة التالية توضح