KeyCode merupakan sebuah kode yang yang dapat dianggap sebagai kunci individual pada keyboard Anda, dimana setiap tombol pada keyboard Anda memiliki nilai kode kunci unik. Akan tetapi untuk sebagian tombol keyboard, mereka berbagi nilai atau kode tersebut, misalnya seperti tombol + dan = sama-sama memiliki nilai kode kunci yang sama yakni (187), hal ini karena secara fisik kedua nilai tersebut berada dalam satu tombol atau tuts keyboard yang sama. Hal ini juga berlaku untuk tombol : dan ; atau [ dan {.

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 F2, atau ketika menekan tombol Home untuk menjalankan perintah menutup userform, dan lain sebagainya.

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:

1. Buka aplikasi Microsoft Excel kemudian silahkan tekan tombol pintas Alt+F11 untuk menuju jendela Microsoft Visual Basic Editor
2. Setelah berada di jendela Microsoft Visual Basic Editor, silahkan buat sebuah UserForm dan tambahkan beberapa VBA control seperti gambar berikut
   
3. 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. Gracias

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :