สอบถามเรื่อง ComboBox

[thanawat]

เราสร้าง ComboBox ใน form แล้วดึงข้อมูลในคอลัม A1 ในชีต1 มาแสดงได้อย่างไรครับ

[snasui]

ใช้การ Assign ค่า ให้กับ ComboBox ครับ ยกตัวอย่างเช่น

Code: Select all

combobox1.text = sheets("Sheet1").range("a1")

[thanawat]

ขอบคุณครับ
ขอถามต่นิดหนึ่งครับ ถ้าจะเอาทั้งคอลัม มาเป็นรายการให้เลือกละครับต้องเขียนอย่างไรครับ

[snasui]

ดูตัวอย่างที่นี่แล้วปรับใช้ดูครับ viewtopic.php?p=13158#p13158

[thanawat]

ดูตัวอย่างที่นี่แล้วปรับใช้ดูครับ viewtopic.php?p=13158#p13158

ขอบคุณครับ สุดยอดจริงๆ ครับ

[thanawat]

ดูตัวอย่างที่นี่แล้วปรับใช้ดูครับ viewtopic.php?p=13158#p13158

ได้แล้วครับ 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

[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