3 Messages
Digest #4727
Messages
Wed Mar 6, 2019 10:02 pm (PST) . Posted by:
"Agus"
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.nmkid@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_bridge@yahoo.com
> <mailto:cheivory_bridge@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
>
>
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.nmkid@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_bridge@yahoo.com
> <mailto:cheivory_bridge@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
>
>
Thu Mar 7, 2019 12:09 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
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 nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> 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' mr.nmkid@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=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 cheivory_bridge@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Yth. Mr. Kid
>>
>> Terlampir percobaan saya atas arahan Mr. Kid.
>> Tetapi belum berhasil.
>>
>> Mohon pencerahannya.
>>
>> Terima kasih.
>>
>> Ari
>>
>
>
>
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 nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> 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' mr.nmkid@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=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 cheivory_bridge@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Yth. Mr. Kid
>>
>> Terlampir percobaan saya atas arahan Mr. Kid.
>> Tetapi belum berhasil.
>>
>> Mohon pencerahannya.
>>
>> Terima kasih.
>>
>> Ari
>>
>
>
>
Thu Mar 7, 2019 4:43 pm (PST) . Posted by:
cheivory_bridge
Yth. Mr. Kid dan Pak Nang Agus
Mohon pencerahannya
Setelah dicoba, terdapat debug seperti gambar terlampir.
Terima kasih
Mohon pencerahannya
Setelah dicoba, terdapat debug seperti gambar terlampir.
Terima kasih
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar