wa'alaikumussalam wr wb
hehehehe... iya, kebalik...
begini ya :
public sub myProc( optional lNilai as long=0 ) 'proses menulis nilai
if wbka.name=activeworkbook.name then
if shta.codename=activesheet. <http://activesheet.name/>*code
<http://activeworkbook.name/>*name <http://activesheet.name/> then
if activecell.column=1 then
makasih sudah diingatkan
wassalamu'alaikum wr wb
Kid
On Thu, Mar 7, 2019 at 1:04 PM Agus [email protected] [belajar-excel] <
[email protected]> wrote:
>
>
> 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' [email protected] [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=activeworkbook.*code*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.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 [email protected] [belajar-excel] <
> [email protected]> wrote:
>
>>
>>
>> Yth. Mr. Kid
>>
>> Terlampir percobaan saya atas arahan Mr. Kid.
>> Tetapi belum berhasil.
>>
>> Mohon pencerahannya.
>>
>> Terima kasih.
>>
>> Ari
>>
>
>
>
