วิธีเปิดหรือปิดใช้งานปุ่มตามค่าเซลล์ใน Excel

บทความนี้ฉันจะพูดถึงวิธีการบางอย่างในการเปิดหรือปิดใช้งานปุ่มตามค่าเซลล์ในแผ่นงาน Excel

เปิดหรือปิดใช้งานปุ่มสองปุ่มตามข้อมูลสองคอลัมน์ด้วยรหัส VBA

เปิดหรือปิดใช้งานปุ่มตามค่าเซลล์สองค่าด้วยรหัส VBA

เปิดหรือปิดใช้งานปุ่มสองปุ่มตามข้อมูลสองคอลัมน์ด้วยรหัส VBA

ตัวอย่างเช่นฉันมีปุ่มคำสั่งสองปุ่มในแผ่นงานถ้าคอลัมน์ A มีข้อมูลปุ่ม 1 จะเปิดใช้งานและปุ่ม 2 ปิดใช้งาน ถ้าคอลัมน์ C มีข้อมูลปุ่ม 2 จะเปิดใช้งานและปุ่ม 1 ปิดใช้งาน เพื่อแก้ปัญหานี้รหัส VBA ต่อไปนี้อาจช่วยคุณได้

1. คลิกขวาที่แผ่นงานที่มีปุ่มจากนั้นเลือก ดูรหัส จากเมนูบริบทดูภาพหน้าจอ:

2. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ดด้านล่างลงในโมดูลว่าง:

รหัส VBA: เปิดหรือปิดสองปุ่มตามสองคอลัมน์:

Private Sub Worksheet_Change(ByVal Target As Range)
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
        CommandButton2.Enabled = True
    End If
    If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
        CommandButton1.Enabled = True
    End If
End Sub

หมายเหตุ: ในโค้ดด้านบน ปุ่มคำสั่ง1 และ ปุ่มคำสั่ง2 คือชื่อปุ่มต่างๆ A: A และ ค: ค คือสองคอลัมน์ที่คุณใช้เปิดหรือปิดใช้งานสองปุ่ม โปรดเปลี่ยนตามความต้องการของคุณ

3. จากนั้นให้บันทึกและปิดหน้าต่างโค้ด ตอนนี้คุณจะได้ผลลัพธ์ดังต่อไปนี้ตามที่คุณต้องการ:

(1.) หากพิมพ์ข้อมูลในคอลัมน์ A ปุ่ม 1 จะเปิดใช้งานและปุ่ม 2 จะปิดใช้งาน โปรดดูภาพหน้าจอ:

(2.) หากพิมพ์ข้อมูลในคอลัมน์ C ปุ่ม 2 จะเปิดใช้งานและปุ่ม 1 ถูกปิดใช้งาน ดูภาพหน้าจอ:

(3.) ทั้งคอลัมน์ A และคอลัมน์ C มีข้อมูล มีการเปิดใช้งานสองปุ่มทั้งหมด ดูภาพหน้าจอ:

(4.) ปุ่มสองปุ่มถูกปิดใช้งานทั้งหมดหากไม่มีข้อมูลในคอลัมน์ A และคอลัมน์ C โปรดดูภาพหน้าจอ:

เปิดหรือปิดใช้งานปุ่มตามค่าเซลล์สองค่าด้วยรหัส VBA

หากคุณต้องการเปิดใช้งานหรือปิดใช้งานปุ่มคำสั่งตามค่าเซลล์สองค่า เช่น เมื่อค่าใน A1 มากกว่าค่าใน B1 ปุ่มจะถูกเปิดใช้งาน มิฉะนั้น ปุ่มจะถูกปิดใช้งาน รหัส VBA ต่อไปนี้สามารถช่วยคุณได้

1. คลิกขวาที่แผ่นงานที่มีปุ่ม จากนั้นเลือก ดูรหัส จากเมนูบริบทในไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง โปรดคัดลอกและวางโค้ดด้านล่างลงในโมดูลว่าง ดูภาพหน้าจอ:

รหัส VBA: เปิดหรือปิดใช้งานปุ่มตามค่าเซลล์สองค่า:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TargetAdd As String
    Dim xTemp As Double
    On Error GoTo ExitSub
    TargetAdd = Target.Address
    CommandButton1.Enabled = False
    If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
        If Range("A1") > Range("B1") Then
            CommandButton1.Enabled = True
        End If
    End If
ExitSub:
End Sub

หมายเหตุ: ในโค้ดด้านบน A1 และ B1 คือค่าเซลล์ที่คุณใช้ CommandButton1 คือชื่อปุ่มให้เปลี่ยนเป็นของคุณเอง

2. จากนั้นให้บันทึกและปิดหน้าต่างโค้ด ตอนนี้ถ้าค่าเซลล์ใน A1 มากกว่า B1 ปุ่มจะเปิดใช้งาน มิฉะนั้นถ้าค่าเซลล์ใน A1 น้อยกว่า B1 ปุ่มจะถูกปิดใช้งาน ดูภาพหน้าจอ: