√ Cek Nama Worksheet Sudah Ada Atau Belum Dengan Vba

Cara cek nama worksheet apakah sudah ada atau belum memakai VBA memang tidaklah sulit alasannya yakni membutuhkan budi yang cukup sederhana. Logikanya yakni kita definisikan terlebih dahulu nama worksheet yang akan dicari lalu jikalau tidak ditemukan munculkan pesan " worksheet tidak ditemukan tetapi jikalau ditemukan munculkan pesan bahwa "worksheet ditemukan" Kira-kira menyerupai itu cukup sederhana. Untuk lebih mempermudah Anda dalam berguru VBA silakan Anda lanjutkan untuk membaca goresan pena aku ini.

Langkah pertama untuk cek nama worksheet pada workbook yang aktif Anda sanggup memakai UserForm ditambahkan dengan objek CommandButton, namun Anda juga sanggup eksklusif menciptakan Button pada worksheet tersebut. Pada teladan yang akan aku buat yakni dengan memakai UserForm untuk mengendalikan atau sebagai interface dengan pengguna Ms. Excel.

Silakan buat 1 buah UserForm dan 1 buah CommandButton dan ganti Caption UserForm1 pada properties dengan goresan pena " Cek Nama Worksheet" lalu pada CommandButton1 silakan ganti Captionnya menjadi " Cek Nama Sheet". Setelah itu silakan Anda buat atau copykan script dibawah ini.

Private Sub CommandButton1_Click()
Dim sh As Worksheet
On Error Resume Next
   Set sh = ActiveWorkbook.Sheets("Database")
   If Err.Number <> 0 Then
      MsgBox "Sheet Database Tidak ditemukan"
      Err.Clear
      On Error GoTo 0
   Else
      MsgBox "Sheet Database Sudah ada"
   End If
End Sub

Coding diatas memakai Objek CommandButton dan mekanisme klik untuk mengeksekusinya. Silakan anda jalankan dengan menekan tombol F5 pada keyboard atau Anda klik Icon Run yang berupa segitiga warna hijau lalu klik tombol " Cek Nama Sheet" dan lihat hasilnyaa.

Gambar diatas yakni hasil dari coding yang telah dibentuk diatas, apabila Anda klik tombol "Cek Nama Sheet" maka muncul pesan "Sheet Database Sudah ada" hal ini alasannya yakni aku telah menyispkan nama worksheet "Database" perhatikan urutan nama worksheet pada gambar diatas. Apabila tidak terdapat nama worksheet "Database" maka munculah pesan "

Perhatikan perbedaan antara gambar yang pertama dan yang kedua untuk gambar pertama terdapat nama sheet "Database" sedangkan untuk gambar kedua tidak ada dan pesanpun berbeda untuk gambar pertama terlihat pesan " "Sheet Database Sudah Ada" sedangkan untuk gambar kedua tertulis pesan "Sheet Database Tidak Ditemukan".

Kira-kira begitu bagaimana cara cek nama worksheet apakah sudah ada atau belum dengan memakai script VBA biar bermanfaat dan silakan kembangkan kreasimu untuk berguru lebih detail lagi mengenai coding-coding VBA.

Baca:
Koleksi Kode/Coding VBA Dasar yang Wajib Dipelajari

Sumber http://www.excel-id.com/