Page 1 of 1
check ว่า Object ใช่ combo box หรือไม่
Posted: Tue Jun 01, 2010 11:26 am
by ter-uni
สวัสดีครับมีข้อสงสัยรบกวนผู้รู้หน่อยนะครับ หากต้องการ check ว่า Object ที่มีอยู่บน worksheet เป็นชนิด combo box หรือเปล่า?
จะมี function สำหรับ VBA Code ที่จะ check หรือไม่หรือควรใช้แนวทางอย่างไรถึงจะแก้ปัญหาดังกล่าวได้บ้างครับ รบกวนผู้รู้ช่วยตอบหน่อยนะครับ
Re: check ว่า Object ใช่ combo box หรือไม่
Posted: Tue Jun 01, 2010 7:18 pm
by 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
Re: check ว่า Object ใช่ combo box หรือไม่
Posted: Wed Jun 02, 2010 4:43 pm
by ter-uni
ขอบคุณ คุณ snasui มาก ๆ เลยนะครับ แต่รบกวนเพิ่มเติมอีกนิดนะครับ ถ้าหากต้องการ add ข้อมูลเข้า combo box ผมลองใช้คำสั่งดังนี้ครับ Worksheets(1).Shapes(i).addItem "Tesiting" ซึ่งปรากฎว่า Error ครับ
จึงอยากรู้กวนผู้รู้ช่วยแนะนำหน่อยนะครับว่าควรใช้คำสั่งอย่างไรครับผม ขอบคุณล่วงหน้านะครับ
Re: check ว่า Object ใช่ combo box หรือไม่
Posted: Wed Jun 02, 2010 7:08 pm
by snasui
ลองใช้ Code นี้ครับ
Code: Select all
Sheets("Sheet1").ComboBox1.AddItem ("Item1")
ดูรายละเอียดได้ที่นี่ครับ
http://www.thecodecage.com/forumz/excel ... bobox.html
Re: check ว่า Object ใช่ combo box หรือไม่
Posted: Thu Jun 03, 2010 11:14 am
by ter-uni
ขอบคุณคุณ snasui มากๆ นะครับจะลองนำไปประยุกต์ใช้ดูนะครับ
