วิธีสร้างชื่อปุ่มคำสั่งแบบไดนามิกใน Excel

บทความนี้พูดถึงการเปลี่ยนชื่อปุ่ม Command แบบไดนามิกโดยมีการเปลี่ยนแปลงค่าเซลล์ที่ระบุ ตัวอย่างเช่นเมื่อค่าในเซลล์ A1 เปลี่ยนเป็น "test" ชื่อของปุ่ม Command บางปุ่มจะเปลี่ยนเป็น "test" โดยอัตโนมัติ

สร้างชื่อปุ่มคำสั่งแบบไดนามิกด้วยค่าเซลล์ด้วยรหัส VBA

สร้างชื่อปุ่มคำสั่งแบบไดนามิกด้วยค่าเซลล์ด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยให้คุณตั้งชื่อปุ่มคำสั่งแบบไดนามิกด้วยค่าเซลล์ที่ระบุในแผ่นงาน กรุณาดำเนินการดังนี้

1 คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่ง (ActiveX Control) เพื่อแทรกปุ่มคำสั่งลงในแผ่นงาน ดูภาพหน้าจอ:

2. หลังจากใส่ปุ่มคำสั่งแล้วให้คลิกขวาที่แท็บแผ่นงานแล้วคลิก ดูรหัส จากเมนูคลิกขวาตามภาพด้านล่างที่แสดง:

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

รหัส VBA: สร้างชื่อปุ่มคำสั่งแบบไดนามิกด้วยค่าเซลล์

Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xShapeRg As ShapeRange
    On Error Resume Next
    If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
        Me.CommandButton1.Caption = Target.Text
        Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
        If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
        Application.EnableEvents = False
        xShapeRg.Select
        Application.EnableEvents = True
        Selection.Name = Target.Text
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
        xStr = Target.Text
    End If
End Sub

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

4 กด อื่น ๆ + Q ปุ่มเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

5. ปิดโหมดออกแบบโดยคลิก ผู้พัฒนา > โหมดการออกแบบ.

จากนี้ไป ชื่อของปุ่มคำสั่งจะเปลี่ยนไปแบบไดนามิกด้วยค่าเซลล์ที่ระบุในแผ่นงานของคุณ

ตามภาพด้านล่างนี้ เมื่อค่าของเซลล์ A1 มีการเปลี่ยนแปลง ชื่อของปุ่มคำสั่งจะเปลี่ยนเป็นค่าเดียวกันโดยอัตโนมัติ

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

บทความที่เกี่ยวข้อง:

• วิธีใช้ปุ่มคำสั่งเพื่อบันทึกแผ่นงานที่ใช้งานเป็นไฟล์ PDF ใน Excel
• วิธีแทรกแถวใหม่ว่างโดยอัตโนมัติโดยปุ่มคำสั่งใน Excel