Snasui Excel Forum

Posted: **Mon Nov 07, 2022 12:30 am**

เรียนอาจารย์และผู้รู้ทุกท่านครับ
ผมหัดสร้าง UserForm โดยมี Combo Box เป็นชื่อชีตต่างๆ และเมื่อคลิกปุ่ม CommandButton แล้วให้เปิดชีตชื่อที่เลือกใน Combo Box ตามไฟล์แนบ
พบปัญหาคือหาก Combo Box ว่างแล้วเราเผลอคลิกปุ่ม CommandButton จะมีข้อความแจ้งให้ debug
กรณีนี้หากไม่ต้องการให้มีข้อความขึ้นมาแจ้งเตือนต้องแก้ไข code อย่างไรครับ
ขอบพระคุณมากครับ

Code: Select all

Private Sub CommandButton1_Click()
Dim c As String
c = ComboBox1.Text
ThisWorkbook.Sheets(c).Visible = True
ThisWorkbook.Sheets(c).Select
End Sub

debug.png

Posted: **Mon Nov 07, 2022 12:31 am**

debug1.xlsm

Posted: **Mon Nov 07, 2022 5:19 am**

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

Code: Select all

Private Sub CommandButton1_Click()
    Dim c As String
    c = ComboBox1.Text
    If c <> "" Then
        ThisWorkbook.Sheets(c).Visible = True
        ThisWorkbook.Sheets(c).Select
    Else
        MsgBox "Please select sheet name.", vbInformation
    End If
End Sub

Posted: **Mon Nov 07, 2022 11:56 am**

ได้ผลลัพท์ตามที่ต้องการครับ
ขอขอบพระคุณท่านอาจารย์ snasui เป็นอย่างสูงครับ

Snasui Excel Forum

debug VBA Code เมื่อ Combo Box ใน UserForm เป็นค่าว่าง

debug VBA Code เมื่อ Combo Box ใน UserForm เป็นค่าว่าง

Re: debug VBA Code เมื่อ Combo Box ใน UserForm เป็นค่าว่าง

Re: debug VBA Code เมื่อ Combo Box ใน UserForm เป็นค่าว่าง

Re: debug VBA Code เมื่อ Combo Box ใน UserForm เป็นค่าว่าง