วิธีเพิ่มวันเป็นวันนี้ใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้ฟังก์ชัน DateAdd ใน VBA เพื่อเพิ่มจำนวนวันที่ระบุให้กับวันที่ได้

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

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

มาโครนี้จะเพิ่มสี่วันในแต่ละวันในช่วง A2:A10 และแสดงวันที่ใหม่ในช่วง B2:B10

โปรดทราบว่าอาร์กิวเมนต์ “d” ในฟังก์ชัน DateAdd ระบุว่าเราต้องการเพิ่ม วัน ให้กับวันที่ แทนที่จะเป็นหน่วยเวลาอื่น

โปรดดู หน้าเอกสารประกอบ VBA สำหรับรายการหน่วยทั้งหมดที่คุณสามารถใช้ในฟังก์ชัน DateAdd

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

ตัวอย่าง: เพิ่มวันในวันนี้ใน VBA

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

สมมติว่าเราต้องการเพิ่มสี่วันในแต่ละวันและแสดงวันที่ใหม่ในคอลัมน์ B

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

 SubAddDays ()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = DateAdd(" d ", 4, Range(" A " & i))
    Next i
    
End Sub

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

โปรดทราบว่าคอลัมน์ B มีวันที่แต่ละวันในคอลัมน์ A บวกสี่วัน

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

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

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

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

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