ต้องการสร้างdropdownlist VBA จาก ฟอร์ม

[akekorn]

สวัสดีครับเพื่อนสมาชิกทุกท่าน
ผมมีเรื่องสอบถามเกี่ยวกับใส่ ข้อความใน combo box VBA โดยผมได้ลองทำดูแต่ไม่สามารถทำได้
พร้อมกันนี้ได้แนบตัวอย่างที่ได้ลองทำมาด้วยครับ
ขอบคุณครับ

[snasui]

ตัวอย่าง Code สำหรับการ Add Item ของ ComboBox ครับ

Code: Select all

Private Sub UserForm_Initialize()
    With FrmData.cbomonth
        .Clear
        .AddItem "Een nieuwe start"
        .AddItem "Alles heeft zijn tijd"
        .AddItem "De wereld aan je voeten"
        .AddItem "Een levend boek"
        .AddItem "Drempels"
        .AddItem "Kerstmis"
        .AddItem "Confituur of choco"
        .AddItem "Hoe groot is de hemel?"
        .AddItem "Ongelovige Thomas"
        .AddItem "Feesten"
        .AddItem "Er is er ??n jarig!"
        .AddItem "E?n van hart"
        .AddItem "Ervoor gaan"
        .AddItem "Groen gras"
        .AddItem "RELatie"
        .AddItem "Vele plaatjes"
        .AddItem "Iedereen fan"
        .AddItem "Schattenjacht"
        .AddItem "Lichtbakens"
        .AddItem "Rijke Luis"
        .AddItem "Hemel op aarde"
        .AddItem "Op bezoek"
    End With
End Sub

[akekorn]

ขอบคุณครับ