Vba: cara menggunakan fungsi match dengan tanggal

Anda dapat menggunakan sintaks berikut untuk menggunakan fungsi MATCH untuk menemukan tanggal di VBA:

 SubMatchDate ()
    
'attempt to find date in range
On Error GoTo NoMatch
    MyMatch = WorksheetFunction.Match(CLng(CDate(" 4/15/2023 ")), Range(" A2:A10 "), 0)
    MsgBox (MyMatch)
End
    
'if no date found, create message box to tell user
NoMatch:
    MsgBox (" No Match Found ")
End

End:
End Sub

Contoh khusus ini mencari tanggal 15/04/2023 dalam rentang A2:A10 .

Jika tanggal ditemukan, kotak pesan akan muncul memberitahu pengguna baris mana dalam rentang yang berisi tanggal.

Jika tanggal tidak ditemukan, kotak pesan muncul mengatakan “Tidak ditemukan kecocokan” sehingga pengguna mengetahui tanggal tidak ada dalam rentang tersebut.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Catatan : Fungsi CDate mengubah string teks menjadi tanggal di VBA.

Contoh: Menggunakan Fungsi MATCH dengan Tanggal di VBA

Misalkan kita memiliki daftar tanggal berikut dalam rentang A2:A10 di Excel:

Kita dapat membuat makro berikut untuk menemukan nomor baris yang berisi tanggal 15/04/2023 dalam rentang A2:A10 :

 SubMatchDate ()
    
'attempt to find date in range
On Error GoTo NoMatch
    MyMatch = WorksheetFunction.Match(CLng(CDate(" 4/15/2023 ")), Range(" A2:A10 "), 0)
    MsgBox (MyMatch)
End
    
'if no date found, create message box to tell user
NoMatch:
    MsgBox (" No Match Found ")
End

End:
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kotak pesan memberi tahu kita bahwa tanggal 15/04/2023 ditemukan di baris ke-7 rentang A2:A10 .

Perhatikan bahwa jika kita mencari tanggal 25/04/2023 , kita akan menerima hasil berikut:

Kotak pesan memberi tahu kita bahwa tanggal 25/04/2023 tidak ditemukan dalam rentang tersebut.

Catatan : Anda dapat menemukan dokumentasi lengkap metode Match di VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: cara menggunakan XLOOKUP
VBA: Cara menggunakan pencocokan indeks
VBA: Cara menggunakan INDEX MATCH dengan berbagai kriteria