Excel Forum

ตัวอย่างสูตรในเซลล์ D2 ครับ

=DATE($C$2-1,5+ROWS(E$1:E1)-1,1)

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

teedemon wrote: Mon May 12, 2025 6:21 am หลังจากที่ลองใช้สูตรที่แนะนำ เกิดปัญหาว่า ในกรณีมีข้อมูลซ้ำกันหลายแถว คอลัมน์ A,B
ค่าที่ได้จะเป็นค่าสุดท้ายในชุดข้อมูลครับผม

กรณีมีหลายค่าต้องการค่าลำดับที่เท่าไร จำเป็นต้องระบุมาเสมอครับ

ลองทำความเข้าใจคำอธิบาย Lookup จากที่นี่ครับ https://snasui.com/wordpress/last-cell-that-not-blank/

ลองดูว่าใช่สูตรนี้หรือไม่ครับ

=LOOKUP(2,1/(SEARCH(C2,data!$A$2:$A$6)*SEARCH(D2,data!$B$2:$B$6)),data!$G$2:$G$6)

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

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

=VLOOKUP(C2&"*",data!$A$2:$I$3,7,FALSE)

:D ลองดูว่าใช่สูตรนี้หรือไม่ครับ

เซลล์ E5 คีย์

=IF(DATE($AO$3,MATCH($D5,TEXT(1&"/"&{1,2,3,4,5,6,7,8,9,10,11,12},"ดดดด"),0),E$4)>EOMONTH(DATE($AO$3,MATCH($D5,TEXT(1&"/"&{1,2,3,4,5,6,7,8,9,10,11,12},"ดดดด"),0),1),0),"",IF(OR(AND($B$4>DATE($AO$3,MATCH($D5,TEXT(1&"/"&{1,2,3,4,5,6,7,8,9,10,11,12 ...

ช่วยอธิบายเพิ่มเติมพร้อมทำตัวอย่างคำตอบที่ต้องการมาด้วยว่า หากเปลี่ยนวันปิดภาคเรียนเป็น 30 กันยายน (หรือวันอื่น ๆ) จะแสดงผลอย่างไร เพื่อให้สะดวกต่อการทำความเข้าใจครับ

ถ้าใส่แค่ 1 ช่อง จะไม่มีการตีเส้นให้จะต้องใส่ข้อมูล หน้า input 3 ช่องถึงมีการตีเส้น และหน้าที่ 2 ไม่มีการตีเส้น

:D จะไม่มีการใส่แค่ 1 ช่องตามที่อธิบายไว้ดังที่ยกมาครับ :ard:


สิ่งที่จะต้องคำนึงคือการแสดง Page Break เผื่อไว้อย่างน้อย 1 หน้าเพื่อตีเส้นของหน้าสุดท้าย การทำเช่นนี้จะต้องประยุกต ...

ลองเขียนสูตรมาในไฟล์สักสองสามเซลล์แล้วแนบไฟล์มาใหม่ จะได้เห็นการอ้างอิงว่าเป็นอย่างไร

ไม่เช่นนั้นก็ต้องอธิบายมาให้ละเอียดว่าในชีต Sample เซลล์ H4 มีเงื่อนไขการแสดงข้อมูลอย่างไร คอลัมน์ไหนในชีต 2020 เท่ากับเซลล์ไหนในชีต Sample บ้าง จะได้สะดวกในการทำความเข้าใจครับ

:shock: มีการรันไปจนครบทุก Loop แล้วใช่หรือไม่ครับ

Code ส่วนนั้นจะมีการ Loop เข้าไปยังบรรทัดเริ่มของแต่ละ Page เพื่อทำการตีเส้น ตัวแปร j ตัวแรกคือบรรทัดที่ 1 ยังไม่ต้องตีเส้นจะต้องข้ามไปก่อน ไปตีเส้นบรรทัดที่มากกว่า 11 เหตุนี้มันจึงไปที่ End If เพราะยังไม่เข้าเงื่อนไข

เลข 11 มาจาก Code เดิมใช้เลข ...

คลิกไปที่ Code ที่ต้องการ Debug แล้วกดแป้น F8 ซ้ำ ๆ เพื่อให้รันไปทีละบรรทัด จะได้เห็นว่าบรรทัดไหนมีปัญหา การเขียน Code จำเป็นจะต้อง Debug เพื่อหาสาเหตุของปัญหาได้ครับ

ทำถูกแล้วครับ

ลอง Debug Code ตามข้อ 2 โดยรันไปทีละบรรทัดแล้วสังเกตว่ามันข้ามขั้นตอนใดไปหรือไม่ครับ

ผมทดสอบแล้วได้ผลตามปกติ ไม่ทราบว่ามีวิธี Run Code อย่างไรกรุณาอธิบายมาอย่างละเอียดครับ

:D กรณีนี้จำเป็นจะต้องหา Page Break เพื่อตีเส้น

สิ่งที่จะต้องคำนึงคือการแสดง Page Break เผื่อไว้อย่างน้อย 1 หน้าเพื่อตีเส้นของหน้าสุดท้าย การทำเช่นนี้จะต้องประยุกต์โดยเพิ่มข้อมูลเผื่อในชีต Input อย่างน้อย 2 บรรทัด เช่นเดิมมี 3 ใส่เผื่อไปอีก 2 เป็น 5 บรรทัด ซึ่งจะต้องหาทางลบสองบรรทัดนี้ออกจากชีต ...

ได้ลองแก้แล้วหรือไม่ แก้แล้วได้ผลเป็นอย่างไร ติดขัดตรงส่วนใด ระบุปัญหาที่เป็นแล้วมาได้เลยครับ

ค่อย ๆ ถามตอบกันไป ควรจะแจ้งให้ทราบด้วยว่าสิ่งที่ทำไปแล้วคืออะไร ติดขัดตรงไหน จะได้เข้าถึงปัญหาโดยเร็วและมีโอกาสที่ไม่ต้องรอคอยนานครับ

จาก Statement If r = rFind Then ไม่ทราบว่า rFind คือะไรครับ

:D ที่เขียนเอาไว้แล้วมีปัญหาอะไรครับ :?:

สำหรับการทำงานตามที่อธิบายมา เพื่อให้ง่ายควรสร้าง Template ที่มีการจัดรูปแบบเอาไว้เรียบร้อยแล้วเพื่อพร้อมใช้งาน จากนั้นจะ Loop Question ไปวางใน Template แล้ว Copy Template ไปวางยังบรรทัดล่างของข้อมูลก่อนหน้า จะได้ไม่ต้องทำไปจัด Format ไป

สำหรับการแสดงผลเม ...

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

ที่ C2 คีย์
=IF(B2="","",IFERROR(LOOKUP(2,1/(C$1:C1<>""),C$1:C1),"")&CHAR(10)&"● "&B2)
Enter > Copy ลงด้านล่าง
ที่ D2 คีย์
=IFERROR(LOOKUP(2,1/(C2:C6<>""),C2:C6),"")
Enter

กำหนด Custom Format ตามด้านล่างครับ

1. คลุมข้อมูลที่ต้องการจัด Format > คลิกขวารายการที่คลุม
2. Format Cells...
3. เลือก Custom
4. ที่ช่อง Type: คีย์ [=100]#,##0;#,##0.00
5. คลิกปุ่ม OK

ผมตอบไว้แล้วใน Post ด้านบนครับ