วิธีเพิ่มชีตใหม่ใน excel โดยใช้ vba

คุณสามารถใช้วิธีการต่อไปนี้ใน VBA เพื่อเพิ่มแผ่นงานใหม่ลงในสมุดงาน Excel:

วิธีที่ 1: เพิ่มแผ่นงานใหม่

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

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

ตัวอย่างเช่น หากมีสามแผ่นงานในสมุดงานและคุณเรียกใช้แมโครนี้ แผ่นงานใหม่ชื่อ Sheet4 จะถูกสร้างขึ้น

หมายเหตุ : ตามค่าเริ่มต้น VBA จะเพิ่มแผ่นงานใหม่ทันทีก่อนแผ่นงานที่ใช้งานอยู่ในปัจจุบัน

วิธีที่ 2: เพิ่มแผ่นงานใหม่หลายแผ่น

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

มาโครนี้จะเพิ่มแผ่นงานใหม่สามแผ่นลงในสมุดงาน

วิธีที่ 3: เพิ่มแผ่นงานใหม่ด้วยชื่อ

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

มาโครนี้จะเพิ่มแผ่นงานใหม่ลงในสมุดงานด้วยชื่อ MyNewSheet

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

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

มาโครนี้จะเพิ่มแผ่นงานใหม่ลงในสมุดงานด้วยชื่อ MyNewSheet ก่อนแผ่นงานที่มีอยู่ที่เรียกว่า Teams

วิธีที่ 5: เพิ่มแผ่นงานใหม่โดยใช้ชื่อหลังแผ่นงานเฉพาะ

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

มาโครนี้จะเพิ่มแผ่นงานใหม่ลงในสมุดงานโดยใช้ชื่อ MyNewSheet ต่อจากแผ่นงานที่มีอยู่ที่เรียกว่า Teams

วิธีที่ 6: เพิ่มแผ่นงานใหม่โดยใช้ชื่อที่ส่วนท้ายของสมุดงาน

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

มาโครนี้จะเพิ่มแผ่นงานใหม่ลงในสมุดงานโดยมีชื่อ MyNewSheet ที่ส่วนท้ายสุดของสมุดงาน

วิธีที่ 7: เพิ่มแผ่นงานใหม่โดยใช้ชื่อที่จุดเริ่มต้นของสมุดงาน

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

มาโครนี้จะเพิ่มแผ่นงานใหม่ลงในสมุดงานโดยมีชื่อ MyNewSheet ที่จุดเริ่มต้นของสมุดงาน

ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับสมุดงาน Excel ต่อไปนี้กับแผ่นงานที่มีอยู่สามแผ่น:

ตัวอย่างที่ 1: เพิ่มแผ่นงานใหม่

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

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

เมื่อเราเรียกใช้แมโครนี้ แผ่นงานใหม่จะถูกเพิ่มลงในสมุดงานด้วยชื่อ Sheet4 ก่อนแผ่นงาน Teams ซึ่งเราได้เลือกไว้เมื่อเรียกใช้แมโคร:

ตัวอย่างที่ 2: เพิ่มแผ่นงานใหม่หลายแผ่น

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

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

เมื่อเราเรียกใช้แมโครนี้ แผ่นงานใหม่สามแผ่นจะถูกเพิ่มลงในสมุดงานโดยตรงก่อนแผ่นงาน Teams ซึ่งเราได้เลือกไว้เมื่อเรียกใช้แมโคร:

ตัวอย่างที่ 3: เพิ่มแผ่นงานใหม่ที่มีชื่อ

เราสามารถสร้างแมโครต่อไปนี้เพื่อเพิ่มแผ่นงานใหม่ลงในสมุดงานด้วยชื่อเฉพาะ:

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

เมื่อเราเรียกใช้แมโครนี้ แผ่นงานใหม่ชื่อ MyNewSheet จะถูกเพิ่มลงในสมุดงานก่อนแผ่นงาน Teams ซึ่งเราได้เลือกไว้เมื่อเรียกใช้แมโคร:

ตัวอย่างที่ 4: เพิ่มแผ่นงานใหม่ที่มีชื่อก่อนแผ่นงานเฉพาะ

เราสามารถสร้างแมโครต่อไปนี้เพื่อเพิ่มแผ่นงานใหม่ลงในสมุดงานได้โดยตรงก่อนแผ่นงานที่มีอยู่:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

เมื่อเราเรียกใช้แมโครนี้ แผ่นงานใหม่ชื่อ MyNewSheet จะถูกเพิ่มลงในสมุดงานโดยตรงก่อนแผ่นงาน Teams :

ตัวอย่างที่ 5: เพิ่มแผ่นงานใหม่โดยใช้ชื่อหลังแผ่นงานเฉพาะ

เราสามารถสร้างแมโครต่อไปนี้เพื่อเพิ่มแผ่นงานใหม่ลงในสมุดงานได้โดยตรงหลังจากแผ่นงานที่มีอยู่:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

เมื่อเราเรียกใช้แมโครนี้ แผ่นงานใหม่ชื่อ MyNewSheet จะถูกเพิ่มลงในสมุดงานโดยตรงต่อจากแผ่นงาน Teams :

ตัวอย่างที่ 6: เพิ่มแผ่นงานใหม่โดยมีชื่ออยู่ที่ส่วนท้ายของสมุดงาน

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

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

เมื่อเราเรียกใช้แมโครนี้ แผ่นงานใหม่ชื่อ MyNewSheet จะถูกเพิ่มที่ส่วนท้ายสุดของสมุดงาน:

ตัวอย่างที่ 7: เพิ่มแผ่นงานใหม่โดยมีชื่ออยู่ที่จุดเริ่มต้นของสมุดงาน

เราสามารถสร้างแมโครต่อไปนี้เพื่อเพิ่มแผ่นงานใหม่ที่จุดเริ่มต้นของสมุดงาน:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

เมื่อเราเรียกใช้แมโครนี้ แผ่นงานใหม่ชื่อ MyNewSheet จะถูกเพิ่มที่จุดเริ่มต้นของสมุดงาน:

หมายเหตุ : คุณสามารถดูเอกสารฉบับสมบูรณ์สำหรับวิธี Sheets.Add ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

VBA: วิธีค้นหาบรรทัดที่ใช้ล่าสุด
VBA: วิธีค้นหาคอลัมน์ที่ใช้ล่าสุด
VBA: วิธีนับจำนวนแผ่นงานในสมุดงาน