วิธีคัดลอกแผ่นงานที่ซ่อนอยู่ใน Excel 

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

คัดลอกแผ่นงานที่ซ่อนไว้ไปยังสมุดงานที่ใช้งานอยู่ด้วยรหัส VBA

คัดลอกแผ่นงานที่ซ่อนไว้ไปยังสมุดงานที่ใช้งานอยู่ด้วยรหัส VBA

หากต้องการคัดลอกแผ่นงานที่ซ่อนอยู่จากสมุดงานและตั้งชื่อรหัส VBA ต่อไปนี้สามารถช่วยคุณได้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: คัดลอกแผ่นงานที่ซ่อนไปยังสมุดงานที่ใช้งานอยู่:

Sub DupSheet()
'Updateby Extendoffice 20161109
    Dim Actsheet As String
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveWorkbook.Sheets("Sheet12").Visible = True
    ActiveWorkbook.Sheets("Sheet12").Copy _
    after:=ActiveWorkbook.Sheets("Sheet12")
    ActNm = ActiveSheet.Name
    ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
    Sheets(ActiveSheet.Name).Visible = True
    ActiveWorkbook.Sheets("Sheet12").Visible = False
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในโค้ดด้านบน ฮิตแผ่น คือแผ่นงานที่ซ่อนอยู่ที่คุณต้องการคัดลอกโปรดเปลี่ยนตามความต้องการของคุณ

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้กล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณระบุชื่อสำหรับสำเนาใหม่ของแผ่นงานที่ซ่อนอยู่ดูภาพหน้าจอ:

4. จากนั้นคลิก OK และแผ่นงานที่ซ่อนอยู่จะถูกคัดลอกด้วยชื่อใหม่ในสมุดงานที่ใช้งานพร้อมกัน