Page 1 of 1
สอบถามการใช้ Listbox rowsource จากคนละ workbook
Posted: Fri Nov 27, 2020 12:02 pm
by beeratius
สวัสดีครับรบกวนสอบถามการอ้างอิงข้อมูลเพื่อเอามาใช้ใน listbox จากต่าง workbook กันครับ
ดึงข้อมูลจาก
workbook ชื่อ Data
Sheet ชื่อ Database
range ตั้งแต่ A2 ถึง I2
มาโชว์ใน Listbox1
ผมใช้ Code ตามนี้ครับแต่ Run แล้วไม่ผ่านครับ
ขอคำแนะนำด้วยครับ
Code: Select all
With form1
.ListBox1.RowSource = Workbooks("data.xlsx").Sheets("Database").Range("A2:I2")
End With
Re: สอบถามการใช้ Listbox rowsource จากคนละ workbook
Posted: Fri Nov 27, 2020 2:06 pm
by parakorn
มีไฟล์แนบไหมครับ
Re: สอบถามการใช้ Listbox rowsource จากคนละ workbook
Posted: Fri Nov 27, 2020 4:59 pm
by beeratius
ขอบคุณครับ
ผมแนบให้ 2 ไฟล์ครับ
1.Book1.xlsx ใช้เป็นไฟล์ที่ใช้อ้างอิงข้อมูล
2.Book2.xlsm เป็นไฟล์ที่ต้องการดึงข้อมุลจาก Book1 มาแสดงใน listbox ครับ
Code: Select all
Private Sub UserForm_Initialize()
With UserForm1
.ListBox1.RowSource = Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1:B17")
.ListBox1.ColumnCount = 2
.ListBox1.ColumnHeads = True
.ListBox1.ColumnWidths = "200,200"
End With
End Sub
Re: สอบถามการใช้ Listbox rowsource จากคนละ workbook
Posted: Fri Nov 27, 2020 7:52 pm
by snasui
ตัวอย่าง Code ครับ
.ListBox1.RowSource = "[Book1.xlsx]Sheet1!A1:B17"
Re: สอบถามการใช้ Listbox rowsource จากคนละ workbook
Posted: Fri Nov 27, 2020 11:00 pm
by beeratius
ใช้ได้ตามที่ต้องการครับอาจารย์ ขอบคุณครับ