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

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

 

label-SSSS.rar

[حمادة عمر]

ملاحظة او طلب

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

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

 

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

 

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

[الجموعي]

السلام عليكم

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

بارك الله فيك

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

 

label-SSSS.rar

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

كود رائع جدا

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

ربي يحفظك

[حمادة عمر]

بارك الله فيك

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

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

[الجموعي]

السلام عليكم

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

بارك الله فيك

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

 

label-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

[الجموعي]

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

وفي هذا الكود توجد الجداول 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

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

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

تم تعديل فبراير 24, 2014 بواسطه الجموعي

[حمادة عمر]

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

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

[عبد الرحمن شفيق]

منتهي الجمال والحلاوة والروعة

استاذ / حمادة عمر

استاذ / رجب جاويش

لكم مني ارق التحيات والتقديرات

[حمادة عمر]

بارك الله فيك

اخي / عبد الرحمن شفيق

[الجموعي]

في الجدول 1

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

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

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

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

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

اخى رجب جاويش

باك الله فقيك اخى

على الكود الرائع

مشكورا على الرد

وهذا ما تعودناه منكم

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

اخى حماده عمر

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

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

بارك الله فيك

اخى الجموعى

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

[الجموعي]

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

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

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

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

 

label-SS.rar

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

اخى الجموعى

جرب المرفق

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

 

label-SS.rar

[الجموعي]

اخى الجموعى

جرب المرفق

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

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

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

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

هل لاحظت ذلك

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

اخى الجموعى

عزرا فقد كنت فى عجلة من امرى

تفضل

label-SS.rar

[الجموعي]

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

بارك الله فيك

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

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

تم تعديل فبراير 25, 2014 بواسطه الجموعي

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

اخى الجموعى

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

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

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

استطعت

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

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

[حمادة عمر]

اخى حماده عمر

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

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

بارك الله فيك

اخى الجموعى

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

 

 

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

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

[الجموعي]

اخى الجموعى

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

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

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

استطعت

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

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

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

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

[الجموعي]

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

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

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

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

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

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