โดยปกติในการเปลี่ยนชื่อแผ่นงานใน Excel เราสามารถคลิกสองครั้งที่แท็บแผ่นงานได้อย่างรวดเร็วหรือคลิกขวาที่แท็บแผ่นงานเพื่อเลือกคำสั่งเปลี่ยนชื่อสำหรับการเปลี่ยนชื่อแผ่นงาน ค่อนข้างสะดวกในการเปลี่ยนชื่อแผ่นงานหนึ่งหรือสองแผ่นใน Excel แต่ถ้าเราต้องการเปลี่ยนชื่อแผ่นงานหลายแผ่นภายในการดำเนินการเดียวเราจะทำอย่างไร?

ใช้คำสั่งเปลี่ยนชื่อเพื่อเปลี่ยนชื่อแผ่นงาน

ใช้เครื่องมือที่มีประโยชน์เพื่อเปลี่ยนชื่อแผ่นงานหลายแผ่นได้อย่างสะดวกสบาย

การใช้รหัส VBA เพื่อเปลี่ยนชื่อแผ่นงานหลายแผ่น

ใช้คำสั่งเปลี่ยนชื่อเพื่อเปลี่ยนชื่อแผ่นงาน

อัศจรรย์! การใช้แท็บที่มีประสิทธิภาพใน Excel เช่น Chrome, Edge, Firefox และ Safari!
ประหยัดเวลา 50% และลดการคลิกเมาส์หลายพันครั้งให้คุณทุกวัน!

เราสามารถเปลี่ยนชื่อแผ่นงานใน Excel ได้อย่างรวดเร็วด้วยไฟล์ ตั้งชื่อใหม่ คำสั่งตามขั้นตอนต่อไปนี้:

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

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

ใช้เครื่องมือที่มีประโยชน์เพื่อเปลี่ยนชื่อแผ่นงานหลายแผ่นได้อย่างสะดวกสบาย

การใช้รหัส VBA เพื่อเปลี่ยนชื่อแผ่นงานหลายแผ่น

ที่นี่ฉันจะแนะนำรหัส VBA สองรหัสเพื่อเปลี่ยนชื่อแผ่นงานหลายแผ่น

รหัส 1 รหัส VBA เพื่อเปลี่ยนชื่อแผ่นงานหลายแผ่นตามชื่อที่คุณต้องการในคราวเดียว

ด้วยรหัส VBA ต่อไปนี้คุณสามารถเปลี่ยนชื่อแผ่นงานทั้งหมดของสมุดงานปัจจุบันได้อย่างรวดเร็วโดยใช้คำนำหน้าเหมือนกันในชื่อแผ่นงานเช่น: KTE-order1, KTE-order 2 และ KTE-order 3 ...

1. คลิกที่ ผู้พัฒนา > ของ Visual Basicและคลิก สิ่งที่ใส่เข้าไป > โมดูล ใน แอปพลิเคชัน Microsoft Visual Basic Windows.

2. โปรดคัดลอกและวางรหัสต่อไปนี้ลงในไฟล์ โมดูล.

VBA: เปลี่ยนชื่อแผ่นงานทั้งหมดโดยป้อนชื่อเฉพาะ

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  คลิก  เพื่อรันโค้ดและป้อนชื่อที่คุณต้องการลงในกล่องโต้ตอบป๊อปอัพดูภาพหน้าจอ:

4. คลิก OK. จากนั้นคุณจะเห็นแผ่นงานทั้งหมดถูกเปลี่ยนชื่อ

2. รหัส VBA เพื่อเปลี่ยนชื่อแผ่นงานหลายแผ่นตามค่าเซลล์เฉพาะในแต่ละแผ่นงานของสมุดงานที่ใช้งานอยู่

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

1.  โปรดระบุเซลล์ที่จะมีชื่อแผ่นงานในแต่ละแผ่นงานและพิมพ์ชื่อแผ่นงานลงไป ในตัวอย่างนี้ฉันจะพิมพ์ชื่อเวิร์กชีตในเซลล์ A1 ในแต่ละแผ่นงาน

2.  คลิก ผู้พัฒนา > ของ Visual Basicและคลิก สิ่งที่ใส่เข้าไป > โมดูล ใน แอปพลิเคชัน Microsoft Visual Basic หน้าต่าง

3.  โปรดคัดลอกและวางรหัสต่อไปนี้ลงในโมดูล

VBA: เปลี่ยนชื่อแผ่นงานตามเนื้อหาเซลล์เฉพาะ

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  คลิก  ปุ่มเพื่อรันโค้ด worsheets ทั้งหมดถูกเปลี่ยนชื่อตามเนื้อหาของเซลล์ A1

Demo: เปลี่ยนชื่อแผ่นงานหลายแผ่นด้วย Kutools for Excel

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