Page 1 of 1
ต้องการ add ข้อมูลจาก List box แรก ไปที่ List box 2
Posted: Sat May 16, 2020 6:30 am
by 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
Re: ต้องการ add ข้อมูลจาก List box แรก ไปที่ List box 2
Posted: Sat May 16, 2020 6:38 am
by yodpao.b
ไฟลแนบครับ
Re: ต้องการ add ข้อมูลจาก List box แรก ไปที่ List box 2
Posted: Sat May 16, 2020 8:13 am
by snasui
การ Add รายการไปยัง ListBox ใด ๆ ในฟอรัมนี้มีตัวอย่างจำนวนมากครับ
ListBox Add Item here
หรือค้นจาก Google ก็จะยิ่งพบจำนวนมาก
Listbox Add Item external
ซึ่งจะต้องเข้าใจในเข้าถึงรายการของ ListBox ต้นทางและปลายทาง เพื่อที่จะคัดลอกรายการไปวาง ลบรายการต้นทางทิ้ง ฯลฯ ได้ครับ
Re: ต้องการ add ข้อมูลจาก List box แรก ไปที่ List box 2
Posted: Sat May 16, 2020 12:24 pm
by 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 ครับ
รบกวนอาจารย์ช่วยดูหน่อยครับ
Re: ต้องการ add ข้อมูลจาก List box แรก ไปที่ List box 2
Posted: Sat May 16, 2020 4:31 pm
by yodpao.b
ขอรอทำเองก่อนครับคิดว่าน่าจะทำได้