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

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

ขั้นตอนที่ 2: ในหน้าต่าง Microsoft Visual Basic for Applications ที่เปิดขึ้นให้วางรหัส VBA ต่อไปนี้ลงในหน้าต่างโมดูล

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

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

ขั้นตอนที่ 3: บันทึกรหัส VBA และปิดหน้าต่าง Microsoft Visual Basic for Application

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

หมายเหตุ:

1. หากเซลล์ที่ระบุว่างเปล่าเวิร์กชีตจะไม่ถูกเปลี่ยนชื่อ
2. หากคุณพิมพ์อักขระพิเศษลงในเซลล์ที่ระบุเช่น * จะปรากฏคำเตือนข้อผิดพลาด

ด้วย Kutools for Excel's เปลี่ยนชื่อแผ่นงานหลายแผ่น คุณสามารถตั้งชื่อแผ่นงานทั้งหมด / หลายแผ่นได้อย่างรวดเร็วด้วยเซลล์ที่ระบุในแผ่นงานที่เกี่ยวข้อง ตัวอย่างเช่นเปลี่ยนชื่อแผ่นงานแต่ละแผ่นด้วยค่าเซลล์ A1 ในแต่ละแผ่นงาน

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

2. ในการเปิดกล่องโต้ตอบเปลี่ยนชื่อแผ่นงานหลายแผ่นโปรด (ดูภาพหน้าจอด้านล่าง):

(1) ใน แผ่น โปรดตรวจสอบแผ่นงานที่คุณจะเปลี่ยนชื่อ
(2) ใน เปลี่ยนชื่อตัวเลือก โปรดตรวจสอบส่วน แทนที่ชื่อแผ่นงานต้นฉบับ ตัวเลือก;
(3) ใน ชื่อแผ่นงานใหม่ โปรดตรวจสอบส่วน เปลี่ยนชื่อแผ่นงานด้วยเซลล์เฉพาะ และระบุเซลล์ที่มีเนื้อหาที่คุณจะตั้งชื่อแผ่นงานที่เกี่ยวข้องด้วย
(4) คลิกไฟล์ Ok ปุ่ม

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

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

1 คลิกที่ Kutools พลัส > แผ่นงาน > เปลี่ยนชื่อแผ่นงาน.

2. ในการเปิดกล่องโต้ตอบเปลี่ยนชื่อแผ่นงานหลายแผ่นคุณต้อง (ดูภาพหน้าจอด้านล่าง):

(1) ใน แผ่น รายการตรวจสอบแผ่นงานที่คุณจะเปลี่ยนชื่อด้วยค่าเซลล์
(2) ใน เปลี่ยนชื่อตัวเลือก ตรวจสอบ แทนที่ชื่อแผ่นงานต้นฉบับ ตัวเลือก;
(3) ใน ชื่อแผ่นงานใหม่ ตรวจสอบ จากช่วงเฉพาะ คลิกตัวเลือก  เพื่อเปิดกล่องโต้ตอบเปลี่ยนชื่อหลายแผ่นงานที่สองเลือกเซลล์ที่คุณจะเปลี่ยนชื่อตามค่าจากนั้นคลิก OK ปุ่ม
(4) คลิกไฟล์ Ok ปุ่มเพื่อใช้การเปลี่ยนชื่อ

จากนั้นคุณจะเห็นชื่อเวิร์กชีตที่เลือกทั้งหมดถูกเปลี่ยนเป็นค่าเซลล์ที่ระบุ ดูภาพหน้าจอด้านล่าง:

เปลี่ยนชื่อแผ่นงานหลายแผ่น