วิธีสร้างชื่อปุ่มคำสั่งแบบไดนามิกใน 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 มีการเปลี่ยนแปลง ชื่อของปุ่มคำสั่งจะเปลี่ยนเป็นค่าเดียวกันโดยอัตโนมัติ
บทความที่เกี่ยวข้อง:
- วิธีใช้ปุ่มคำสั่งเพื่อบันทึกแผ่นงานที่ใช้งานเป็นไฟล์ PDF ใน Excel
- วิธีแทรกแถวใหม่ว่างโดยอัตโนมัติโดยปุ่มคำสั่งใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
