اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

الجموعي

بواسطه الجموعي
في منتدى الاكسيل Excel

 مشاركة
إذهب إلى أفضل إجابة Solved by إبراهيم ابوليله,

الردود الموصى بها

حمادة عمر

حمادة عمر

قام بنشر
قام بنشر

السلام عليكم

الاخ الكريم / الجموعي

بارك الله فيك

هل تقصد هكذا ... طريقة سهلة وبسيطة

 

label-SSSS.rar

  • Like 2
  • الردود 51
  • Created
  • اخر رد

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

رجب جاويش
رجب جاويش

أخى الفاضل تكون الأكواد كالآتى 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 User

حمادة عمر
حمادة عمر

بسم الله ما شاء الله عليك استاذي العملاق / رجب جاويش عملاق عن جد وبكل جداره ولاثراء الموضوع ... جرب الكود التالي Private Sub UserForm_Initialize() On Error Resume Next Dim mycol As Collection Dim

حمادة عمر
حمادة عمر

السلام عليكم الاخ الكريم / الجموعي بارك الله فيك هل تقصد هكذا ... طريقة سهلة وبسيطة   label-SSSS.rar

Posted Images

حمادة عمر

حمادة عمر

قام بنشر
قام بنشر

ملاحظة او طلب

ولكن اخي الكريم لي طلب لديكم لزيادة الافادة للجميع

عندما ينتهي طلبك الاول في موضوع ما واذا تغير طلبك في نفس الملف ولكن بخصوص شئ آخر

 

يجب عليك طرحه في موضوع آخر لزيادة الافادة للجميع

 

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

  • Like 1
الجموعي

الجموعي

قام بنشر
  • الكاتب
قام بنشر

السلام عليكم

الاخ الكريم / الجموعي

بارك الله فيك

هل تقصد هكذا ... طريقة سهلة وبسيطة

 

attachicon.giflabel-SSSS.rar

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

كود رائع جدا

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

ربي يحفظك

حمادة عمر

حمادة عمر

قام بنشر
قام بنشر

بارك الله فيك

اخي الكريم / الجموعي

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

الجموعي

الجموعي

قام بنشر
  • الكاتب
قام بنشر

السلام عليكم

الاخ الكريم / الجموعي

بارك الله فيك

هل تقصد هكذا ... طريقة سهلة وبسيطة

 

attachicon.giflabel-SSSS.rar

أستاذ حماده عمر

أريد إضافة جدول أخر فمالمطلوب مني التعديل

اي كود اقوم بتعديله

حمادة عمر

حمادة عمر

قام بنشر
قام بنشر

هل الجدول بنفس الشكل وسيكون مثلا ( جدول 4 ) بعد الجداول الموجودة

حمادة عمر

حمادة عمر

قام بنشر
قام بنشر

سيم وضع الجزء التالي من الكود في حدث الكومبوبكس Private Sub ComboBox1_Change()
بالاضافة للموجود

ElseIf Me.ComboBox1.Value = "جدول4" Then
Label1.Caption = Sheet1.Cells(2, 28): Label2.Caption = Sheet1.Cells(2, 29)
Label3.Caption = Sheet1.Cells(2, 30): Label4.Caption = Sheet1.Cells(2, 31)
Label5.Caption = Sheet1.Cells(2, 32): Label6.Caption = Sheet1.Cells(2, 33)
Label7.Caption = Sheet1.Cells(2, 34): Label8.Caption = Sheet1.Cells(2, 35)
Label9.Caption = Sheet1.Cells(2, 36): hhhh

وبالتالي سيتم وضع كود آخر للبحث عن البيانات لظهورها في الليست والتي تخص الجدول 4

بالاكواد المستخدمة من الاخ الفاضل / ابراهيم ابو ليله ... جزاه الله خير ا

وهذا هو الجزء المقصود

Sub hhhh()
Dim Ary()
Dim i As Integer, ii As Integer, Lr As Integer
ListBox1.ColumnCount = cont
With Sheet1
    Lr = .Cells(.Rows.Count, "a").End(xlUp).Row
    For i = 3 To Lr
        ii = ii + 1
        ReDim Preserve Ary(1 To cont, 1 To ii)
        Ary(1, ii) = .Cells(i, 28).Value
        Ary(2, ii) = .Cells(i, 29).Value
        Ary(3, ii) = .Cells(i, 30).Value
        Ary(4, ii) = .Cells(i, 31).Value
        Ary(5, ii) = .Cells(i, 32).Value
        Ary(6, ii) = .Cells(i, 33).Value
        Ary(7, ii) = .Cells(i, 34).Value
        Ary(8, ii) = .Cells(i, 35).Value
        Ary(9, ii) = .Cells(i, 36).Value
    Next
  End With
Me.ListBox1.Column = Ary
Erase Ary

End Sub

ارجو ان يفي ذلك بطلبك

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

 

label-SSSS++.rar

  • Like 2
الجموعي

الجموعي

قام بنشر
  • الكاتب
قام بنشر (معدل)

هكذا كفيت ووفيت أخي عمر

وفي هذا الكود توجد الجداول 3 فقط كيف أضيف كود جدول 4

Private Sub CommandButton1_Click()
Lr = Cells(Rows.Count, "A").End(xlUp).Row
If Me.ComboBox1.Value = "" Then: Exit Sub
If Me.ComboBox1.Value = "ÌÏæá1" Then
For R = 1 To 9
Sheet1.Cells(Lr + 1, R).Value = Me.Controls("TEXTBOX" & R)
Next
End If
LR1 = Cells(Rows.Count, "J").End(xlUp).Row
If Me.ComboBox1.Value = "ÌÏæá2" Then
For RR = 1 To 9
Sheet1.Cells(LR1 + 1, RR).Offset(0, 9) = Me.Controls("TEXTBOX" & RR)
Next
End If
LR2 = Cells(Rows.Count, "S").End(xlUp).Row
If Me.ComboBox1.Value = "ÌÏæá3" Then
For RR = 1 To 9
Sheet1.Cells(LR2, RR).Offset(0, 18) = Me.Controls("TEXTBOX" & RR)
Next
End If
ComboBox1_Change
End Sub

قمت بإضافة الكود التالي

هل هذه البيانات صحيحة

If Me.ComboBox1.Value = "ÌÏæá4" Then
For RR = 1 To 9
Sheet1.Cells(LR2, RR).Offset(0, 27) = Me.Controls("TEXTBOX" & RR)
Next
End If

وبالنسبة للبيانات التي تظهر في الليست بوكس تظهر من معكوسه

أريدها من اليمين لليسار مثل البيانات في الجدول

تم تعديل بواسطه الجموعي
حمادة عمر

حمادة عمر

قام بنشر
قام بنشر

نعم بهذا الشكل ولكن ينقصه السطر الاول كالتالي

LR3 = Cells(Rows.Count, "AB").End(xlUp).Row
If Me.ComboBox1.Value = "جدول4" Then
For RR = 1 To 9
Sheet1.Cells(LR2, RR).Offset(0, 27) = Me.Controls("TEXTBOX" & RR)
Next
End If

والسطر هو ... لتحديد عمود بداية الجدول المقصود

LR3 = Cells(Rows.Count, "AB").End(xlUp).Row
  • Like 1
الجموعي

الجموعي

قام بنشر
  • الكاتب
قام بنشر

في الجدول 1

عند ترحيل البيانات وجدت خطا والمتمثل في تم إدراج البيانات في الصف 10

والصف 5.6.7.8.9 كلها فارغة

بلنسبة للبيانات التي تظهر في الليست بوكس تظهر من معكوسه

أريدها من اليمين لليسار مثل البيانات في الجدول

الجموعي

الجموعي

قام بنشر
  • الكاتب
قام بنشر

أخي إبراهيم ها هو الملف

ومعه صور تبين المشكلة

بالنسبة للبيانات التي تظهر في الليست بوكس تظهر من معكوسه

أريدها من اليمين لليسار مثل البيانات في الجدول في الشيت

 

label-SS.rar

الجموعي

الجموعي

قام بنشر
  • الكاتب
قام بنشر

اخى الجموعى

جرب المرفق

انشاء الله تتلاشى كل المشاكل

تسلم أخي إبراهيم

مزالت بيانات الجدول 4 غير سليمه

البيانات تدخل في الشيت لكن في الليست بوكس لا تظهر

هل لاحظت ذلك

الجموعي

الجموعي

قام بنشر
  • الكاتب
قام بنشر (معدل)

أستاذ إبراهيم

بارك الله فيك

 وجزاك الله الجنة

أعرف اني تعبتك معي منذ مشاركتي للمنتدى :smile:

تم تعديل بواسطه الجموعي
  • Like 1
إبراهيم ابوليله

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

قام بنشر
قام بنشر

اخى الجموعى

اشكرك على هذه الكلمات الطيبه

وانا لم افعل شيئا

ولكنى قدمت المساعده طالما

استطعت

وهذا ما تربينا عليه فى هذا المنتدى

وفققك الله لما يحبه ويرضاه

حمادة عمر

حمادة عمر

قام بنشر
قام بنشر

اخى حماده عمر

تغطيه ممتازه منك للموضوع

واكواد جميله مستفاد منها

بارك الله فيك

اخى الجموعى

ارسل ملفك للعمل عليه

 

 

الاخ الحبيب / ابراهيم ابو ليله

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

الجموعي

الجموعي

قام بنشر
  • الكاتب
قام بنشر

اخى الجموعى

اشكرك على هذه الكلمات الطيبه

وانا لم افعل شيئا

ولكنى قدمت المساعده طالما

استطعت

وهذا ما تربينا عليه فى هذا المنتدى

وفققك الله لما يحبه ويرضاه

شكرا لك على سعه صدرك

إحترامي وتقديري

الجموعي

الجموعي

قام بنشر
  • الكاتب
قام بنشر

أساتذتي الفضلاء

لو تكرمتم لي بشرح هذا الكود

Lr = Cells(Rows.Count, "A").End(xlUp).Row
If Me.ComboBox1.Value = "" Then: Exit Sub
If Me.ComboBox1.Value = "جدول1" Then
For r = 1 To 9
Sheet1.Cells(Lr + 1, r).Value = Me.Controls("TEXTBOX" & r)
Next
End If
LR1 = Cells(Rows.Count, "J").End(xlUp).Row
If Me.ComboBox1.Value = "جدول2" Then
For rr = 1 To 9
Sheet1.Cells(LR1 + 1, rr).Offset(0, 9) = Me.Controls("TEXTBOX" & rr)
Next
End If
LR2 = Cells(Rows.Count, "S").End(xlUp).Row
If Me.ComboBox1.Value = "جدول3" Then
For rr = 1 To 9
Sheet1.Cells(LR2 + 1, rr).Offset(0, 18) = Me.Controls("TEXTBOX" & rr)
Next
End If
LR3 = Cells(Rows.Count, "AB").End(xlUp).Row
If Me.ComboBox1.Value = "جدول4" Then
For rr = 1 To 9
Sheet1.Cells(LR3 + 1, rr).Offset(0, 27) = Me.Controls("TEXTBOX" & rr)
Next
End If
ComboBox1_Change
إبراهيم ابوليله

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

قام بنشر
قام بنشر

اخى الجموعى

Lr = Cells(Rows.Count, "A").End(xlUp).Row
تحديد اخر سطر به بيانات فى العمود الاول
If Me.ComboBox1.Value = "" Then: Exit Sub
هنا نقول انه لو ان قيمة الكومبوبوكس1 فارغه ليس بها بيانات لا يتم تنفيذ شيئا
If Me.ComboBox1.Value = "جدول1" Then
هنا نقول ان لو قيمة الكومبوبوكس1 = جدول1 يتم تنفيذ الاتى
For r = 1 To 9
Rمتغير تم تعريفه على انه من 1 الى 9
وتم تعريفه بذلك لاننا قمنا بتسميه التيكست بوكس فى البدايه من 1 الى 11 بالتسلسل
Sheet1.Cells(Lr + 1, r).Value = Me.Controls("TEXTBOX" & r)
Sheet1.Cells(Lr + 1, r).Value-----هنا نقول ان قيمة اخر خليه بها بيانات+1(اى الخليه التى تلى اخر خليه بها بيانات) تساوى
Me.Controls("TEXTBOX" & r----قيمة التيكست بوكس من رقم 1 الى رقم 9 (المتغير الذى تم تعريفه سابقا R)
Next
Next----تقوم بتكرار العمليه السابقه من 1 الى 9
End If
هنا يتم انهاء عمل القيد طالما بدئناه ب IF
--------------------------------------------------------------------
وهكذا بالنسبه للباقى
-------------------------------------------------------------------
LR1 = Cells(Rows.Count, "J").End(xlUp).Row
If Me.ComboBox1.Value = "جدول2" Then
For rr = 1 To 9
Sheet1.Cells(LR1 + 1, rr).Offset(0, 9) = Me.Controls("TEXTBOX" & rr)
Next
End If
LR2 = Cells(Rows.Count, "S").End(xlUp).Row
If Me.ComboBox1.Value = "جدول3" Then
For rr = 1 To 9
Sheet1.Cells(LR2 + 1, rr).Offset(0, 18) = Me.Controls("TEXTBOX" & rr)
Next
End If
LR3 = Cells(Rows.Count, "AB").End(xlUp).Row
If Me.ComboBox1.Value = "جدول4" Then
For rr = 1 To 9
Sheet1.Cells(LR3 + 1, rr).Offset(0, 27) = Me.Controls("TEXTBOX" & rr)
Next
End If
ComboBox1_Change

أتمنى ان اكون استطعت توصيل المعلومه

فكما قلت سابقا

ان اشرح على قدر فهمى

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه


×
×
  • اضف...

Important Information

  I accept