วิธีทำให้ชื่อแท็บชีตเท่ากับค่าเซลล์ใน Excel

บางครั้งคุณอาจต้องเปลี่ยนชื่อเวิร์กชีตให้ตรงกับค่าเซลล์ที่ระบุ ในบทความนี้ เราจะแสดงวิธีการตั้งชื่อแท็บชีตให้เท่ากับค่าเซลล์ใน Excel

ตั้งชื่อแท็บชีตให้เท่ากับค่าเซลล์ด้วยรหัส VBA
ตั้งชื่อแท็บชีตให้เท่ากับค่าเซลล์ด้วย Kutools for Excel

ตั้งชื่อแท็บชีตให้เท่ากับค่าเซลล์ด้วยรหัส VBA

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

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการทำให้ชื่อแผ่นงานเท่ากับค่าเซลล์จากนั้นคลิก ดูรหัส จากเมนูคลิกขวา ดูภาพหน้าจอ:

2. คัดลอกและวางโค้ดด้านล่างลงในหน้าต่างรหัสจากนั้นกด อื่น ๆ + Q พร้อมกันเพื่อปิดหน้าต่าง Microsoft Visual Basic for Applications

รหัส VBA: สร้างแท็บแผ่นงานให้เท่ากับค่าเซลล์

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

หมายเหตุ: ในโค้ด A1 คือเซลล์ที่มีค่าที่คุณต้องใช้เป็นชื่อแผ่นงาน คุณสามารถเปลี่ยนได้ตามต้องการ

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

ตั้งชื่อแท็บชีตให้เท่ากับค่าเซลล์ด้วย Kutools for Excel

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

1 คลิก Kutools พลัส > แผ่นงาน > เปลี่ยนชื่อแผ่นงานหลายแผ่น. ดูภาพหน้าจอ:

2 ใน เปลี่ยนชื่อแผ่นงานหลายแผ่น คุณต้องทำดังนี้

คุณสามารถเห็นแผ่นงานที่เลือกถูกเปลี่ยนชื่อตามค่าช่วงที่ระบุได้ทันทีตามภาพด้านล่างที่แสดง

หมายเหตุ : :

ตั้งชื่อแท็บชีตให้เท่ากับค่าเซลล์ด้วย Kutools for Excel