ไปยังเนื้อหาหลัก

วิธีเพิ่มแผ่นงานใหม่ที่มีชื่อเฉพาะใน Excel

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

เพิ่มแผ่นงานใหม่โดยอัตโนมัติพร้อมชื่อเฉพาะในสมุดงานปัจจุบันด้วยรหัส VBA
เพิ่มแผ่นงานใหม่โดยอัตโนมัติพร้อมชื่อเฉพาะในสมุดงานใหม่ด้วย Kutools for Excel


เพิ่มแผ่นงานใหม่โดยอัตโนมัติพร้อมชื่อเฉพาะในสมุดงานปัจจุบันด้วยรหัส VBA

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

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

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

3. คัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ โมดูล หน้าต่าง

รหัส VBA: เพิ่มแผ่นงานใหม่พร้อมชื่อเฉพาะที่ส่วนท้ายของสมุดงานปัจจุบัน

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา Kutools สำหรับ Excel โปรดป้อนชื่อสำหรับแผ่นงานนี้จากนั้นคลิกที่ไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นแผ่นงานใหม่จะถูกสร้างขึ้นโดยใช้ชื่อเฉพาะและอยู่ที่ส่วนท้ายของสมุดงานปัจจุบัน


เพิ่มแผ่นงานใหม่โดยอัตโนมัติพร้อมชื่อเฉพาะในสมุดงานใหม่ด้วย Kutools for Excel

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

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

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

2 ใน สร้างแผ่นงานลำดับ ใหเลือก แผ่นงานเปล่า ใน แผ่นงานฐาน รายการแบบเลื่อนลงเลือก ข้อมูลในช่วง และระบุเซลล์ที่มีชื่อแผ่นงานบางแผ่นแล้วคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นแผ่นงานใหม่ที่มีชื่อเฉพาะจากเซลล์จะถูกสร้างขึ้นในสมุดงานใหม่ทันที

หมายเหตุ / รายละเอียดเพิ่มเติม:

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

  หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, this does not properly account for user clicking cancel. It still creates worksheet.
This comment was minimized by the moderator on the site
Hi
The code has been updated with the problem solving. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

Thanks
This comment was minimized by the moderator on the site
Good day,
Please try the below VBA code. Hope it can help. Thanks for your comment.

Sub CreateSheet()
Dim xName As String
Dim xSht As Object
Dim xNWS As Worksheet
On Error Resume Next
xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
If xName = "" Then Exit Sub
Set xSht = Sheets(xName)
If Not xSht Is Nothing Then
MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
Exit Sub
End If
ActiveSheet.Copy after:=Sheets(Sheets.count)
Set xNWS = Sheets(Sheets.count)
xNWS.Name = xName
End Sub
This comment was minimized by the moderator on the site
Thank you for your reply crystal! I have it working now :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations