ชุมชนความรู้ Excel และ Microsoft 365 สำหรับการทำงานจริง ตั้งแต่สูตร ฟังก์ชัน VBA, Power Query, PivotTable, Dashboard และ AI จนถึงการวิเคราะห์ข้อมูลและพัฒนาระบบงานในองค์กร
https://snasui.com/
ตัวอย่างตามด้านล่าง โดยเรียกใช้งานที่ MainCode ก็จะทำงานทั้งสองงานต่อเนื่องกันไปครับ
Code: Select all
Sub MainCode()
Call AutoFilter
Call PasteData
End Sub. เป็น .Worksheets เพราะเป็นการใช้ภายใน With...End With ผมเคยกล่าวถึงเรื่องนี้ไปรอบนึงแล้วแต่ดูเหมือนจะยังไม่เข้าใจหลักการของการใช้ With...End WithCode: Select all
wbShare.Save
Application.ScreenUpdating = False
With formBook
i = .Worksheets("Enterthedata").Range("C224")
End With
With .Worksheets("Template")
Set rs = .Range(.Range("A2"), .Range("AF" & i + 1))
End WithCode: Select all
With abcdef
... <== This place are called inside With...End With
End With
abcd.Worsheets("xyz")
ขอบคุณค่ะอาจารย์ปรับนำมาใช้งานได้ตรงตามต้องการแล้วค่ะ