Bagaimana cara memeriksa apakah buku kerja dibuka melalui vba?
Untuk memeriksa apakah buku kerja terbuka menggunakan kode VBA apa pun, Anda perlu menggunakan perulangan FOR EACH yang dapat mengulang semua buku kerja yang terbuka saat ini dan memeriksa nama setiap buku kerja dengan nama yang Anda sebutkan. Anda dapat menggunakan kotak pesan untuk mendapatkan hasil perulangan. Atau bisa juga melakukan kode untuk memasukkan hasilnya ke dalam sel.
Periksa JIKA BUKU KERJA TERBUKA
- Pertama, Anda perlu mendeklarasikan variabel yang akan digunakan dalam kode untuk membuat loop.
- Gunakan kotak input untuk mendapatkan nama buku kerja yang ingin Anda cari.
- Mulai perulangan untuk menelusuri semua buku kerja yang terbuka.
- Tulis kode dengan IF STATEMENT untuk memeriksa nama buku kerja dengan nama yang Anda masukkan di kotak input, dan setelah namanya cocok, aktifkan buku kerja, tampilkan kotak pesan yang mengatakan buku kerja ditemukan, dan keluar dari prosedur.
- Pada akhirnya, selesaikan perulangan dan gunakan kotak pesan untuk menampilkan kotak pesan jika tidak ada yang ditemukan.
Tautan yang berguna: Jalankan makro – Perekam makro – Editor Visual Basic – Buku Pegangan Makro Pribadi
Berikut kode lengkapnya.
Sub vba_check_workbook() Dim WB As Workbook Dim myWB As String myWB = InputBox(Prompt:="Enter the workbook name.") For Each WB In Workbooks If WB.Name = myWB Then WB.Activate MsgBox "Workbook Found!" Exit Sub End If Next WB MsgBox "Not Found" End Sub