Vba: ตัวเลขที่มากกว่าวันที่

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้ใน VBA เพื่อนับจำนวนวันที่มากกว่าวันที่ระบุ:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

ตัวอย่างนี้จะนับจำนวนวันที่ในช่วง A2:A10 ที่มากกว่าวันที่ในเซลล์ C2

ผลลัพธ์จะถูกส่งไปยังเซลล์ D2

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

ตัวอย่าง: นับมากกว่าวันที่โดยใช้ VBA

สมมติว่าเรามีรายการวันที่ต่อไปนี้ใน Excel และเราต้องการทราบจำนวนวันที่มากกว่า 25/04/2023 :

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

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

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

เซลล์ D2 บอกเราว่ามี 6 วันที่ในช่วง A2:A10 มากกว่า 04/25/2023

โปรดทราบว่าเราสามารถเปลี่ยนค่าในเซลล์ C2 และเรียกใช้แมโครอีกครั้งเพื่อนับจำนวนวันที่มากกว่าวันที่ระบุอื่น

ตัวอย่างเช่น สมมติว่าเราเปลี่ยนวันที่ในเซลล์ C2 เป็น 10/1/2023 และเรียกใช้แมโครอีกครั้ง:

เราเห็นว่ามีวันที่มากกว่า 10/1/2023 มี 3 วัน

หมายเหตุ: หากคุณต้องการนับจำนวนวัน ที่มากกว่าหรือเท่ากับ วันที่ระบุ เพียงแทนที่ “>” ในฟังก์ชัน CountIf ด้วย “>=”

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

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

วิธีจัดเรียงตามวันที่ใน VBA
วิธีเพิ่ม if ระหว่างวันที่สองวันใน VBA
วิธีเพิ่มวันลงใน VBA