Snasui Excel Forum

จากไฟล์ที่แนบมา ต้องการดึงข้อมูลจากตารางมาใส่ในเซล L2
โดยมีเงื่อนไขในเซล J2 มีค่าเป็นอย่างไร ก็ให้ไปดึงจากคลอลัมน์นั้น
เช่น J2 มีค่าเป็น ส.3 ก็ให้ไปดึงจากคลอลัมน์ G
ที่ตรงกับแถวที่มีค่าตรงกับเซล K2 ตรงกับคลอลัมน์ A
ต้องเขียนสูตรอย่างไรครับ

จากไฟล์ที่แนบมา

Sub SaveTabName()
Dim Wb As Worksheet
' Dim myWB As Workbook
' Dim tempWB As Workbook
Dim fdObj As Object
Dim FileToOpen As Variant
Dim OpenBook As Workbook
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set fdObj = CreateObject ...

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

ขอบคุณครับ

ผมได้ลองทดสอบสูตรอีกครั้งโดยเปลี่ยนข้อมูลที่จะดึงมาใหม่ ในชีท leave เพื่อให้เห็นชัดเจน เป็นดังนี้
ในรอบครึ่งปีแรก นายวราพงษ์ ลารวมทั้งหมด 9 ครั้ง แต่สูตร ดึงข้อมูลมาแสดงได้แค่ 8 แถว (8 ครั้ง)
ในรอบครึ่งปีหลัง นายวราพงษ์ ลารวมทั้งหมด 6 ครั้ง แต่สูตร ดึงข้อมูลมาแสดงได้แค่ 3 แถว (3 ครั้ง)

ขอบคุณมากครับอาจารย์
แต่จากสูตรที่แนะนำให้ปรับนั้น
ถ้าเป็นครึ่งปีแรก ดึงข้อมูลมาได้หมดทุกแถวที่เข้าเงื่อนไข
ถ้าเป็นครึ่งปีหลัง ดึงมาได้ 3 แถว จากที่เข้าเงื่อนไข 5 แถว
รบกวนอาจารย์อีกครั้งครับ

กรณีดึงข้อมูลมาแสดงรายบุคคล ให้ตรงกับเซล B2 ในชีท report1
โดยมีเงื่อนว่าให้ดึงเฉพาะข้อมูลระหว่างวันที่ ที่อยู่ใน เซลที่ 2 ถึง เซล T3 ของชีท leave มาแสดง
ต้องปรับสูตรอย่างไรครับ

ขอบคุณครับ

จาไฟล์ที่แนบมา


Sub SetFooterFont()
Dim strFooter As String
Application.ScreenUpdating = False
' Sheet1.Activate
strFooter = Sheet2.Range("B2")
ActiveSheet.PageSetup.RightFooter = "&""TH Sarabun New,nomal""&16" & strFooter
Application.ScreenUpdating = False
End Sub

ต้องการใส่ข้อความท้ายหน ...

ขอบคุณครับ
ได้ตามต้องการครับผม

จากไฟล์ที่แนบมา
ต้องการดึงข้อมูลจากชีท Leave ไปแสดงที่ชีท Total
โดยมีเงื่อนว่าให้ดึงเฉพาะข้อมูลระหว่างวันที่ ที่อยู่ใน เซลที่ 2 ถึง เซล T3 ของชีท leave มาแสดง

..

อาจารย์ครับ ปัญหาที่สงสัยคือ
การตั้งค่าทั้งสองไฟล์เท่ากันทุกอย่าง ขนาดกระดาษ ขอบกระดาษ ความกว้างของคลอลัมน์
แต่ไฟล์หนึ่ง พื้นที่การพิมพ์ ครอบคลุม 12 คลอลัมน์ ในหนึ่งหน้า เอ 4 ในมาตราส่วน 98%
แต่อีกไฟล์ พื้นที่การพิมพ์ ครอบคลุม 10 คลอลัมน์ ในหนึ่งหน้า เอ 4 ในมาตราส่วน 98% หลุดไปสองคลอลัมน์

ผมมีไฟล์ Excel 2 ไฟล์ ที่ตั้งค่ากระดาษทั้ง ขนาดกระดาษ ระยะขอบ เหมือนกันหมดทุกอย่าง
ทั้งสองไฟล์ใช้โน๊ตบุ๊คเครื่องเดียวกัน excel 2019 เหมือนกัน
ทั้งสองไฟล์กำหนดคลอลัมน์ให้กว้าง 8 แถวสูง 20 เท่ากันหมด

ไฟล์ที่ชื่อ A4_96.xlsx จะใช้คลอลัมน์ทั้งหมด 12 คลอลัมน์ และ 44 แถว จะพอดีกับขนาดกระดาษ A4 ที่ตั้งไว ...

จากไฟล์ที่แนบมา

Sub last_Col()
Dim Irow As Long
Dim lColumn As Long
Irow = Range("F1").End(xlUp).Row + 6
lColumn = Range("F1").End(xlToRight).Column
Cells(Irow, lColumn).Select
End Sub


ต้องการให้โค๊ดนี้ทำงานโดยให้เป็น select เซลในแถวที่ 7 ที่ถัดจากเซลสุดท้ายของแถวที่มีข้อมูล
ต้องปรับโค ...

ขอบคุณครับ

ขอบคุณครับ
ยังไม่ได้ตามความต้องการครับ
อธิบายความต้องการเพิ่มเติมครับ
ชีทจะถูกสร้างมาทุกครั้งที่มีการบันทึกงาน โดยตั้งชื่อชีทเป็น T_01 T_02..........เรื่อย ๆ อาจถึง T_30 ก็เป็นได้ แล้วแต่การบันทึก
เพราะฉะนั้นจึงไม่สามารถเขียนชื่อชีทนั้นได้ทุกชื่อเพื่อให้ลบได้
ความต้องการคือ ให้โค๊ดตรวจสอบดูว่าชื่อช ...

จากไฟล์ที่แนบมา

Sub DeleteSheetsByName()
Dim ws As Worksheet
Dim sheetNamesToDelete() As Variant
Dim sheetName As Variant
sheetNamesToDelete = Array("T_01", "T_02", "S_01", "S_02")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets ...

จากไฟล์ที่แนบ
ที่ชีท Student ต้องการนับจำนวนห้องเรียนว่าแต่ละชั้นมีกี่ห้อง(แสดงผลในเซล N3 ถึง N14)
ต้องเขียนสูตรอย่างไรครับ

ขอบคุณครับ