EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)snasui wrote: ลองตามด้านล่างซึ่งจะใช้คอลัมน์ AB:AI เป็นคอลัมน์ช่วยครับ
- ที่เซลล์ AB4 คีย์
=LOOKUP(CHAR(255),CHOOSE({1,2},"A",LOOKUP(MATCH(2,INDEX(1/(C4:Z4<>"∕"),0)),{1,9,17},{"A-","B-","C"})))
Enter > Copy ลงด้านล่าง- ที่ AC4 คีย์
=IF(OR($AB4="C",$AB4="A"),"",LOOKUP(CHAR(255),CHOOSE({1,2},"",INDEX(INDEX(($C4:$J4,$K4:$R4),1,0,IF($AB4="A-",1,2)),SMALL(IF(INDEX(($C4:$J4,$K4:$R4),1,0,IF($AB4="A-",1,2))<>"∕",COLUMN($C4:$J4)-COLUMN($C4)+1),COLUMNS($AC4:AC4))))))
Ctrl+Shift+Enter > Copy ไปทางขวาจนถึง AI4 แล้ว Copy ลงด้านล่าง- ที่ AA4 คีย์
=IF(AC4="",AB4,AB4&" ("&LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(AC4&","&AD4&","&AE4&","&AF4&","&AG4&","&AH4&","&AI4&",",",,,,,",","),",,,,",","),",,,",","),",,",","),LEN(AC4&AD4&AE4&AF4&AG4&AH4&AI4)+MAX(0,COUNTIF(AC4:AI4,"?*")-1))&")")
Enter > Copy ลงด้านล่าง
Note: Ctrl+Shift+Enter หมายถึงเมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl+Shift ค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)} ปีกกานี้คีย์เข้าไปเองไม่ได้ ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง
snasui wrote: ลองตามด้านล่างซึ่งจะใช้คอลัมน์ AB:AI เป็นคอลัมน์ช่วยครับ
- ที่เซลล์ AB4 คีย์
=LOOKUP(CHAR(255),CHOOSE({1,2},"A",LOOKUP(MATCH(2,INDEX(1/(C4:Z4<>"∕"),0)),{1,9,17},{"A-","B-","C"})))
Enter > Copy ลงด้านล่าง- ที่ AC4 คีย์
=IF(OR($AB4="C",$AB4="A"),"",LOOKUP(CHAR(255),CHOOSE({1,2},"",INDEX(INDEX(($C4:$J4,$K4:$R4),1,0,IF($AB4="A-",1,2)),SMALL(IF(INDEX(($C4:$J4,$K4:$R4),1,0,IF($AB4="A-",1,2))<>"∕",COLUMN($C4:$J4)-COLUMN($C4)+1),COLUMNS($AC4:AC4))))))
Ctrl+Shift+Enter > Copy ไปทางขวาจนถึง AI4 แล้ว Copy ลงด้านล่าง- ที่ AA4 คีย์
=IF(AC4="",AB4,AB4&" ("&LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(AC4&","&AD4&","&AE4&","&AF4&","&AG4&","&AH4&","&AI4&",",",,,,,",","),",,,,",","),",,,",","),",,",","),LEN(AC4&AD4&AE4&AF4&AG4&AH4&AI4)+MAX(0,COUNTIF(AC4:AI4,"?*")-1))&")")
Enter > Copy ลงด้านล่าง
Note: Ctrl+Shift+Enter หมายถึงเมื่อคีย์สูตรแล้ว แทนที่จะกด Enter ให้กดแป้น Ctrl+Shift ค้างไว้แล้วกด Enter เพื่อสร้างเป็นสูตร Array หากกดแป้นถูกต้องสูตรนั้นจะมีเครื่องหมายปีกกาครอบ เช่น {=YourFormulas(...)} ปีกกานี้คีย์เข้าไปเองไม่ได้ ถ้ายังไม่เห็นปีกกาครอบสูตรแสดงว่ากดแป้นให้รับสูตรไม่ถูกต้อง