wa'alaikumussalam wr wb hehehe... hal tersebut tidak memungkinkan dengan application.onkey bisa jadi perlu menggunakan api sendmessage
wassalamu'alaikum wr wb Kid On Sun, Mar 10, 2019 at 6:34 AM Agus [email protected] [belajar-excel] < [email protected]> wrote: > > > Assalamu'alaikum warahmatullah. > Mas Kid, mau tanya nih,... > Cekrip di bawah ini: > application.onkey "1","'myproc 1'" > adalah perintah apabila ditekan rombol 1, > > Bagaimana cara mengubah cekripnya, jika diinginkan agar cursor pindah ke > cell selanjutnya jika sudah mengetik angka dari 0 sampai 100? > > Terima kasih > Wasalamu'alaikum warahmatullah > NangAgus > On 1/29/2019 10:14, 'Mr. Kid' [email protected] [belajar-excel] wrote: > > > hmmm.... > > coba begini : > 1. di vba, buat general module dan isi dengan 2 prosedur berikut beserta > sebaris deklarasi variabelnya > public wbka as workbook, shta as worksheet 'variabel object area kerja > si penulis nilai > > public sub myProc( optional lNilai as long=0 ) 'proses menulis nilai > if wbka.name=activeworkbook.name <http://activeworkbook..name> then > if shta.codename=activesheet.name then > if activecell.column=1 then > if activecell.row>1 and activecell.row<=600 then > application.enableeventts=false > activecell.value=lnilai > application.sendkeys "~" > application.enableeventts=true > endif > endif > endif > endif > end sub > > public sub AturShortcut(optional bState as boolean=false) 'pengubah > shortcut > if bstate then 'setup tombol dan variabel object area kerja > 'nama object sheet (bukan nama caption sheet [bukan nama sheet > di tab sheet]) -> misal area kerja di sheet bernama AREA_INPUT dengan nama > object sheet adalah Sheet1 > set wbka=thisworkbook:set shta=sheet1 > application.onkey "1","'myproc 1'" > application.onkey "2","'myproc 2'" > application.onkey "3","'myproc 3'" > application.onkey "4","'myproc 4'" > else > set wbka=nothing:set shta=nothing > application.onkey "1" > application.onkey "2" > application.onkey "3" > application.onkey "4" > endif > end sub > > lalu di sheet AREA_INPUT, dibuat prosedur events : > 1. Activate dan diisi dengan baris pemanggil AturShortcut dengan nilai > bState adalah true, yaitu : AturShortcut true > 2. deActivate dan diisi dengan baris pemanggil AturShortcut dengan nilai > bState adalah false, yaitu : AturShortcut > > kemudian di thisworkbook, dibuat events : > 1. activate dan diisi dengan baris pemanggil AturShortcut dengan nilai > bState adalah true, yaitu : AturShortcut true > 2. deActivate dan diisi dengan baris pemanggil AturShortcut dengan nilai > bState adalah false, yaitu : AturShortcut > 3. beforeclose dan diisi dengan baris pemanggil AturShortcut dengan nilai > bState adalah false, yaitu : AturShortcut > > Regards, > Kid > > > > On Sun, Jan 27, 2019 at 4:16 PM [email protected] [belajar-excel] > <[email protected]> wrote: > >> >> >> Terima kasih Pak Kenang Agus solved.. >> >> Mohon maaf, bagaimana kalau di setiap cell kolom A cara mengisinya dengan >> cara memasukkan/mengetik 1 pilihan - pilihannya : 1/2/3/4 (bukan memilih >> dari data validation) .. jika sudah mengetik pilihan maka otomatis kursor >> berpindah otomatis ke sel bawahnya .. >> >> Terima kasih. Ari >> > > >
