Snasui Excel Forum

Posted: **Fri Jul 19, 2013 11:47 am**

เรียนอาจารย์ทุกท่านครับ

วันนี้ผมมีปัญหาเกี่ยว check box ไม่ทำงาน (ทำงานแค่บางตัว)

จากไฟล์แนบครับ จะมีแค่ตัวเดียวที่ทำงานคือ 501 - 600 ที่เวลา check ไปแล้วจะโชว์หรือซ่อน sheet ที่ตั้งเอาไว้ได้ครับ

ส่วนที่เหลือจะไม่สามารถทำได้ จะมีแค่การเปลี่ยนสีเวลา check ลงไปเท่านั้น

ผมจึงอยากขอคำแนะนำจากอาจารย์ทุกท่านครับ

ขอบคุณครับ

Posted: **Fri Jul 19, 2013 7:35 pm**

ลองลบ ActiveX Controls CheckBox ทิ้งไปให้หมดให้เหลือแต่ Form Controls CheckBox

จากนั้นปรับ Code ตามตัวอย่างด้านล่าง

Code: Select all

Sub Check_box_201()
    Application.ScreenUpdating = False
    With ActiveSheet.CheckBoxes("Check Box 19")
        If .Value = 1 Then
            .Interior.ColorIndex = 36
            Sheets("201-300").Visible = xlSheetVisible
        Else
            Sheets("201-300").Visible = xlSheetHidden
            .Interior.ColorIndex = 15
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Posted: **Mon Jul 22, 2013 8:06 am**

ขอบคุณมากครับสำหรับคำแนะนำ สามารถใช้งานได้แล้วครับ

Snasui Excel Forum

[VBA] Check box controls

[VBA] Check box controls

Re: [VBA] Check box controls

Re: [VBA] Check box controls