Snasui Excel Forum

Posted: **Wed Feb 01, 2017 9:57 am**

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

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") แบบไหนดีครับ

Posted: **Wed Feb 01, 2017 6:16 pm**

คราวถัดไปช่วยแนบไฟล์ที่มี 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

Posted: **Thu Feb 02, 2017 8:09 am**

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

Snasui Excel Forum

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

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

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

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