วิธีรับชื่อชีตโดยใช้ vba (พร้อมตัวอย่าง)

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

วิธีที่ 1: รับชื่อของแผ่นงานที่ใช้งานอยู่

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

ฟังก์ชันนี้จะส่งคืนชื่อของแผ่นงานที่ใช้งานอยู่

วิธีที่ 2: รับชื่อแผ่นงานตามหมายเลข

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

ฟังก์ชันนี้จะส่งคืนชื่อของชีตที่ ⁿ ที่คุณระบุ

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

ตัวอย่างที่ 1: ใช้ VBA เพื่อรับชื่อของแผ่นงานที่ใช้งานอยู่

เราสามารถสร้างฟังก์ชันต่อไปนี้ใน VBA เพื่อรับชื่อของแผ่นงานที่ใช้งานอยู่ในปัจจุบันในสมุดงาน Excel:

 Function GetSheetName()

GetSheetName = ActiveSheet.Name

End Function

สมมติว่าแผ่นงานชื่อ stat มีการใช้งานอยู่ในปัจจุบัน

เราสามารถพิมพ์สูตรต่อไปนี้ในเซลล์ E1 ของแผ่นงานนี้เพื่อส่งคืนชื่อของแผ่นงานที่ใช้งานอยู่:

 =GetSheetName()

ภาพหน้าจอต่อไปนี้แสดงวิธีใช้สูตรนี้ในทางปฏิบัติ:

ฟังก์ชันส่งคืนค่า สถิติ เนื่องจากนี่คือชื่อของแผ่นงานที่ใช้งานอยู่ในปัจจุบัน

ตัวอย่างที่ 2: ใช้ VBA เพื่อรับชื่อแผ่นงานตามหมายเลข

เราสามารถสร้างฟังก์ชันต่อไปนี้ใน VBA เพื่อรับชื่อของแผ่นงาน ^{ที่ n} ของสมุดงาน Excel:

 Function GetSheetName(N As Integer)

GetSheetName = Sheets(N).Name

End Function

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

 =GetSheetName(2)

ภาพหน้าจอต่อไปนี้แสดงวิธีใช้สูตรนี้ในทางปฏิบัติ:

ฟังก์ชันส่งคืนค่า team เนื่องจากเป็นชื่อของแผ่นงานที่สองในสมุดงาน

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

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

VBA: วิธีนับจำนวนแผ่นงานในสมุดงาน
VBA: วิธีดึงข้อมูลจากสมุดงานอื่น
VBA: วิธีแทรกหลายบรรทัด