Snasui Excel Forum

ถ้าตารางเหมือนกัน ทุกประการ ผมไม่แน่ใจว่าใช้ Sort ข้อมูลเอาเลย ได้หรือเปล่า

ขอบคุณครับ ผมลืมแบบ macro ไปซะงั้น

[quote="mr_tomtom"]
- ถ้าเป็น VBA excel จะเร็วกว่าไหมหรือสามารถประมวลได้โดยไม่หนักไหมครับ ถ้าสามารถประมวลผลเร็วกว่าขอคำแนะนำด้วยครับ
[/quote]

ทำด้วย Macro เร็วกว่าครับ อาจารย์บอกวิธีไปแล้ว ลองทำดูครับ :)

[quote=snasui post_id=78616 time=1516017902 user_id=2]
:D ผมสังเกตเห็นว่ารูปแบบตารางและข้อมูลในชีต Data กับชีต Filter เหมือนกันทุกประการ เพียงแต่ต้องการจัดเรียงใหม่ตามคอลัมน์ B เท่านั้น หากเป็นเช่นนี้สามารถบันทึก Macro ให้คัดลอกข้อมูลทั้งหมดจากชีต Data มาวางในชีต Filter จากนั้นค่อยจัดเรียงตามค่าในคอลัมน์ B ไม่ทราบว่าการทำเช่นนี้จะตรงตามต้องการหรือไม่และติดปัญหาใดหรือไม่ครับ :?:
[/quote]

- ขอบคุณครับ ทำได้แล้วสามารถเรียงลำดับตามพยัญชนะและตัวเลขได้ถูกต้อง (ดัง Code ตามข้างล่างนี้ โดยได้นำไปปรับใส่ไฟล์งานจริงตามรูปแนบ) แต่ติดตรงถ้าข้อมูลเยอะมากๆ เครื่องคอมฯจะค้างหรือก็ประมวลผลนานมากๆ และอีกอย่าง
- ถ้าเป็น VBA excel จะเร็วกว่าไหมหรือสามารถประมวลได้โดยไม่หนักไหมครับ ถ้าสามารถประมวลผลเร็วกว่าขอคำแนะนำด้วยครับ

1.ที่ชีท Filter B3
=IF(ROWS(B$3:B3)>LOOKUP(9.99999999999999E+307,Data!$A:$A),"",INDEX(Data!$B$6:$B$1000,MATCH(SMALL(IF(ISERR(CODE(Data!$B$6:$B$1000)),"",CODE(Data!$B$6:$B$1000)+COUNTIF(Data!$B$6:$B$1000,"<"&Data!$B$6:$B$1000)),ROWS(B$2:B2)),CODE(Data!$B$6:$B$1000)+COUNTIF(Data!$B$6:$B$1000,"<"&Data!$B$6:$B$1000),0)))

2.ที่ชีท Filter A3
=INDEX(Data!$A$6:$A$1000,MATCH(B3,Data!$B$6:$B$1000,0))

3.และที่ Filter C3
=IFERROR(VLOOKUP($B3,Data!$B$6:$BD$1000,15,0),"")

:D ผมสังเกตเห็นว่ารูปแบบตารางและข้อมูลในชีต Data กับชีต Filter เหมือนกันทุกประการ เพียงแต่ต้องการจัดเรียงใหม่ตามคอลัมน์ B เท่านั้น หากเป็นเช่นนี้สามารถบันทึก Macro ให้คัดลอกข้อมูลทั้งหมดจากชีต Data มาวางในชีต Filter จากนั้นค่อยจัดเรียงตามค่าในคอลัมน์ B ไม่ทราบว่าการทำเช่นนี้จะตรงตามต้องการหรือไม่และติดปัญหาใดหรือไม่ครับ :?:

กรณีต้องการใช้สูตรสามารถทำตามด้านล่างครับ

[List=1]
[*] ที่ B3 คีย์
[font=consolas]=IF(ROWS(B$3:B3)>LOOKUP(9.99999999999999E+307,Data!$A:$A),"",INDEX(Data!$B$3:$B$12,MATCH(SMALL(IF(ISERR(CODE(Data!$B$3:$B$12)),"",CODE(Data!$B$3:$B$12)+COUNTIF(Data!$B$3:$B$12,"<"&Data!$B$3:$B$12)),ROWS(B$2:B2)),CODE(Data!$B$3:$B$12)+COUNTIF(Data!$B$3:$B$12,"<"&Data!$B$3:$B$12),0)))[/font]
[color=#0000FF]Ctrl+Shift+Enter[/color] > Copy ลงด้านล่าง
[*] ที่ A3 คีย์
[font=consolas]=INDEX(Data!$A$3:$A$12,MATCH(B3,Data!$B$3:$B$12,0))[/font]
Enter > Copy ลงด้านล่าง
[/list]

ศึกษาเพิ่มเติมได้ที่ http://snasui.com/wordpress/sort-data-with-formula/


[warning][color=#FF0000][b]Note:[/b][/color][color=#0000FF] Ctrl+Shift+Enter[/color]
เป็นการสร้างสูตร Array โดยสามารถเลือกดำเนินการตามข้อ 1 หรือ 2 ด้านล่าง
[list=1][*]กรณีคีย์สูตรเอง เมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น
Ctrl และ Shift พร้อมกันค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array
[*]กรณี Copy สูตรไปวางให้กดแป้น F2 เพื่อทำการ Edit Cell นั้นก่อน
จากนั้นกดแป้น Ctrl และ Shift พร้อมกันค้างไว้แล้วตามด้วย Enter เพื่อสร้างเป็นสูตร Array
[*]หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น [color=#FF0000]{[/color]=YourFormulas(...)[color=#FF0000]}
[/color] ปีกกานี้ไม่สามารถคีย์เข้าไปเอง จะต้องมาด้วยการกดแป้น Ctrl+Shift+Enter เท่านั้น [color=#FF0000]
ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง[/color]
[*]การแก้ไขเปลี่ยนแปลงสูตร Array จะต้องกดแป้นให้รับสูตรด้วย Ctrl+Shift+Enter ทุกครั้ง[/list][/warning]

ผมเพิ่งเริ่มจะหัดใช้ฟังก์ชั่นเกี่ยวกับ VBA EXCEL ซึ่งในงานที่รับผิดชอบมันมีข้อมูลค่อนข้างเยอะและข้อมูลจากหลายๆส่วนรวมๆกันสลับกันไปมาดังนั้นจึงต้องการที่จะดึงเอาข้อมูลต้องนั้นมาเรียงลำดับใหม่โดยใช้ VBA ช่วย ดังไฟล์แนบครับ