Hiperlink biasanya kita bisa saja membuatnya di excel langsung namun kali ini saya akan coba memaparkan membuat hyperlink dengan macro secara detail
seperti dibawah ini

- Buka Excel
- Klik Alt + F11 bersamaan untuk menampilkan halaman macro editor
- Klik Insert
- Klik UserForm (selanjutnya tampil halaman UserForm (gambar-4)
- Rubah Caption User Form1 menjadi Main Menu pada Properties (Gambar-5)
- Klik Control MultiPage pada Toolbox, dan drag ke halaman main menu yang sudah dibuat (Gambar-6)
- Klik tombol CommandButton pada Toolbox, drag dan letakkan dibawah halaman main menu, klik sebanyak 5 tombol command button (Gambar-6)
- Kemudian rubah caption kelima command button tersebut masing-masing menjadi Input, Output, Summary, Simpan dan Tutup, pada properties.
- Selanjutnya masukkan kode macro yang berwarna biru masing-masing pada setiap tombol yang sudah dibuat ( Input, Output, Summary, Simpan dan Tutup) dengan cara mengklik masing-masing tombol tsb.
- Untuk mempercantik Menu dapat dikombinasikan dengan gambar-gambar kesukaan
- Terakhir agar supaya pada saat file pertama kali dibuka dan langsung menampilkan menu buat perintah macro seperti pada kode macro yang berwarna merah, dan jangan lupa membuatnya di Module.



Gambar-6
( nah dari mana code code ini muncul ?? )
ini kalau langsung dicopy di macro mungkin akan langsung jadi, tapi bagaimana caranya atau sytem kerjanya???
Private Sub CommandButton1_Click()
Sheets("input").Select
Range("A1").Select
End Sub
Private Sub CommandButton2_Click()
Sheets("output").Select
Range("A1").Select
End Sub
Private Sub CommandButton3_Click()
Sheets("summary").Select
Range("A1").Select
End Sub
Private Sub CommandButton4_Click()
Sheets("input").Select
Range("A1").Select
ActiveWorkbook.Save
End Sub
Private Sub CommandButton5_Click()
Me.Hide
End Sub
Sub Auto_Open()
UserForm1.Show
End Sub
0 komentar
Posting Komentar