อยากทราบวิธี นำตัวแปร มาแทนค่า ใน filter โดยการเขียนมาโครครับ

[titus2016]

งานที่จะทำคือ ต้องการ นำค่าจาก cell M1 (เป็นวันที่เริ่ม)=n และ cell O1=x (เป็นวันที่สิ้นสุด)

Code: Select all

Sub Macro1()
n = Range("M1").Value
x = Range("O1").Value
    Sheets("TP2-S").Select
    ActiveSheet.Range("$A$1:$K$68").AutoFilter Field:=9, Criteria1:=Array("n" - "x"), Operator:=xlFilterValues
End Sub

ถ้า cell M1 =1 และ Cell O1 =15 คือ ให้เลือก ค่า 1 ถึง 15 จะเขียนใน Criteria1:=Array("n" - "x") แบบไหนดีครับ

[snasui]

คราวถัดไปช่วยแนบไฟล์ที่มี Code ที่เป็นปัญหามาด้วยจะได้สะดวกในการตอบ สำหรับไฟล์ที่แนบมานั้นยังไม่ได้แนบ Code ตามที่ถามมาครับ

สำหรับตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

'--Other code
ActiveSheet.Range("$A$1:$K$68").AutoFilter Field:=9, Criteria1:=">=" & n, _
    Operator:=xlAnd, Criteria2:="<=" & x
'--Other code

[titus]

คราวหลังไม่พลาดแล้ว ครับ ขอบคุณอาจาร์ยมากครับ