Vba: cara memeriksa apakah sheet ada (dengan contoh)

Anda bisa membuat fungsi berikut di VBA untuk memeriksa apakah lembar tertentu ada di buku kerja Excel yang sedang aktif:

 Function sheetExists(some_sheet As String) As Boolean

On Error Resume Next
sheetExists = (ActiveWorkbook.Sheets(some_sheet).Index > 0)

End Function

Fungsi ini akan mengembalikan TRUE atau FALSE untuk menunjukkan apakah nama sheet tertentu ada di buku kerja Excel yang sedang aktif atau tidak.

Perhatikan bahwa fungsi ini hanya memeriksa apakah nomor indeks sheet lebih besar dari 0.

Jika sheet ada, nomor indeks sheet akan memiliki nilai minimal 1 , menyebabkan fungsi mengembalikan nilai TRUE .

Contoh berikut menunjukkan cara menggunakan fungsi ini dalam praktiknya.

Contoh: Gunakan VBA untuk memeriksa apakah sheet tersebut ada

Misalkan kita memiliki buku kerja Excel berikut dengan tiga lembar:

Kita bisa membuat fungsi berikut di VBA untuk memeriksa apakah ada nama sheet tertentu di buku kerja ini:

 Function sheetExists(some_sheet As String) As Boolean

On Error Resume Next
sheetExists = (ActiveWorkbook.Sheets(some_sheet).Index > 0)

End Function

Kita kemudian bisa mengetikkan rumus berikut di sel A1 pada lembar yang sedang aktif untuk memeriksa apakah nama lembar “Tim” ada di buku kerja ini:

 =sheetExists("Teams")

Tangkapan layar berikut menunjukkan cara menggunakan rumus ini dalam praktik:

Fungsi ini mengembalikan TRUE karena nama lembar ini ada di buku kerja.

Perhatikan juga bahwa fungsi ini tidak peka huruf besar-kecil.

Misalnya, jika kita memeriksa apakah nama sheet “tim” ada maka fungsinya juga akan mengembalikan TRUE :

Namun, misalkan kita memeriksa apakah nama sheet “coaches” ada:

Fungsi ini mengembalikan FALSE karena nama lembar ini tidak ada di buku kerja.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menghitung jumlah lembar dalam buku kerja
VBA: Cara mengekstrak data dari buku kerja lain
VBA: cara menyisipkan banyak baris