ให้ซ่อนและโชว์ ปุ่ม button ตามเงื่อนไข

[Vespaclassic]

สวัสดีครับ
ผมอยากให้ button แสดง และ ไม่แสดงตามเงื่อนไขครับ

เช่น เมื่อเซล a1 ไม่ว่างให้ โชวปุ่มออกมา
ถ้าว่างไม่โชวปุ่ม

ผมได้ลองทำ เกิด error ไม่สามารถแก้ได้ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "" Then
        Me.CommandButton1.Visible = True
    Else
        Me.CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub

error จะชี้ไปที่

Code: Select all

.CommandButton1

และไฮไลทสีเหลือง ที่

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

[Vespaclassic]

แนบไฟล์ครับ

[puriwutpokin]

ผมลองแอด ปุ่มแล้วลองโค้ดก็ปกตินะครับ ตามไฟล์แนบ

[Vespaclassic]

ผมลองแอด ปุ่มแล้วลองโค้ดก็ปกตินะครับ ตามไฟล์แนบ

ขอบคุณมากครับ

ผมงงมากเลย ตอนนี้ได้ละครับ