ชุมชนความรู้ Excel และ Microsoft 365 สำหรับการทำงานจริง ตั้งแต่สูตร ฟังก์ชัน VBA, Power Query, PivotTable, Dashboard และ AI จนถึงการวิเคราะห์ข้อมูลและพัฒนาระบบงานในองค์กร
http://snasui.com/
ใช้การ Assign ค่า ให้กับ ComboBox ครับ ยกตัวอย่างเช่น
Code: Select all
combobox1.text = sheets("Sheet1").range("a1")ได้แล้วครับ ComboBox1 แต่ว่าในfrom มี ComboBox มากกว่า 1 และต้องการข้อมูลมาในลักษณะเดียวกันต้องเพิ่มโค้ดอย่างไรครับ
สมมุติว่าต้องการให้คอลัมน์ 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