Terima kasih
On 3/11/2019 04:46, 'Mr. Kid' [email protected] [belajar-excel] wrote:
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]
<mailto:[email protected]> [belajar-excel]
<[email protected] <mailto:[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]
<mailto:[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 <http://wbka.name>=activeworkbook.name
<http://activeworkbook..name> then
if shta.codename=activesheet.name
<http://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]
<mailto:[email protected]> [belajar-excel]
<[email protected]
<mailto:[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
