Excel Forum

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

Sub PrintFormSheet()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("¿ÍÃìÁ")

Dim headerRange As Range
Dim contentRange As Range
Dim footerRange As Range
Set headerRange = ws.Range("A1:S9")
Set contentRange = ws.Range("A10:S86")
Set footerRange = ws.Range ...

ไฟล์ที่แนบมาสามารถแสดง Footer ได้แล้ว ไม่ทราบว่ามีปัญหาอะไร กรุณาแจ้งมาด้วยจะได้เข้าใจตรงกันครับ

การทำ Footer ตามภาพที่แนบมานั้นจะต้องใช้เทคนิคจับเป็นภาพ, Save แล้วแนบไว้ใน Custom Footer

การทำเช่นนี้จะต้องมั่นใจว่าหากมีการ Link ข้อมูลมาแสดง ก่อนจับภาพไปใช้เป็น Footer ข้อมูลต้องมีการ Update เรียบร้อยแล้ว

ลองทำมาเองก่อนด้วย VBA ตามที่แนะนำไปด้านบน ติดแล้วค่อยถามกันต่อครับ

ต้องการแสดงอะไรใน Footer ลองอธิบาย หากมีภาพช่วยแนบมาด้วยครับ

ลบ Custom Header ทิ้งตามภาพครับ

ลองปรับมาเองก่อนด้วย Code ที่ให้ไป

การกำหนดให้แสดงกี่หน้าในชีตใด ๆ สามารถใช้สิ่งที่ตอบไปแล้วมาประยุกต์ได้ การเลือก Sheet ทั้งหมดก่อน Print สามารถใช้ Code เดิมได้ อาจจะนำ Code ไปถาม Copilot หรือ ChatGPT ให้ปรับให้ก่อนได้ ติดตรงไหนค่อยถามกันต่อครับ

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

Sub printpdf()
Dim sFolderPath As String
Dim FName As String
Dim fdObj As Object

On Error Resume Next

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set fdObj = CreateObject("Scripting.FileSystemObject")
fdObj.CreateFolder ("C:\" & Range("A2 ...

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

ที่ M1 คีย์เพื่อเป็นคอลัมน์ช่วย
=INT((ROWS(M$1:M1)-1)/8)+1
Enter > Copy ลงด้านล่าง
ที่ N1 คีย์เพื่อเป็นคอลัมน์ช่วย
=COUNTIFS(M$1:M1,M1)
Enter > Copy ลงด้านล่าง
ที่ K1 คีย์สูตรเพื่อแสดงคำตอบ
=IFERROR(IF(N1=1,INDEX($A$2:$A$3&" "&$B$2:$B$3,M1),IF(N1=7,"ANSWER ...

เข้าใจว่าจะหาว่าลำดับเดิมกลายเป็นลำดับที่เท่าไรในข้อมูลที่ถูกสุ่มมาใหม่

หากเข้าใจถูกต้องที่ K2 คีย์

=MATCH(INDEX(E2:I2,D2),L2:P2,0)

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

ตัวอย่างสูตรที่เซลล์ C1 ครับ

=IF(ROWS(C$1:C1)=1,1,LOOKUP(9.99999999999999E+307,C$1:INDIRECT("R[-1]C",0))+1)

Enter > Copy ไปวางยังเซลล์ที่เกี่ยวข้องด้านล่าง

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

Sub ZoomSheet()
Static x As Long
x = x + 1
With ActiveSheet.PageSetup
If x >= 90 Then x = 0
.Zoom = 100 - x
End With
End Sub

หากต้องการให้โปรแกรมจดจำค่าเดิมเมื่อเปิดไฟล์ขึ้นมาใหม่ควรกำหนดค่า x ลงในเซลล์ใด ๆ แล้วอ้างอิงจากเซลล์นั้นเข้ามาใช้แทน x ครับ

ทำตามที่ผมตอบไปเสียให้ครบก่อนจากนั้นแนบไฟล์มาใหม่พร้อมปัญหาที่เป็น จะได้ตอบต่อไปจากนั้นครับ

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

1. ที่ Q2 คีย์
   =RAND()
   Enter > Copy ไปด้านขวาถึง U2 > Copy ลงด้านล่าง
2. ที่ L2 คีย์
   =INDEX($E2:$I2,MATCH(SMALL($Q2:$U2,COLUMNS($L2:L2)),$Q2:$U2,0))
   Enter Copy ไปด้านขวาถึง P2 > Copy ลงด้านล่าง
3. กดแป้น F9 เพื่อสุ่มซ้ำและเลือกผลลัพธ์ได้ตามต้องการ

ตัวอย่างสูตรในเซลล์ 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 กันยายน (หรือวันอื่น ๆ) จะแสดงผลอย่างไร เพื่อให้สะดวกต่อการทำความเข้าใจครับ