هل من طريقة لإدراج قيمة من ComboBox إلى ListBox

[الجموعي]

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

المطلوب في المرفق

المصنف1.rar

[شوقي ربيع]

السلام عليكم

هذيه الطريقة تعتمد على تحميل محتوى اليست الى مصفوفة ديناميكية ومن ثما تغير الخلية التي تريد ثم ارجاع محتوى المصفوفة الى اليست بعد التعديل

تحياتي للجميع

المصنف1.rar

[الجموعي]

السلام عليكم

هذيه الطريقة تعتمد على تحميل محتوى اليست الى مصفوفة ديناميكية ومن ثما تغير الخلية التي تريد ثم ارجاع محتوى المصفوفة الى اليست بعد التعديل

تحياتي للجميع

أستاذي القدير لم أفهم ما قصدته

هذيه الطريقة تعتمد على تحميل محتوى اليست الى مصفوفة ديناميكية ومن ثما تغير الخلية التي تريد ثم ارجاع محتوى المصفوفة الى اليست بعد التعديل

فعلا هو المطلوب جزاك الله خيرا

ياريت إضافة ليصبح  في كامل العمود في الليست بوكس حسب البيانات المدرجة في الليست بوكس

حاليا بيانات اربع صفوف وقيمة الكمبوبوكس تظهر فقط في الصف الأول في الليست بوكس

أنا اضفت للكود الأسطر التالية هو المطلوب لكن اريد بمدى ديناميكي حسب الصفوف في الليست بوكس

X(2, 1) = sText
X(2, 2) = sText
X(2, 3) = sText
X(2, 4) = sText

[شوقي ربيع]

تفضل هذا الحل ليكون الادخال ديناميكي

Dim X()
Dim R As Long, RR As Long
Dim C As Integer
    Dim sText As String: sText = Me.ComboBox1.Text & " " & Me.ComboBox2.Text

With ListBox1
    For R = 0 To .ListCount - 1
        RR = RR + 1
        ReDim Preserve X(1 To 4, 1 To RR)
        For C = 1 To 4
        If C = 2 Then X(C, RR) = sText Else X(C, RR) = .List(R, C - 1)
        Next
    Next

End With

ListBox1.Column = X
Erase X

(أستاذي القدير لم أفهم ما قصدته)

الامر بسيط ان كنت تفهم المصفوفات

المصفوفة عبارة عن جدول لاكن ليس في الشيت انما في ذاكرة الفيوجل

ما قمت به هو اني حملت محتولى اليست بوكس الى مصفوفة دينامكية علما انه يمكنا التحكم في حجم المصفوفة الديناميكية كما نشاء  .... لازمها درس طويل

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

http://www.officena.net/ib/index.php?showtopic=42397

http://www.officena.net/ib/index.php?showtopic=42584

المهم بعد تحميل محتوى اليست بوكس الى المصفوفة مع ادخال البيانات التي نريد اذخالها و الى المكان او الخلية التي نريدها بكل بساطة نعيد ملئ اليست بوكس هذه المرة بمحتو المصفوفة التي عملناها فقط

ارجو ان تكون الفكرة قد وصلت

تحياتي للجميع

[الجموعي]

تفضل هذا الحل ليكون الادخال ديناميكي

Dim X()
Dim R As Long, RR As Long
Dim C As Integer
    Dim sText As String: sText = Me.ComboBox1.Text & " " & Me.ComboBox2.Text

With ListBox1
    For R = 0 To .ListCount - 1
        RR = RR + 1
        ReDim Preserve X(1 To 4, 1 To RR)
        For C = 1 To 4
        If C = 2 Then X(C, RR) = sText Else X(C, RR) = .List(R, C - 1)
        Next
    Next

End With

ListBox1.Column = X
Erase X

(أستاذي القدير لم أفهم ما قصدته)

الامر بسيط ان كنت تفهم المصفوفات

المصفوفة عبارة عن جدول لاكن ليس في الشيت انما في ذاكرة الفيوجل

ما قمت به هو اني حملت محتولى اليست بوكس الى مصفوفة دينامكية علما انه يمكنا التحكم في حجم المصفوفة الديناميكية كما نشاء  .... لازمها درس طويل

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

http://www.officena.net/ib/index.php?showtopic=42397

http://www.officena.net/ib/index.php?showtopic=42584

المهم بعد تحميل محتوى اليست بوكس الى المصفوفة مع ادخال البيانات التي نريد اذخالها و الى المكان او الخلية التي نريدها بكل بساطة نعيد ملئ اليست بوكس هذه المرة بمحتو المصفوفة التي عملناها فقط

ارجو ان تكون الفكرة قد وصلت

تحياتي للجميع

بارك الله فيك على التوضيح استاذي الكريم

جعلها الله في موازين حسناتك

تحياتي