excelสามารถเลือกช่วงาันที่ จาก Query ที่ดึงมาจากฐานข้อมูลได้หรือไม่ครับ

[bkkrong]

ถ้าผมดึงQuery ข้อมูลมา และทำ drop down ช่วงเลือกวันที่ ที่ต้องการ เพื่อ เอาข้อมูลที่ filterนั้น มาทำ pivot ได้หรือไม่ครับ
ถ้าได้ กรุณาช่วยเขียนตัวอย่างscriptด้วยครับ

[snasui]

อ่านแล้วเข้าใจว่าต้องการจะ Filter เลือกข้อมูลที่ต้องการไปทำ Pivot Table

หากข้อมูลมีไม่เกินจำนวนบรรทัดของ Excel สามารถ Filter ที่ Pivot Table ได้ ไม่ทราบว่าหากเลือกกรณีนี้มีข้อกังวลใดครับ

หากทำด้วย Power Query ก็สามารถจะ Filter จาก Power Query ได้เช่นกัน จากไฟล์ที่แนบมา ผมไม่สามารถเปิดเข้าไปดูข้อมูลด้วย Power Query ได้ครับ

[bkkrong]

ครับ ถูกต้องครับ
ผมอยากเลือกช่วงวันที่ที่สร้างไว้ ใน B1 and D1 เมื่อเลือกเสร็จ pivot จะแสดงผลรวมในช่วงที่เลือกไว้ครับ
ผมส่งexcelใหม่ให้ครับ

[bkkrong]

ผมพยายามเขียน script โดยการคัดลอก sheet "database" มาใส่ใน sheet "Fee schdule" โดยให้มันเลือกช่วงเวลา ใน B1 and D1 โดยกดปุ่ม ปรากฎว่า มันคัดลอกมาหมด ไม่เลือกวันเลย ไม่ทรายจะปรับ script อย่างไรครับ

Code: Select all

Sub EditDT()
Sheets("Fee schdule").Range("A7:H1000").ClearContents
    Sheets("database").Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Range("B1:D3"), CopyToRange:=Range("B7"), Unique:=False
End Sub

[logic]

ลองดูว่าได้ไหมครับ

ชีต database กรอกสูตร
I2 =A2>='Fee schdule'!$B$1
J2 =A2<='Fee schdule'!$D$1

เขียนโค้ด

Code: Select all

'...
Sheets("Fee schdule").Range("b6").CurrentRegion.Clear
Sheets("database").Range("Table_Fee_schdule[#All]").AdvancedFilter Action:= _
    xlFilterCopy, CriteriaRange:=Sheets("database").Range("I1:J2"), CopyToRange _
    :=Range("B6"), Unique:=False
'...

หมายเหตุ: ชีต Fee schdule ลบ table ออกก่อน

[bkkrong]

run แล้ว เหมือนไม่เข้าใจช่วงวันที่ๆ กำหนด เลย copy ความว่างเปล่าเข้ามาครับ

[puriwutpokin]

ที่ ชีต Fee schdule เซล B1 ใส่ค่าวันที่ให้เป็นรูปแบบเดียวกับที่ ชีต database เช่น 04/11/2020 ไม่ใช่ 4/11/2020 ครับ
ทำตามคุณ logic
ชีต database กรอกสูตร
I2 =A2>='Fee schdule'!$B$1
J2 =A2<='Fee schdule'!$D$1
ตัวอย่างโค้ดครับ

Code: Select all

'Other...
Range("Table_Fee_schdule[#All]").AdvancedFilter 2, Sheets("database").[i1:j2], Sheets("Fee schdule").[b6:h6], False
'Other...

[bkkrong]

เรียน อ. puriwutpokin และ อ. logic
ช่วยดูให้ผมอีกครั้ง ทำไม ช่อง database I2 J2 จึงเป็น true กะ false ครับ
และrun script ไม่ผ่าน
ขอบคุณครับ

[puriwutpokin]

เรียน อ. puriwutpokin และ อ. logic
ช่วยดูให้ผมอีกครั้ง ทำไม ช่อง database I2 J2 จึงเป็น true กะ false ครับ
และrun script ไม่ผ่าน
ขอบคุณครับ

ตามที่เคยแจ้ง วันที่ ต้องให้เหมือนกัน ที่ B2 ควรเป็น 01/12/2020 ไม่ใช่ 1/12/2020
และต้องลบ Table ออกด้วยครับ แก้โค้ดใหม่อีกทีครับ

Code: Select all

Range("B6:H10000").ClearContents