
Apa yang bisa kita lakukan setelah tahu kode-kode yang dimiliki oleh setiap tuts yang ada di keyboard tersebut ?
Nah, karena setiap tombol keyboard memiliki kode yang berbeda (kecuali tombol yang secara fisik memiliki 2 buah nilai yang sama) maka kita bisa memberikan perintah-perintah yang berbeda pula. Sebagai contoh, kita bisa menjalankan perintah untuk menyimpan file ketika menekan tombol
Oke. karena tema tutorial excel kali ini berhubungan dengan parameter KeyCode maka prosedur ini hanya bisa dijalankan pada sebuah UserForm, dan oleh sebab itu untuk membuat masing-masing atau sebagian tombol keyboard agar memiliki fungsi atau perintah yang berbeda maka syarat utamanya adalah harus membuat UserForm terlebih dahulu.
Secara lengkap, berikut langkah-langkahnya:
- Buka aplikasi Microsoft Excel kemudian silahkan tekan tombol pintas
Alt +F11 untuk menuju jendela Microsoft Visual Basic Editor - Setelah berada di jendela Microsoft Visual Basic Editor, silahkan buat sebuah UserForm dan tambahkan beberapa VBA control seperti gambar berikut
- Selanjutnya untuk masing-masing tombol yang sudah Anda buat, berikan perintah dengan prosedur yang dipilih adalah KEYDOWN. Untuk kode lengkapnya, silahkan anda copy paste kode berikut di jendela kode
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyDelete Then MsgBox "Anda Menekan Tombol DELETE" ElseIf KeyCode = vbKeyShift Then MsgBox "Anda Menekan Tombol SHIFT" & vbCr & "Kursor akan pindah ke TextBox berikutnya" TextBox2.SetFocus End If End Sub Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyBack Then MsgBox "Anda Menekan Tombol BACKSPACE" & vbCr & "Kursor akan fokus ke TextBox1" TextBox1.SetFocus ElseIf KeyCode = vbKeyEnd Then MsgBox "Anda Menekan Tombol END" & vbCr & "Kursor akan fokus ke CommandButton1" CommandButton1.SetFocus End If End Sub Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyBack Then MsgBox "Anda Menekan Tombol BACKSPACE" & vbCr & "Kursor akan fokus ke TextBox2" TextBox2.SetFocus ElseIf KeyCode = vbKeyHome Then MsgBox "Anda Menekan Tombol HOME" & vbCr & "Kursor akan fokus ke TextBox1" TextBox1.SetFocus End If End Sub
Setiap kode yang saya gunakan di atas menggunakan statemen IF yang saya kombinasikan dengan prosedur keycode untuk menjalankan perintah tertentu (baca : kotak pesan), dan hanya akan dijalankan ketika pengguna menekan tombol-tombol yang sudah saya tentukan pada tiap-tiap objek vba dalam userform tersebut. Untuk lebih jelasnya, silahkan demo hasil akhir dari tutorial akhir berikut ini:

Selamat...Anda sudah berhasil menentukan tiap-tiap tombol keyboard agar mempunyai perintah sendiri-sendiri dengan menggunakan statemen KeyCode.
semoga panduan singkat tentang cara penggunaan prosedur KeyDown bisa memberikan wawasan baru untuk anda. Jangan lupa kunjungi channel youtube kami untuk mendapatkan video tutorial terbaru dari excelive.com.
Incoming Search Terms
Panduan singkat menggunakan parameter KEYDOWN Microsoft Visual Basic Cara memberikan perintah pada tiap-tiap tombol keyboard
Rahasia membuat tombol Keyboard agar memiliki perintah tertentu pada aplikasi Ms. Excel
Fungsi Keycode Microsoft Excel dan cara mengaplikasikannya pada aplikasi Excel
Memindah kursor secara cepat dengan menggunakan Macro VBA
Terimakasih sudah membaca
Tutorial: Cara Menggunakan KeyCode Agar Setiap Tombol KeyBoard Memiliki Perintah yang Berbeda
Label: Tips - Author: excelive
Tutorial: Cara Menggunakan KeyCode Agar Setiap Tombol KeyBoard Memiliki Perintah yang Berbeda
Label: Tips - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :