Code VBA เมื่อถึงบรรทัดที่กำหนดให้แสดง PrintPreview ค่ะ

[snasui]

ตัวอย่างตามด้านล่าง โดยเรียกใช้งานที่ MainCode ก็จะทำงานทั้งสองงานต่อเนื่องกันไปครับ

Code: Select all

Sub MainCode()
Call AutoFilter
Call PasteData
End Sub

[suka]

อาจารย์คะ ได้ลอง AutoFilter ที่ไฟล์ Ph_BookShare แล้วเรียกใช้งาน MainCode สามารถปลด AutoFilter ได้ค่ะ
แต่ไม่วางข้อมูลที่บันทึกใหม่ไปไว้ที่ไฟล์ Ph_BookShare ค่ะ และโปรแกรมฟ้องตามภาพนี้ค่ะ

[snasui]

หน้า Worksheets ควรมีเครื่องหมาย . เป็น .Worksheets เพราะเป็นการใช้ภายใน With...End With ผมเคยกล่าวถึงเรื่องนี้ไปรอบนึงแล้วแต่ดูเหมือนจะยังไม่เข้าใจหลักการของการใช้ With...End With

และหากเกิด Error ขึ้นอีก นั่นไม่ใช่เพราะการเรียกใช้ผ่าน MainCode ครับ

[suka]

อาจารย์คะ ใส่.เป็น.Worksheets แล้วโปรแกรมฟ้องตามภาพนี้ค่ะ

Code: 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 With

[snasui]

นั่นไม่ได้อยู่ภายใน With...End With คำว่าอยู่ภายในคือด้านล่าง

Code: Select all

With abcdef
   ... <== This place are called inside With...End With
End With

สำหรับ บรรทัดนั้น Worksheets เป็นของไฟล์ (Parent) ไหนให้เขียนชื่อ Parent ไว้ข้างหน้าด้วย เช่น abcd.Worsheets("xyz")

[suka]

ขอบคุณค่ะอาจารย์ปรับนำมาใช้งานได้ตรงตามต้องการแล้วค่ะ