ต้องการ add ข้อมูลจาก List box แรก ไปที่ List box 2

[yodpao.b]

ต้องการ add ข้อมูลจาก List box แรก ไปที่ List box 2
List box แรก คือ

1.JPG

List box 2 คือ

2.JPG

ปกติที่ทำ น่าจะต้องสั่งให้ add ลง ตารางใน sheet ก่อน แล้วจึงสั่งให้ List box 2 นำค่ามาใส่

แต่ถ้าเราต้องการให้มาใส่ใน List box 2 เลยโดยไม่ไปไว้ในตาราง ใน sheet
ทำได้ไหมครับ

code ยังไม่ได้เขียนครับ นึกไม่ออก
จึงอยากจะขอตัวอย่างหรือแนวทางการเขียนครับ

ขอบคุณครับ

การเรียกฟอร์ม คลิที่รูปด้านล่าง

0.JPG

[yodpao.b]

ไฟลแนบครับ

[snasui]

การ Add รายการไปยัง ListBox ใด ๆ ในฟอรัมนี้มีตัวอย่างจำนวนมากครับ ListBox Add Item here

หรือค้นจาก Google ก็จะยิ่งพบจำนวนมาก Listbox Add Item external

ซึ่งจะต้องเข้าใจในเข้าถึงรายการของ ListBox ต้นทางและปลายทาง เพื่อที่จะคัดลอกรายการไปวาง ลบรายการต้นทางทิ้ง ฯลฯ ได้ครับ

[yodpao.b]

ผมคิดว่าเจอ code ที่ต้องการแล้วครับ
คือ เลือกข้อมูลจาก List box 1 ไปไว้ใน List box 2

0.JPG

อ้างอิงจาก https://analysistabs.com/vba-code/excel ... m/listbox/

นำ code ด้านล่างไว้ ใน Module1

Code: Select all

Sub Get_ListBox_Selected_Items()
    'Variable declaration
    Dim iCnt As Integer
    
    'Get Selcted Items from ListBox1 to ListBox2
    For iCnt = 0 To lstDatabase.ListCount - 1
        'Check ListBox Item has selcted or not
        If lstDatabase.Selected(iCnt) = True Then
            ListBox2.AddItem lstDatabase.List(iCnt)
        End If
    Next
End Sub

เมื่อเลือกข้อมูลใน listbox"lstDatabase" แล้วคลิกปุ่ม add เกิดบัค lstDatabase ครับ
รบกวนอาจารย์ช่วยดูหน่อยครับ

[yodpao.b]

ขอรอทำเองก่อนครับคิดว่าน่าจะทำได้