Bagaimana cara menerapkan tombol untuk membuka buku kerja lain di Excel?
Di worksheet kita bisa memasukkan hyperlink untuk menautkan workbook lain, sehingga bisa membukanya dengan cepat dan mudah. Tapi, pernahkah Anda mencoba membuat tombol untuk membuka workbook lain melalui workbook aktif?
Terapkan tombol untuk membuka buku kerja lain dengan kode VBA
Terapkan tombol untuk membuka buku kerja lain dengan kode VBA
Di Excel, kita bisa menyisipkan tombol bentuk, lalu menautkan kode ke sana. Anda dapat menyelesaikan pekerjaan ini dengan langkah-langkah berikut:
1. Klik Menyisipkan > bentuk > empat persegi panjang, lihat tangkapan layar:
2. Kemudian seret mouse untuk menggambar tombol bentuk, dan format sesuai kebutuhan Anda, lihat tangkapan layar:
3. Dan kemudian tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
4. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Buka buku kerja tertentu:
Sub Openworkbook_Click()
'Updateby Extendoffice
Dim xWb As Workbook
Dim wbName As String
On Error Resume Next
Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
wbName = xWb.Name
If Err.Number <> 0 Then
MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
Err.Clear
Else
MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
End If
End Sub
Note: Pada kode di atas, Anda harus mengubah jalur dan nama file C: \ Users \ DT168 \ Desktop \ test \ Book2.xlsx ke jalur sebenarnya dari buku kerja yang ingin Anda tautkan.
5. Kemudian simpan dan tutup jendela kode ini, klik kanan tombol bentuk yang telah Anda buat, pilih Tetapkan Makro dari menu konteks, di-pop-out Tetapkan Makro kotak dialog, klik nama makro Openworkbook_Klik Anda baru saja menyisipkan, dan klik OK tombol, lihat tangkapan layar:
6. Sekarang, saat Anda mengklik tombol bentuk:
(1.) Jika buku kerja tidak ada, Anda akan mendapatkan kotak prompt berikut:
(2.) Jika buku kerja ada, itu akan dibuka sekaligus, dan kotak prompt juga muncul untuk mengingatkan Anda:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!