ارجوا المساعدة في List box وخاصية Multislect

[nicola]

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

وبارك الله بالقائمين على هذا المنتدى الرائع

الذي ما بخل اعضائه في نشر العلم والمعرفة

اصدقائي الاكارم

لدي طلب ارجوا مساعدتكم فية حيث انني اعمل على مشروع

وقد احتجت الى استخدام الست بوكس بخاصية الاختيار المتعدد

وقد واجهت بعض الصعوبة في تطويع هذة الخاصية لما اريد

لذلك ارجوا مساعدتكم

والشرح موجود في المرفقات

وازكم الله من واسع علمه

مساعدة في لست بوكس و Multislect.rar

[عبدالله باقشير]

السلام عليكم

في الفورم 2

كود الترحيل

حسب طلبك هذا

اريد عند الضغط على زر ان ترحيل البيانات في الست بوكس الي خلية واحد , لان الست بوكس سوف يحتوي على اكثر من قيمة

استبد الكود هذا للزر:

Private Sub CommandButton1_Click()

Dim x As String

Dim i As Integer, ii As Integer

ii = Me.ListBox1.ListCount - 1

For i = 0 To ii

    x = x & CStr(Me.ListBox1.List(i)) & IIf(i = ii, "", Chr(10))

Next i


With Sheets("DB")

    Endrow = .Range("A1").CurrentRegion.Rows.Count

    .Cells(Endrow + 1, 1).Value = Endrow

    .Cells(Endrow + 1, 2).Value = TextBox1.Value

    .Cells(Endrow + 1, 3).Value = TextBox2.Value

    .Cells(Endrow + 1, 4).Value = TextBox3.Value

    .Cells(Endrow + 1, 5).Value = x

End With


End Sub

في امان الله

[nicola]

بارك الله فيك اخي عبد الله

وجزاك الله كل خير على ما تقدمة من علم ومساعدة للناس

واتمنى ان تكمل معروفك معي تحسين عمل الملف:

1- تفعيل خيار التعديل والحذف في اللست بوكس.

2- ان يكون اظهار القيم في اللست بوكس ديناميكي اي يظهر القيم الجديدة فور اضافتها, وان تظهر فقط القيم بدون الفراعات.

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

ارجو المساعدة في ايجاد طريقة لكي تكون عملية التصفية دقيقة.

وزادك الله من واسع علمه

مساعدة في لست بوكس و Multislect.rar