Snasui Excel Forum

กำหนดให้อยู่ใน 1 หน้าตามภาพครับ

82 มีการ Set Print Area ไว้ไม่เหมือน 96 ครับ

:D ตัวอย่างการปรับสูตรที่ J10 ครับ

=IF(J$5=0,"",IF(SUM($I10:I10)>=$H10,"",IF(AND(SUM($G$9:$G9)<SUM($J$5:J$5),SUM($G$10:$G10)>SUM($J$5:J$5)),MIN($H10-SUM($I10:I10),(MIN(J$5,SUM($J$5:J$5)-SUM($G$9:$G9)))*$F10),IF(SUM($G$10:$G10)>SUM($J$5:J$5),"",IF(SUM($G$10:$G10)<=SUM($J$5:J$5),MAX(0,$H10-SUM($I10 ...

:D ตัวอย่างสูตรครับ

เซลล์ J10 คีย์

=IF(J$5=0,"",IF(SUM($I10:I10)>=$H10,"",IF(AND(SUM($G$9:$G9)<SUM($J$5:J$5),SUM($G$10:$G10)>SUM($J$5:J$5)),MIN($H10-SUM($I10:I10),(SUM($J$5:J$5)-SUM($G$9:$G9))*$F10),IF(SUM($G$10:$G10)>SUM($J$5:J$5),"",IF(SUM($G$10:$G10)<=SUM($J$5:J$5),MAX(0,$H10-SUM($I10:I10 ...

:D เซลล์ D2 ปรับสูตรเป็นด้านล่างครับ

=IFERROR(INDEX(Sheet1!A$2:A$14,SMALL(IF(NOT(ISBLANK(Sheet1!A$2:A$14)),ROW(Sheet1!$A$2:$A$14)-ROW(Sheet1!$A$1)),ROWS(D$2:D2))),"") หรือ

=IFERROR(INDEX(Sheet1!A$2:A$14,SMALL(IF(Sheet1!A$2:A$14<>"",ROW(Sheet1!$A$2:$A$14)-ROW(Sheet1!$A$1)),ROWS(D$2:D2 ...

แบบที่ผมแนะนำไปถือว่าเป็นลักษณะการใช้งานของ PivotTable แล้วครับ

การแสดงข้อมูลจะแสดงทั้งหมดหรือแสดงเฉพาะรายชื่อปกติ เฉพาะรายชื่อที่หายไปก็ย่อมได้ วิธีการคือดึงหมายเหตุไปเป็น Filter แล้วเลือกสิ่งที่ต้องการครับ

:D ดึงมาไว้ตรงไหนก็ได้แต่มันจะมีความหมายหรือนำไปใช้โดยสะดวกหรือไม่แค่นั้นครับ

สำหรับการเพิ่มคอลัมน์แล้วให้แสดงรายชื่อที่หายไปตามตัวอย่างที่ให้มา คิดว่าไม่ได้ทำให้ข้อมูลมีความหมาย ทั้งใช้งานได้ยาก

สิ่งที่ควรทำคือเพิ่มเข้ามาในคอลัมน์ ชื่อ-นามสกุล กรรมการ แล้วคอลัมน์ รายชื่อที่หายไป เปลี่ยนชื่อไปเป็น ...

รายชื่อนั้นต้องอยู่ในชีต การตอบแบบฟอร์ม ซึ่งเป็นข้อมูลของ PivotTable จึงจะนำมาแสดงได้ครับ

:D การหาบรรทัดสุดท้ายที่มีข้อมูลใช้ Statement นี้ครับ Irow = Range("F" & Rows.Count).End(xlUp).Row

หากต้องการให้เป็นบรรทัดถัดไปให้บวกด้วย 1 ก็จะกลายเป็น Irow = Range("F" & Rows.Count).End(xlUp).Row + 1

ในทางคอลัมน์ก็สามารถใช้ลักษณะนี้เช่นกัน ยกตัวอย่างเช่น การเข้าถึงคอลัมน์สุดท้ายที่มีข้อมูล เข ...

:D สามารถเดาไปได้หลายแบบ แต่ก็แปลกที่เคยดึงได้ด้วย Excel 2007

ปัญหาที่เป็นไปได้คือ

ความซับซ้อนของเว็บนั้นว่าใช้ iframe หรือโหลดข้อมูลแบบ dynamic

เว็บมีการตั้ง Session Timeout หรือ Rate Limit

ความเร็วอินเตอร์เน็ตในขณะใช้งาน

หากเปิดเว็บตรง ๆ แล้วเปิดได้ตามปกติหรือไม่ครับ

ทางเลือกอื่นก็คงต้องเข ...

:D ลอง Tick ที่รีเฟรชเมื่อเปิดไฟล์แล้ว Save > ปิด > เปิดใหม่ ดูว่ามีการ Refresh หรือไม่ครับ

หากมีการ Refresh เมื่อเปิดไฟล์ใหม่แสดงว่าการกำหนดให้เปิดทุก 1 นาทีอาจจะเป็นประเด็น ลองกำหนดเพิ่มเป็นค่าอื่นแล้วทดสอบใหม่

หากทำครบแล้วยังไม่สามารถ Refresh ได้คงต้องเช็คที่ตัว Excel เองว่ามีความสมบูรณ์หรือไม ...

ที่ L2 คีย์สูตรเพื่อแสดงข้อมูลที่เกี่ยวข้อง
=IFERROR(INDEX(input!B:B,AGGREGATE(15,6,ROW(input!$B$2:$B$11)/(input!$B$2:$B$11=--$C2),COUNTIFS($C$1:L$1,L$1)))&"","")
Enter > Copy ไปด้านขวาและลงด้านล่าง
:o แก้เซลล์อ้างอิงใหม่เป็น K2 และปรับสูตรใหม่เป็นด้านล่างครับ

=IFERROR(INDEX(INDEX(input!$B:$J,0 ...

ที่ไม่ได้คำตอบเพราะ สูตรที่ C2, L2 ยังไม่ได้ Copy ไปด้านขวา

สูตรทั้งหมด Enter อย่างเดียวไม่ต้อง Ctrl+Shift+Enter ครับ

ตัวอย่างสูตรครับ

เซลล์ J2 คีย์

=SUMPRODUCT(--($A$6:$A$54=I6),(($B$6:$B$54<>"")+($D$6:$D$54<>"")+($F$6:$F$54<>"")))

Enter > Copy ลงด้านล่าง

:D ตัวอย่างสูตรตามด้านล่างครับ

เพิ่มคอลัมน์ A เพื่อลดภาระการคำนวณซ้ำ ๆ

ที่ A2 คีย์สูตรเพื่อแสดงบรรทัดแรกที่พบข้อมูล
=IFERROR(AGGREGATE(15,6,ROW(input!$B$2:$B$11)/(0<FREQUENCY(MATCH(input!$B$2:$B$11,input!$B$2:$B$11,0),ROW(input!$B$2:$B$11)-ROW(input!$B$2)+1)),ROWS(A$2:A2)),"")
Enter > Copy ลงด ...

:D ตัวอย่างการปรับ Code ครับ

แบบเก็บชื่อชีตไว้ใน Array

Sub DeleteSheets_ByName()
Dim ws As Worksheet
Dim sheetNamesToDelete() As Variant
Dim sheetName As Variant, i As Integer
sheetNamesToDelete = Array("T_01", "T_02", "S_01", "S_02")
Application.ScreenUpdating = False
Application ...

:D ตัวอย่างสูตรตามด้านล่างครับ

ที่ B17 คีย์
=SUMPRODUCT(($B$3:$AF$9=$A17)*($B$1:$AF$1<>"")*ISNUMBER(SEARCH($A$3:$A$9,$B$15)))*($A17<>0)
Enter > Copy ลงด้านล่าง
ที่ C17 คีย์
=SUMPRODUCT(($B$3:$AF$9=$A17)*($B$1:$AF$1="")*ISNUMBER(SEARCH($A$3:$A$9,$B$15)))*($A17<>0)
Enter > Copy ลงด้านล่าง
ท ...

เซลที่มีวันหยุดเพิ่ม3กับ13
:D จากข้างบนหมายถึงอะไรช่วยอธิบายเพิ่มเติม ดูจากเซลล์ไหน อย่างไรว่าวันหยุดเพิ่ม เลข 3 กับ 13 คืออะไรครับ :?:

การทำให้นับง่ายควรออกแบบใหม่ให้มีลักษณะเป็น Database จะได้ง่ายต่อการ Filter, การจัดเรียง, การค้นหา ฯลฯ ไม่ใช่ทำเป็นกลุ่มก้อนเหมือนดังตัวอย่างที่ให้มา

ยกตัวอย ...

:D ค่อย ๆ ถามตอบกันไป ตัวอย่างสูตรตามด้านล่างซึ่งจะเขียนเทียบไว้กับคำตอบเดิมครับ

ที่ T30 คีย์
=SUMPRODUCT(($A$3:$Q$72=$V30)*(ISNUMBER(MATCH($A$2:$Q$2,{"อาทิตย์","เสาร์"},0)))*ISNUMBER(SEARCH($A$2:$Q$71,$W$28)))*($V30<>0)
Enter > Copy ลงด้านล่าง
ที่ U30 คีย์
=SUMPRODUCT(($A$3:$Q$72=$V30 ...

กรุณาแสดงตัวอย่างคำตอบมาด้วยว่า ที่เซลล์ใด ได้ค่าเท่าใด ด้วยเงื่อนไขใด จะได้เข้าใจตรงกันครับ