Assalamu'alaikum warah matullah.
Mas Kid saya coba membuat cekrip seperti contoh thread ini:
MsgBox wbka.Name & vbCrLf & _
ActiveWorkbook.CodeName & vbCrLf & _
ActiveWorkbook.Name & vbCrLf & _
shta.CodeName & vbCrLf & _
ActiveSheet.Name & vbCrLf & _
ActiveSheet.CodeName
hasilnya sebagai berikut:
Apakah, kode mas Kid di bawah ini tidak terbalik?
seharusnya yang diberi CodeName adalah Activesheet bukan ActiveWorkbook
terima kasih
Wasalamu'alaikum Warahmatullah
NangAgus
On 3/7/2019 06:24, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:
mungkin karena beberapa bagian yang salah dari imil lalu (lihat bagian
yang diberi warna latar)
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.*code*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.enableevents=false
activecell.value=lnilai
application.sendkeys "~"
application.enableevents=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
On Thu, Mar 7, 2019 at 5:52 AM cheivory_bri...@yahoo.com
<mailto:cheivory_bri...@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>>
wrote:
Yth. Mr. Kid
Terlampir percobaan saya atas arahan Mr. Kid.
Tetapi belum berhasil.
Mohon pencerahannya.
Terima kasih.
Ari
