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]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)nararat wrote:จากข้อมูลที่ดึงมาครับ
ตัวเลขหลาย
nefd.jpg
parakorn wrote: ตัวอย่างสูตรตามด้านล่างครับ
ที่ชีต Dataที่ชีต NewData
- ที่ AC2 คีย์ =IF(A2="JOB",COUNTA(E2:AB2),"")Enter > Copy ลงด้านล่าง
- ที่ AD2 คีย์ =IF(N(AC2),SUM(AC$2:AC2)-AC2+1,"")Enter > Copy ลงด้านล่าง
- ที่ AE2 คีย์ =IF(ROWS(AE$2:AE2)>SUM(AC:AC),"",INDEX(B:B,MATCH(ROWS(AE$2:AE2),AD:AD)+1))Enter > Copy ลงด้านล่าง
- ที่ AF2 คีย์ =IF(AE2="","",INDEX(INDEX($E$2:$AB$69,MATCH(ROWS(AF$2:AF2),$AD$2:$AD$1000),0),COUNTIF(AE$2:AE2,AE2)))Enter > Copy ลงด้านล่าง
Credit จากคุณ คนควน ครับผม
- ที่ D1 คีย์ =IFERROR(INDEX(Data!$AF$2:$AF$309,SMALL(IF(FREQUENCY(IF(Data!$AF$2:$AF$309<>"",MATCH(Data!$AF$2:$AF$309,Data!$AF$2:$AF$309,0)),ROW(Data!$AF$2:$AF$309)-ROW(Data!$AF$2)+1),ROW(Data!$AF$2:$AF$309)-ROW(Data!$AF$2)+1),COLUMNS($D1:D1))),"")Ctrl+Shift+Enter > Copy ไปด้านขวาจนผลลัพธ์เป็นเซลล์ว่าง
- ที่ A2 คีย์ =IFERROR(INDEX(Data!B$3:B$69,SMALL(IF(Data!$B$3:$B$69<>"JOBNO.",ROW(Data!$B$3:$B$69)-ROW(Data!$B$3)+1),ROWS(A$2:A2))),"")Ctrl+Shift+Enter > Copy ไปเซลล์ B2 แล้ว Copy ลงด้านล่าง
- ที่ C2 คีย์ =IF(B2<>"",INDEX(Data!$D$3:$D$69+0,MATCH(1,IF(Data!$B$3:$B$69=A2,IF(Data!$C$3:$C$69=B2,1)),0)),"")Ctrl+Shift+Enter > Copy ไปด้านขวาและลงด้านล่าง