งาน การ Save ชีท Excel ออกเป็นไฟล์ Excel คราวละมาก ๆ เป็นคำถามที่มีถามบ่อยมากในห้องถามตอบ Excel ต่าง ๆ วันนี้เอาวิธีคิด และวิธีเขียนโค้ดมาฝาก
ใครสนใจ หรือกำลังหาทางทำอยู่ ก็ดูแล้วทำตามคลิป VDO สั้น ๆ 5 นาทีนี้ได้เลย ครับ
วิธีคิด…
- 🔸 Loop ไปที่ชีทที่ต้องการ save ให้เป็นไฟล์ Excel ทีละชีท
- 🔸 copy ชีท โดยไม่ต้องกำหนดที่วาง VBA จะสร้างชีทนั้นให้เป็นไฟล์ใหม่อัตโนมัติ
- 🔸 Save ไฟล์ที่ได้ตามชื่อชีทที่ loop อยู่
- 🔸 สั่ง ปิด ไฟล์ไป
- 🔸 ก่อนจบ สร้าง message box เพื่อแจ้งเตือนเมื่อการ Save เสร็จสิ้น
———– Code ที่เขียนได้เป็นแบบนี้ ———–
Sub GenerateExcelFile()
Dim i As Long
For i = 3 To Sheets.Count
Sheets(i).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & “\” & ThisWorkbook.Sheets(i).Name & “.xlsx”, 51
ActiveWorkbook.Close
Next i
MsgBox “DONE !!!”
End Sub
———– จบเพียงสั้น ๆ เท่านี้ ———–
🔸 ไม่ว่าจำนวนชีทน้อย หรือมาก ถึงมากที่สุด ก็เขียนโค้ดแค้ 7 บรรทัดเท่านี้ ครับ
เป็นโค้ดง่าย ๆ เพียงแค่รู้จักการทำงานของ VBA งานนี้เป็นเพียงการใช้ความรู้ VBA พื้นฐานเบื้องต้นง่าย ๆ ที่ใคร ๆ ก็เรียนรู้ได้ไม่ยากครับ
ไม่ต้องกลัวครับ
VBA ไม่ได้ยากอย่างที่คิด
ทุกคนสามารถเรียนรู้ได้
ถ้าได้เรียนอย่างเป็นระบบ ถูกวิธี
————//————
👉 #สนใจเรียนVBAกับผม
สำหรับผู้ที่จริงจัง อยากเรียน VBA เพื่อเอาไปใช้งาน
👉 ติดต่อสอบถามเนื้อหาเพิ่มเติม หรือสมัครได้ที่ลิงค์นี้ m.me/excelbypichart หรือ โทร. 099-084-2562 / 082-663-9949
————//————
อ.ชาติ
Learn Excel With Pichart
Smart Excel For Better LIFE