Snasui Excel Forum

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

ลองลบตามคำแนะนำแล้วครับ ยังไม่ได้ผลที่ต้องการ

จากไฟล์ที่แนบมา
วันเริ่มต้นอยู่ที่ B2
จำนวนวันอยู่ที่ C2
ต้องการให้ D2 แสดงเป็นวันที่ ที่เริ่มนับจากวันเริ่มต้น (B2) ไป 5 วัน (C2)
โดยมีเงื่อนไขว่า ไม่นับวันเสาร์ วันอาทิตย์ และวันหยุดที่กำหนดไว้ใน I3:I7
ผมลองใช้สูตร =WORKDAY.INTL(B2,C2,1,I3:I7)-1 แล้ว ปรากฎว่า
ถ้าวันเริ่มต้นเป็นวันจันทร์ สูตรจะน ...

ได้แล้วครับขอบคุณมากครับผม

จากไฟล์ที่แนบมา คลอลัมน์ D แสดงผลบวกของคลอลัมน์ B + คลอลัมน์ C

ต้องการ จัดรูปแบบตัวเลขในเซลของ คลอลัมน์ D ดังนี้
ถ้าเป็นจำนวนเต็ม ไม่ต้องแสดงทศนิยม
ถ้าเป็นทศนิยม ให้แสดงทศนิยม
ถ้าเป็น 0 ให้ว่างไว้
ถ้าเป็นค่าว่าง ให้ว่างไว้
ต้องจัดรูปแบบเซลนั้นอย่างไรครับ

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

Private Sub Workbook_Open()
Dim openCount As Integer
Const MAX_OPEN_COUNT As Integer = 3
If openCount < MAX_OPEN_COUNT Then ' ตรวจสอบว่าได้เปิดไฟล์เกินจำนวนครั้งที่กำหนดหรือไม่
openCount = openCount + 1 ' เพิ่มจำนวนครั้งที่เปิด
MsgBox "เปิดไฟล์สำเร็จ. คุณได้เปิดไฟล์แล้ว ...

ขอบพระคุณครับ

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

Sub CheckSystemLocale()
Dim lang_code As Long
' Get the LCID of the user interface language
lang_code = Application.LanguageSettings.LanguageID(msoLanguageIDUI)

' Display the LCID
MsgBox "The system UI locale LCID is: " & lang_code

' You can then use this LCID in ...

จากไฟล์ที่แนบมา ต้องการดึงข้อมูลจากตารางมาใส่ในเซล 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 มาแสดง

..