[belajar-excel] Digest Number 4729

Milis Belajar Microsoft Excel Group

2 Messages

Digest #4729

1a

Re: Pindah cell otomatis by cheivory_bridge

1b

Re: Pindah cell otomatis by "Agus"

Messages

1a

Re: Pindah cell otomatis

Sat Mar 9, 2019 1:54 am (PST) . Posted by:

cheivory_bridge

Yth. Mr. Kid dan Pak Nang Agus

Untuk errornya , object tidak sesuai atau block .. karena ketidaktelitian saya (saya nyoba tulis ulang, kalau kemarin asal copas .. hehehe )


Terima kasih banyak Mr. Kid dan Pak Nang Agus
Case solved


Ari.

Reply to sender . Reply to group . Reply via Web Post . All Messages (14) . Top ^

1b

Re: Pindah cell otomatis

Sat Mar 9, 2019 3:33 pm (PST) . Posted by:

"Agus"

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' mr.nmkid@gmail.com [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 cheivory_bridge@yahoo.com
> <mailto:cheivory_bridge@yahoo.com> [belajar-excel]
> <belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups..com>>
> 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
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (14) . Top ^

============================================================
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
---------------------------------------------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use