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]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)ผมลองนำไปปรับใช้ ยังคงติดการใช้งานอยู่ครับ เนื่องจากพอใส่เพิ่มบรรทัดไป มันจะขึ้น Error และไม่ข้อมูลไม่ตรง ครับsnasui wrote: ↑Tue May 24, 2022 1:04 pm ตัวอย่างสูตรตามด้านล่างครับกรุณาระบุ Version ของ Excel ที่ใช้อยู่จริง ดูวิธีการที่นี่ viewtopic.php?p=103177#p103177 เพื่อเพื่อนสมาชิกจะได้ตอบให้ตรงตาม Version ครับ
- ที่ D3 คีย์สูตรเพื่อเป็นคอลัมน์ช่วย
=SUMPRODUCT(LEN($C$3:C3)-LEN(SUBSTITUTE(C$3:C3,CHAR(10),"")))-(LEN(C3)-LEN(SUBSTITUTE(C3,CHAR(10),"")))+1
Enter > Copy ลงด้านล่าง- ที่ C9 คีย์สูตรเพื่อแสดงรายการอาหาร
=TRIM(LEFT(SUBSTITUTE(FILTERXML("<t><s>"&SUBSTITUTE(SUBSTITUTE(TEXTJOIN(",",TRUE,SUBSTITUTE($C$3:$C$4,CHAR(10),",")),",","</s><s>"),CHAR(9),"")&"</s></t>","//s"),"฿",REPT(" ",100)),100))
Enter > Copy ลงด้านล่าง- ที่ A9 คีย์สูตรเพื่อแสดงวันที่
=LOOKUP(ROWS(A$9:A9),$D$3:$D$4,A$3:A$4)
Enter > Copy ไป B9 แล้ว Copy ลงด้านล่าง
ขออภัยด้วยครับ
ได้แล้วครับ ขอบคุณมากครับsnasui wrote: ↑Tue May 24, 2022 4:57 pm ตัวอย่างการปรับสูตรตามด้านล่างครับ
- ที่ D2 คีย์สูตรเพื่อเป็นคอลัมน์ช่วย
=SUMPRODUCT(LEN($C$2:C2)-LEN(SUBSTITUTE(C$2:C2,CHAR(10),""))+1)-(LEN(C2)-LEN(SUBSTITUTE(C2,CHAR(10),"")))
Enter > Copy ลงด้านล่าง- ที่ D1 คีย์สูตรเพื่อเป็นตัวนับ
=SUMPRODUCT(LEN(C2:C182)-LEN(SUBSTITUTE(C2:C182,CHAR(10),""))+1)
Enter- ที่ A185 คีย์สูตรเพื่อแสดงวัน เวลา
=IF(ROWS(A$185:A185)>$D$1,"",LOOKUP(ROWS(B$185:B185),$D$2:$D$182,A$2:A$182))
Enter > Copy ไป B185 > Copy ลงด้านล่าง- ที่ C185 คีย์สูตรเพื่อแสดงรายการ
=IF(B185="","",TRIM(LEFT(SUBSTITUTE(INDEX(FILTERXML("<t><s>"&SUBSTITUTE(SUBSTITUTE(INDEX($C$2:$C$182,MATCH(B185,$B$2:$B$182,0)),CHAR(10),"</s><s>"),CHAR(9),"")&"</s></t>","//s"),COUNTIFS(B$185:B185,B185)),"฿",REPT(" ",100)),100)))
Enter > Copy ลงด้านล่าง