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

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

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

มาโครเฉพาะนี้จะส่งกลับค่าวันที่ในช่วง D2:D13 โดยใช้ค่าปีในคอลัมน์ C ค่าเดือนในคอลัมน์ B และค่าวันในคอลัมน์ A

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

ตัวอย่าง: วิธีใช้ฟังก์ชัน DateSerial ใน VBA

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

สมมติว่าเราต้องการแสดงค่าวันที่ในคอลัมน์ D โดยใช้ค่าวัน เดือน และปีในแต่ละแถว

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

คอลัมน์ D แสดงค่าวันที่ที่เกิดจากการใช้ค่าวัน เดือน และปีจากคอลัมน์ A, B และ C ตามลำดับ

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

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

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

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