วิธีใช้ฟังก์ชันวันธรรมดาใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้ฟังก์ชัน วันธรรมดา ใน VBA เพื่อรับวันในสัปดาห์ (เป็นจำนวนเต็ม) จากวันที่ที่กำหนด

นี่เป็นวิธีทั่วไปในการใช้ฟังก์ชันนี้ในทางปฏิบัติ:

 Sub FindWeekday()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
    Next i
    
End Sub

มาโครนี้จะค้นหาวันในสัปดาห์ (เป็นจำนวนเต็ม) สำหรับแต่ละวันที่ในช่วง A2:A9 และแสดงผลลัพธ์ในช่วง B2:B9

โปรดทราบว่าจำนวนเต็มต่อไปนี้สอดคล้องกับแต่ละวันในสัปดาห์:

• 1 : วันอาทิตย์
• 2 : วันจันทร์
• 3 : วันอังคาร
• 4 : วันพุธ
• 5 : วันพฤหัสบดี
• 6 : วันศุกร์
• 7 : วันเสาร์

ตัวอย่างต่อไปนี้แสดงวิธีใช้ฟังก์ชัน วันทำงาน ในทางปฏิบัติ

หมายเหตุ : หากคุณต้องการส่งคืนวันในสัปดาห์เป็นชื่อ คุณควรใช้ฟังก์ชัน WeekdayName แทน

ตัวอย่าง: ใช้ฟังก์ชันวันธรรมดาใน VBA เพื่อค้นหาวันในสัปดาห์

สมมติว่าเรามีคอลัมน์วันที่ต่อไปนี้ใน Excel:

สมมติว่าเราต้องการรับวันในสัปดาห์ (เป็นจำนวนเต็ม) สำหรับแต่ละวันที่และแสดงผลลัพธ์ในคอลัมน์ B

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 Sub FindWeekday()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
    Next i
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

คอลัมน์ B จะแสดงวันในสัปดาห์ (เป็นจำนวนเต็ม) สำหรับแต่ละวันที่ในคอลัมน์ A

ตัวอย่างเช่น:

• 1/1/2023 เป็นวันอาทิตย์ ดังนั้นฟังก์ชันวันทำงานจึงส่งคืน 1
• 4/1/2023 เป็นวันพุธ ดังนั้นฟังก์ชันวันธรรมดาจึงส่งคืน 4
• 23/02/2023 เป็นวันพฤหัสบดี ดังนั้นฟังก์ชันวันธรรมดาจึงส่งคืน 5

และอื่นๆ

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มสำหรับฟังก์ชัน VBA Weekday ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีเปรียบเทียบวันที่ใน VBA
วิธีแปลงวันที่เป็นตัวเลขสัปดาห์ใน VBA
วิธีคำนวณวันระหว่างวันที่สองวันใน VBA