Snasui Excel Forum

Posted: **Mon Mar 12, 2012 5:40 pm**

อาจารย์ครับ ผมขอรบกวนเรื่องการปรับโค๊ด พอดีว่าผมได้ทำการบันทึกมาโครโดยให้ดึงข้อมูลตามเงื่อนไขที่กำหนด

ผมสามารถดึงได้ไม่มีปัญหาอะไร แต่ว่าค่าที่ดึงมานั้นจะดึงฟอร์แมตมาด้วย ผมพยายามแปลงโค๊ดอยู่หลายวันแล้ว ก็ยังไม่เป็นผลจึงรบกวนให้อาจารย์ช่วยดูหน่อยครับ ว่ามันจะทำได้โดยวิธีใดบ้าง

ดึงค่าจาก Database มายังชีท Report
Procedure ชื่อ Report ครับ

Posted: **Mon Mar 12, 2012 6:04 pm**

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub Report_1()
    On Error Resume Next
    Application.EnableEvents = False
    Sheets("Database").Range("A1:G2000").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Sheets("Report").Range("I2:J3")
    Sheets("Database").Range("A2:E2000").SpecialCells(xlCellTypeVisible).Copy
    Sheets("Report").Range("B6").PasteSpecial xlPasteValues
    Sheets("Database").ShowAllData
    Application.CutCopyMode = False
    Application.EnableEvents = True
End Sub

Posted: **Mon Mar 12, 2012 6:19 pm**

ได้ตามต้องการเลยครับ ขอบคุณมากครับ

ผมเพิ่มโค๊ด

Code: Select all

Sheets("Report").Range("C3").Activate

ลงไปด้วยครับ เพราะตอนที่ดึงมานั้น มันจะเป็นแถบคลุมช่วงเซลล์ลงไปถึงเซลล์ 2000

Snasui Excel Forum

การใช้โค๊ดฟิลเตอร์ข้อมูลกับการเคลียร์ฟอร์แมตเมื่อวางค่า

การใช้โค๊ดฟิลเตอร์ข้อมูลกับการเคลียร์ฟอร์แมตเมื่อวางค่า

Re: การใช้โค๊ดฟิลเตอร์ข้อมูลกับการเคลียร์ฟอร์แมตเมื่อวางค่า

Re: การใช้โค๊ดฟิลเตอร์ข้อมูลกับการเคลียร์ฟอร์แมตเมื่อวางค่า