[VBA] Check box controls

[poipoi]

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

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

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

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

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

ขอบคุณครับ

[snasui]

ลองลบ 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

[poipoi]

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