check ว่า Object ใช่ combo box หรือไม่

[ter-uni]

สวัสดีครับมีข้อสงสัยรบกวนผู้รู้หน่อยนะครับ หากต้องการ check ว่า Object ที่มีอยู่บน worksheet เป็นชนิด combo box หรือเปล่า?

จะมี function สำหรับ VBA Code ที่จะ check หรือไม่หรือควรใช้แนวทางอย่างไรถึงจะแก้ปัญหาดังกล่าวได้บ้างครับ รบกวนผู้รู้ช่วยตอบหน่อยนะครับ

[snasui]

สมมุติว่ากำลัง Check ที่ Sheet1 ลองใช้ Code ตามด้านล่างครับ ถ้าพบจะมี Message บอกว่าพบกี่อัน

Code: Select all

Sub CheckExistComboBox()
Dim i As Integer
Dim k As Integer
Dim l As Integer
k = Worksheets(1).Shapes.Count
    For i = 1 To k
            If Left(Worksheets(1).Shapes(i).Name, 4) = "Comb" Then
                l = l + 1
            End If
    Next i
If l > 0 Then
    MsgBox " You have " & l & " ComboBox(s)."
End If
End Sub

[ter-uni]

ขอบคุณ คุณ snasui มาก ๆ เลยนะครับ แต่รบกวนเพิ่มเติมอีกนิดนะครับ ถ้าหากต้องการ add ข้อมูลเข้า combo box ผมลองใช้คำสั่งดังนี้ครับ Worksheets(1).Shapes(i).addItem "Tesiting" ซึ่งปรากฎว่า Error ครับ

จึงอยากรู้กวนผู้รู้ช่วยแนะนำหน่อยนะครับว่าควรใช้คำสั่งอย่างไรครับผม ขอบคุณล่วงหน้านะครับ

[snasui]

ลองใช้ Code นี้ครับ

Code: Select all

Sheets("Sheet1").ComboBox1.AddItem ("Item1")

ดูรายละเอียดได้ที่นี่ครับ http://www.thecodecage.com/forumz/excel ... bobox.html

[ter-uni]

ขอบคุณคุณ snasui มากๆ นะครับจะลองนำไปประยุกต์ใช้ดูนะครับ