VBA additem ใน Range

[akekorn]

สวัสดีครับ เพื่อนสมาชิกทุกท่าน
วันนี้ผมมีปัญหา รบกวนครับคือผมเขียน VBA เพิ่มข้อมูลเข้า combobox จาก range แต่มี error หา object ไม่พบ
รบกวนขอความช่วยเหลือด้วยครับ
โดยผมได้แนบ file มาด้วย
และ ฺVBA ที่เขียนมาด้วยครับ
ขอบคุณครับผม

Code: Select all

Sub TESTADDITEM()
ROW_REV = 1
Dim SHEETSS As Worksheet
Set SHEETSS = Sheets("DATA")
ComboBox1.Clear

Do
DoEvents
ROW_REV = ROW_REV + 1
ITEM_REVIEW = SHEETSS.Range("A" & ROW_REV)
    If Len(ITEM_REVIEW) > 0 Then ComboBox1.AddItem (ITEM_REVIEW)
Loop Until ITEM_REVIEW = ""
ComboBox1.ListIndex = 0
End Sub

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Sub TESTADDITEM()
'ROW_REV = 1
    Dim SHEETSS As Worksheet
    Set SHEETSS = Sheets("DATA")
    SHEETSS.OLEObjects(1).ListFillRange = ""
    Do
        DoEvents
        ROW_REV = ROW_REV + 1
        ITEM_REVIEW = SHEETSS.Range("A" & ROW_REV).Value
        If Len(ITEM_REVIEW) > 0 Then SHEETSS.OLEObjects(1).Object.AddItem ITEM_REVIEW
    Loop Until ITEM_REVIEW = ""
    SHEETSS.OLEObjects(1).Object.ListIndex = 0
End Sub

[akekorn]

ทำได้แล้วครับ
ขอบคุณครับผม

[akekorn]

รบกวนอีกนิดครับผม
พอดีผมลอง แยก code ออกมาจะ clear combobox โดยใช้คำสั่ง

Sub clear()

Dim SHEETSS As Worksheet
Set SHEETSS = Sheets("DATA")
SHEETSS.OLEObjects(1).ListFillRange = ""
' SHEETSS.OLEObjects(1).Clear

end sub
สองแบบนี้ไม่สามารถ clear ข้อความได้ครับ
ขอความอนุเคราะห์ว่าผมควรจะแก้ไขอย่างไรครับผม

ขอบคุณครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Sub TestClear()
    Dim SHEETSS As Worksheet
    Set SHEETSS = Sheets("DATA")
    SHEETSS.OLEObjects(1).Object.clear
End Sub

[akekorn]

ขอบคุณครับผม