Page 1 of 1
สอบถามเรื่อง ComboBox
Posted: Sun Jan 08, 2012 9:26 am
by thanawat
เราสร้าง ComboBox ใน form แล้วดึงข้อมูลในคอลัม A1 ในชีต1 มาแสดงได้อย่างไรครับ
Re: สอบถามเรื่อง ComboBox
Posted: Sun Jan 08, 2012 9:28 am
by snasui
ใช้การ Assign ค่า ให้กับ ComboBox ครับ ยกตัวอย่างเช่น
Code: Select all
combobox1.text = sheets("Sheet1").range("a1")
Re: สอบถามเรื่อง ComboBox
Posted: Sun Jan 08, 2012 9:32 am
by thanawat
ขอบคุณครับ
ขอถามต่นิดหนึ่งครับ ถ้าจะเอาทั้งคอลัม มาเป็นรายการให้เลือกละครับต้องเขียนอย่างไรครับ
Re: สอบถามเรื่อง ComboBox
Posted: Sun Jan 08, 2012 9:43 am
by snasui
ดูตัวอย่างที่นี่แล้วปรับใช้ดูครับ
viewtopic.php?p=13158#p13158
Re: สอบถามเรื่อง ComboBox
Posted: Sun Jan 08, 2012 2:45 pm
by thanawat
ขอบคุณครับ สุดยอดจริงๆ ครับ
Re: สอบถามเรื่อง ComboBox
Posted: Sun Jan 08, 2012 8:13 pm
by thanawat
ได้แล้วครับ ComboBox1 แต่ว่าในfrom มี ComboBox มากกว่า 1 และต้องการข้อมูลมาในลักษณะเดียวกันต้องเพิ่มโค้ดอย่างไรครับ
แต่ข้อมูลอยู่กันละคอลัมครับ
Private Sub UserForm_Initialize()
Dim rall As Range
Dim r As Range
With Sheets("set")
Set rall = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
End With
For Each r In rall
ComboBox1.AddItem r
Next r
End Sub
Re: สอบถามเรื่อง ComboBox
Posted: Sun Jan 08, 2012 9:34 pm
by snasui
สมมุติว่าต้องการให้คอลัมน์ B อยู่ที่ ComboBox2 สามารถปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Private Sub UserForm_Initialize()
Dim rall As Range
Dim r As Range
With Sheets("set")
Set rall = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
End With
For Each r In rall
ComboBox1.AddItem r
ComboBox2.AddItem r.Offset(0,1)
Next r
End Sub