Sabtu, 03 Agustus 2013

[belajar-excel] Digest Number 2462

Milis Belajar Microsoft Excel

10 New Messages

Digest #2462
1b
Re: Cara menjumlahkan row menggunakan macro vba by "nmkid.family@ymail.com" nmkid.family@ymail.com
2a
Penambahan (insert) list data dari tabel NamaGroup by "arul syahrul ymml" syamero@ymail.com
2b
2c
4a
Re: Memotong Rumus - Revisi Buat Link dgn Indirect by "Mr. Kid" nmkid.family@ymail.com
5a
Re: Mendeteksi keystroke pada lembar kerja by "Heru Safrudin" superheruu

Messages

Fri Aug 2, 2013 9:28 am (PDT) . Posted by:

martin_0314

Dear,
Mas Jan Raisin

Terima kasih banyak atas saran dan masukannya, formula tersebut sesuai dengan harapan saya.

Kalau boleh tau, bagaimana cara print out userform berbentuk landscape
Formula yg sy gunakan adalah (Userform.PrintOut)
Mohon sarannya, terima kasih.


Salam

Sent from my BlackBerry® smartphone

-----Original Message-----
From: Jan Raisin <miss.jan.raisin@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 2 Aug 2013 13:58:06
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Cara menjumlahkan row menggunakan macro vba

hai Matin,

sebuah sample workbook akan sangat berguna untuk Be-Exceller yang ingin
memberikan solusi

kadang kala Be-Exceller malas untuk menanggapi suatu thread walau pun tau
solusinya hanya dikarenakan harus bersusah payah membuat workbook dummy-nya
dulu.
kadang workbook yang sudah dibuat dengan susah payah itu pun tidak sesuai
dengan keinginan si penanya.

jadi solusi kali ini juga hanya berdasarkan asumsi dan dugaan saja.. jika
berbeda dengan harapan maka harap dimaklumi

agar proses filter dapat dikenali, maka dibutuhkan sebuah cell sebagai
trigger-nya
dalam cell ini harus dipasang sebuah fungsi yang bersifat volatile, dalam
kasus ini CountA digantikan dengan fungsi SubTotal(3, .....) yang
menghasilkan nilai sama persis

karena fungsi yang digunakan bersifat volatile, maka setiap kali ada
perubahan akan terjadi proses kalkulasi, event inilah yang dipilih untuk
memasukkan nilai SubTotal pengganti CountA ke dalam text box di dalam
sebuah user form.

scriptnya sangat pendek

Private Sub Worksheet_Calculate()
UserForm1.TextBox1.Text = Range("b1").Value
UserForm1.Show
End Sub

file solusi terlampir semoga sesuai dengan harapan

Salam,

-Miss Jan Raisin-


Pada 1 Agustus 2013 23.34, <martin_0314@yahoo.com> menulis:

> Dear,
>
> Mohon pencerahan dari pakar2 excel sekalian,
> Pada excel, cara menjumlah row dengan formula =COUNTA(A2:A5),
> Bagaimana cara menjumlahkan row tsb menggunakan macro dan penjumlahannya
> muncul di userform (texbox) sedangkan data di excel menggunakan filter...
>
> Data yg diinginkan adalah, setiap x memfilter data diexcel berdasarkan yg
> kita mau, jumlahnya selalu muncul di userform (texbox) sesuai dgn hasil
> filter
>
> Terima kasih
> Sent from my BlackBerry® smartphone
>

Fri Aug 2, 2013 11:28 am (PDT) . Posted by:

"nmkid.family@ymail.com" nmkid.family@ymail.com

Hai Martin,

Sebenarnya akan lebih baik jika pembahasan tentang printout userform diposting dengan membuat email baru (bukan reply), sehingga akan terbentuk topik yang baru.

btw, masalah printout userform ini, sepertinya akan lebih mudah jika seluruh data dalam userform disalin ke worksheet kemudian worksheet tersebut yang dicetak.

andaikata tetap inginnya si userform yang dicetak, maka si userform dijadikan sebuah bitmap yang dipaste ke sebuah sheet sementara yang diatur agar printout si sheet dalam keadaan landscape.

kira-kira begini :
1. dibuatkan sebuah tombol dalam userform untuk melakukan pencetakan
2. kemudian, buatkan sebuah sheet baru sebagai wadah sementara
3. atur agar setting printout si worksheet sementara adalah landscape
** nomor 1 sampai 3 sepertinya ada di posting lawas, biasanya juga akan ada penggemar VBA yang membuatkannya dalam waktu dekat ini (kalau masih ada yang online disela cuti bersama)
4. dalam tombol pencetakan yang ada di userform, diberi kode untuk melakukan copy userform ke clipboard dan mem-paste ke sheet sementara. Kira-kira bunyinya :
'baris kode untuk atur keberadaan dan format sheet sementara disini
nama_userformnya.repaint 'supaya si tombol pasti udah balik normal usai dipencet
application.sendkeys "%{PRTSC}" 'copy userform doang ke clipboard
doevents 'supaya proses lainnya tetap dilaksanakan seperti biasa
nama_sheet_sementara.paste 'paste dari clipboard ke sheet
nama_sheet_sementara.printout 'cetak si sheet
'baris kode untuk bersihkan sheet sementara disini

Regards,
Kid.

--- In belajar-excel@yahoogroups.com, martin_0314@... wrote:
>
> Dear,
> Mas Jan Raisin
>
> Terima kasih banyak atas saran dan masukannya, formula tersebut sesuai dengan harapan saya.
>
> Kalau boleh tau, bagaimana cara print out userform berbentuk landscape
> Formula yg sy gunakan adalah (Userform.PrintOut)
> Mohon sarannya, terima kasih.
>
>
> Salam
>
> Sent from my BlackBerry� smartphone
>
> -----Original Message-----
> From: Jan Raisin <miss.jan.raisin@...>
> Sender: belajar-excel@yahoogroups.com
> Date: Fri, 2 Aug 2013 13:58:06
> To: <belajar-excel@yahoogroups.com>
> Reply-To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] Cara menjumlahkan row menggunakan macro vba
>
> hai Matin,
>
> sebuah sample workbook akan sangat berguna untuk Be-Exceller yang ingin
> memberikan solusi
>
> kadang kala Be-Exceller malas untuk menanggapi suatu thread walau pun tau
> solusinya hanya dikarenakan harus bersusah payah membuat workbook dummy-nya
> dulu.
> kadang workbook yang sudah dibuat dengan susah payah itu pun tidak sesuai
> dengan keinginan si penanya.
>
> jadi solusi kali ini juga hanya berdasarkan asumsi dan dugaan saja.. jika
> berbeda dengan harapan maka harap dimaklumi
>
> agar proses filter dapat dikenali, maka dibutuhkan sebuah cell sebagai
> trigger-nya
> dalam cell ini harus dipasang sebuah fungsi yang bersifat volatile, dalam
> kasus ini CountA digantikan dengan fungsi SubTotal(3, .....) yang
> menghasilkan nilai sama persis
>
> karena fungsi yang digunakan bersifat volatile, maka setiap kali ada
> perubahan akan terjadi proses kalkulasi, event inilah yang dipilih untuk
> memasukkan nilai SubTotal pengganti CountA ke dalam text box di dalam
> sebuah user form.
>
> scriptnya sangat pendek
>
> Private Sub Worksheet_Calculate()
> UserForm1.TextBox1.Text = Range("b1").Value
> UserForm1.Show
> End Sub
>
> file solusi terlampir semoga sesuai dengan harapan
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 1 Agustus 2013 23.34, <martin_0314@...> menulis:
>
> > Dear,
> >
> > Mohon pencerahan dari pakar2 excel sekalian,
> > Pada excel, cara menjumlah row dengan formula =COUNTA(A2:A5),
> > Bagaimana cara menjumlahkan row tsb menggunakan macro dan penjumlahannya
> > muncul di userform (texbox) sedangkan data di excel menggunakan filter...
> >
> > Data yg diinginkan adalah, setiap x memfilter data diexcel berdasarkan yg
> > kita mau, jumlahnya selalu muncul di userform (texbox) sesuai dgn hasil
> > filter
> >
> > Terima kasih
> > Sent from my BlackBerry� smartphone
> >
>

Fri Aug 2, 2013 9:29 am (PDT) . Posted by:

"arul syahrul ymml" syamero@ymail.com

Yth Para Master Excel

Master , mohon bantuannya dengan kasus list pada K2:L78 data yang
bersumber dari tabel nama Group (B1:H13). Tolong bagaimanakah rumus
fungsi , jika Goup B.Satu (D6:D13) dan C.Satu (G7:G13) ada penambahan nama
maka pada list tersebut bertambah? baik Nama Group dan Nama orangnya terus
kebawah juga. Data saya lampirkan.

Demikian atas pencerahan para master saya mengucapkan terimakasih.

Salam,

Syam

Sat Aug 3, 2013 12:36 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pak Syam,

Pake macro ok kan ?

Kalau ok, jangan lupa aktifkan macronya terlebih dahulu.

Salam,
HK

________________________________
From: arul syahrul ymml <syamero@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 2 August 2013, 22:49
Subject: [belajar-excel] Penambahan (insert) list data dari tabel NamaGroup


 
YthPara Master Excel

Master
,  mohon bantuannya dengan kasus list
pada  K2:L78 data yang bersumber
dari  tabel nama Group (B1:H13). Tolong
bagaimanakah  rumus fungsi , jika Goup
B.Satu (D6:D13) dan C.Satu (G7:G13)  ada
penambahan nama maka pada list tersebut  bertambah? baik  Nama Group dan Nama orangnya  terus kebawah juga. Data saya lampirkan.

Demikian
atas pencerahan para master  saya
mengucapkan terimakasih.

Salam,
Syam

Sat Aug 3, 2013 12:46 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Untuk menjalankannya double click di Sheet1 (di sel mana saja ... ).

Salam,
HK

________________________________
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Saturday, 3 August 2013, 14:36
Subject: Re: [belajar-excel] Penambahan (insert) list data dari tabel NamaGroup


 
Pak Syam,

Pake macro ok kan ?

Kalau ok, jangan lupa aktifkan macronya terlebih dahulu.

Salam,
HK

________________________________
From: arul syahrul ymml <syamero@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 2 August 2013, 22:49
Subject: [belajar-excel] Penambahan (insert) list data dari tabel NamaGroup


 
YthPara Master Excel

Master
,  mohon bantuannya dengan kasus list
pada  K2:L78 data yang bersumber
dari  tabel nama Group (B1:H13). Tolong
bagaimanakah  rumus fungsi , jika Goup
B.Satu (D6:D13) dan C.Satu (G7:G13)  ada
penambahan nama maka pada list tersebut  bertambah? baik  Nama Group dan Nama orangnya  terus kebawah juga. Data saya lampirkan.

Demikian
atas pencerahan para master  saya
mengucapkan terimakasih.

Salam,
Syam

Fri Aug 2, 2013 11:12 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Dear BeExceller,

Untuk mengenal lebih jauh tentang object, terutama objects utama dalam
Excel, sangat dianjurkan untuk mengetahui member (anggota atau isi) dari
setiap objects tersebut. Kegiatan dalam pemrograman yang menggunakan object
sebenarnya adalah kegiatan memanfaatkan seluruh potensi dari setiap elemen
yang menjadi member dari object tersebut. Lebih mbuletnya, silakan
jalan-jalan kesini<http://b-excel.blogspot.com/2013/08/belajarvba-007-property-methods-events.html>
.

Wassalam,
Kid.

Fri Aug 2, 2013 11:48 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Andy,

Targetnya supaya bisa membuat formula ini menjadi dinamis kan ya :
=IF(B2="","",HYPERLINK(*"[Test link.xlsm]Ryuky!A"&A2+1*,"Check"))

Yang akan diganti adalah teks Ryuky agar mengambil isi cell B2 kan ya
Coba perhatikan potongan formula berbunyi :
"[Test link.xlsm]Ryuky!A"&A2+1

karakter ampersand (&) disana digunakan untuk menggabungkan teks, yaitu
dari yang bunyinya [Test link.xlsm]Ryuky!A
digabung dengan teks berupa angka yang ada di A2 yang telah ditambah 1.

Bagian [Test link.xlsm]Ryuky!A sendiri akan dipecah jadi 3 potongan teks,
yaitu :
[Test link.xlsm]
Ryuky
!A

yang kemudian digabungkan menjadi satu. Berarti akan menjadi bentuk :
"[Test link.xlsm]" & "Ryuky" & "!A"
Yang akan diganti supaya dinamis adalah teks berbunyi Ryuky yang tertulis
disana sebagai "Ryuky" agar mengambil isi cell B2
maka bagian "Ryuky" diganti menjadi B2
hingga hasil nya akan tersusun :
"[Test link.xlsm]" & B2 & "!A"

Akhirnya, bagian yang tadi bunyinya :
"[Test link.xlsm]Ryuky!A"&A2+1
akan menjadi :
"[Test link.xlsm]" & B2 & "!A" & A2+1

sehingga formula yang tadinya berbunyi :
=IF(B2="","",HYPERLINK(*"[Test link.xlsm]Ryuky!A"&A2+1*,"Check"))
akan berubah menjadi berbunyi :
=IF(B2="","",HYPERLINK( "[Test link.xlsm]" & B2 & "!A" & A2+1 ,"Check"))

Jadi, pastikan selalu dilakukan setahap demi setahap untuk menghindari
kebingungan dan memudahkan penyusunan alur logikanya.

Wassalam,
Kid.

2013/8/2 Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>

> **
>
>
>
> Oh begitu ya Mr. Kid.
>
> Mister aq mau tanya tentang hyperlink mister yang menggunakan Indirect
> yang gagal. atau mungkin karena kurangnya pemahaman saya.
> Mohon bantuannya untuk para milis belajar juga. File terlampir. Terima
> Kasih.
>
> Thanks & Best Regards
> Andy Ajhis.R
>
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Jumat, 2 Agustus 2013 16:48
> *Judul:* Re: [belajar-excel] Memotong Rumus
>
>
> Fungsi Indirect termasuk fungsi volatile. Artinya, jika ada sebuah cell
> antah berantah yang tidak ada hubungannya dengan cell yang diberi formula
> Indirect tadi berubah nilai, maka cell yang berformula indirect akan ikut
> dikalkulasi.
>
> Coba bayangkan jika ada 250000 cell menggunakan Indirect yang merujuk ke
> sheet 1 sampai 12, dan pada sheet yang baru dibuat ada sembarang cell
> sebijik yang berubah nilai. Lalu Excel mengkalkulasi yang 250000 cell itu.
> (inilah sifat volatile)
>
> Gimana ya kalau ternyata harus ada kegiatan entry data yang banyak ya.
>
> Jadi, gunakan fungsi-fungsi volatile secara bijak dan tidak asal pasang.
>
> Wassalam,
> Kid,
>
>
>
> 2013/8/2 Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
>
> **
>
> ÇáÓáÇã Úáíßã æÑÍãÉ Çááå æÈÑßÇÊå
>
> Miss Jan Raisin
>
> Mkasih banyak miss :D wah ternyata rumusnya itu. thanks you miss...
>
> hehe
>
>
> æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>
> Thanks & Best Regards
> Andy Ajhis. R
>
> ------------------------------
> *Dari:* Jan Raisin <miss.jan.raisin@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 2 Agustus 2013 15:12
> *Judul:* Re: [belajar-excel] Memotong Rumus
>
>
> æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> coba gunakan fungsi Indirect
> formula awal:
> =D8*Andy!A1
>
> yang warna merah diubah menjadi
> Indirect(alamat_cell_nya&"
> !A1"
> )
>
> misal alamat cell yang berisi Andy ada di cell A4, maka formulanya menjadi
> =D8*
> Indirect(A4&"
> !A1
> "
> )
>
> æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>
> -Miss Jan Raisin-
>
>
> Pada 2 Agustus 2013 14.25, Andy Ajhis Ramadhan <
> andyajhisramadhan@ymail.com> menulis:
>
> **
>
> MEMOTONG RUMUS Nama nilai kali Nilai kali dari sheets lain rumusan
> Andy 3 30
> =D8*Andy!A1
> Ryuky 4 80 =B4*Ryuky!$A$1
> ÇáÓáÇã Úáíßã æÑÍãÉ Çááå æÈÑßÇÊå
> Dear,
> Master Excel
>
> Bagaimana cara membuat nama perkalian diatas menggunakan data disamping
> tanpa membuat rumus dengan mengetik nama tersebut/mengklik sheet yang ingin
> dikalikan.
>
> karena kalau rumusnya diubah menjadi =D8*A3&!A1 hasilnya gagal. Ada yang
> tau solusinya ? æÓáÇã Úáíßã æÑÍãÉ Çááå æÈÑßÇÊå
>
> Thanks & Best Regards
> Andy Ajhis. R
>
>
>
>
>
>
>
>

Fri Aug 2, 2013 6:58 pm (PDT) . Posted by:

"Bagus" bagus4bls

Hi Andi;

Coba hilangkan tanda petik yang warna merah
=IF(B2="","",HYPERLINK("[Test link.xlsm]INDIRECT(B3&"!A"&A2+1,"Check&quot;))
menjadi
=IF(B2="","",HYPERLINK("[Test link.xlsm]INDIRECT(B3&!A"&A2+1,"Check"))

Wassalam

~ Bagus ~
----- Original Message -----
From: Andy Ajhis Ramadhan
To: belajar-excel@yahoogroups.com
Sent: Friday, August 02, 2013 5:19 PM
Subject: Trs: [belajar-excel] Memotong Rumus - Revisi Buat Link dgn Indirect

Oh begitu ya Mr. Kid.

Mister aq mau tanya tentang hyperlink mister yang menggunakan Indirect yang gagal. atau mungkin karena kurangnya pemahaman saya.
Mohon bantuannya untuk para milis belajar juga. File terlampir. Terima Kasih.

Thanks & Best Regards
Andy Ajhis.R

----- Pesan yang Diteruskan -----
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 2 Agustus 2013 16:48
Judul: Re: [belajar-excel] Memotong Rumus

Fungsi Indirect termasuk fungsi volatile. Artinya, jika ada sebuah cell antah berantah yang tidak ada hubungannya dengan cell yang diberi formula Indirect tadi berubah nilai, maka cell yang berformula indirect akan ikut dikalkulasi.

Coba bayangkan jika ada 250000 cell menggunakan Indirect yang merujuk ke sheet 1 sampai 12, dan pada sheet yang baru dibuat ada sembarang cell sebijik yang berubah nilai. Lalu Excel mengkalkulasi yang 250000 cell itu.

(inilah sifat volatile)

Gimana ya kalau ternyata harus ada kegiatan entry data yang banyak ya.

Jadi, gunakan fungsi-fungsi volatile secara bijak dan tidak asal pasang.

Wassalam,

Kid,

2013/8/2 Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>

السلام عليكم ورحمة الله وبركاته

Miss Jan Raisin

Mkasih banyak miss :D wah ternyata rumusnya itu. thanks you miss...

hehe

وَعَلَيÙ'كُمُ لسَÙ'لاَمُ وَرَحÙ'مَةُ اللهِ وَبَرَكَاتُهُ

Thanks & Best Regards
Andy Ajhis. R

----------------------------------------------------------
Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 2 Agustus 2013 15:12
Judul: Re: [belajar-excel] Memotong Rumus

وَعَلَيÙ'كُمُ لسَÙ'لاَمُ وَرَحÙ'مَةُ اللهِ وَبَرَكَاتُهُ
coba gunakan fungsi Indirect
formula awal:
=D8*Andy!A1

yang warna merah diubah menjadi
Indirect(alamat_cell_nya&"
!A1"
)

misal alamat cell yang berisi Andy ada di cell A4, maka formulanya menjadi
=D8*
Indirect(A4&"
!A1
"
)

وَسَÙ'لاَمُ عَلَيÙ'كُمÙ' وَرَحÙ'مَةُ اللهِ وَبَرَكَاتُهُ

-Miss Jan Raisin-

Pada 2 Agustus 2013 14.25, Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com> menulis:

MEMOTONG RUMUS
Nama nilai kali Nilai kali dari sheets lain rumusan

Andy 3 30 =D8*Andy!A1

Ryuky
4 80 =B4*Ryuky!$A$1



السلام عليكم ورحمة الله وبركاته

Dear,
Master Excel

Bagaimana cara membuat nama perkalian diatas menggunakan data disamping tanpa membuat rumus dengan mengetik nama tersebut/mengklik sheet yang ingin dikalikan.

karena kalau rumusnya diubah menjadi =D8*A3&!A1 hasilnya gagal. Ada yang tau solusinya ?

وسلام عليكم ورحمة الله وبركاته

Thanks & Best Regards
Andy Ajhis. R

Fri Aug 2, 2013 8:02 pm (PDT) . Posted by:

"Heru Safrudin" superheruu

Oo gitu ya, kirain bisa kayak event Keydown di userform

Ok Terima kasih Mr. dan Miss

<ymsgr:sendIM?heru.safrudin>;

<http://www.carajawab.com/?id=heru.safrudin>

_____

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 02 Agustus 2013 16:44
To: BeExcel
Subject: Re: [belajar-excel] Mendeteksi keystroke pada lembar kerja

Selain dengan data validation yang memiliki banyak keterbatasan, bisa juga
dengan manfaatkan event change milik worksheet, misal :

dim rng as range

application.enableevents=false

for each rng in target

select case rng.column

case 1

if not isnumeric(rng.value) then

rng.clearcontents

endif

case 2

if isnumeric(rng.value) then

rng.clearcontents

endif

end select

next rng
application.enableevents=true

:)

supaya yang kondang gak suma IF saja

Wassalam,

Kid.

2013/8/2 Heru Safrudin <superheruu@gmail.com>

Misalkan kolom A hanya boleh diisi dengan numeric

Dan kolom B hanya boleh diisii string

Bagaimana code-nya ?

<http://www.carajawab.com/?id=heru.safrudin>

_____

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Jan Raisin
Sent: 02 Agustus 2013 14:32
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mendeteksi keystroke pada lembar kerja

pak Heru,

coba gunakan application.onkey

setiap tombol diwakili oleh tombol tersebut

misal:

{a} untuk huruf a

{1} untuk angka 1

{ENTER} untuk tombol ENTER

{F1} untuk tombol F1

sepesial karakter diapit dengan kurung kurawal

contoh: {^} untuk tanda ^ yang memiliki arti berbeda dengan "^" atau CTRL

spesial tombol hanya 3 yaitu:

tombol CTRL diwakili dengan "^"

tombol Shift diwakili dengan "+"

tombol Alt diwakili dengan "%"

contoh untuk men-disable tombol CTRL C (copy melalui keyboard)

Private Sub Worksheet_Activate()

Application.OnKey "^{c}", ""

End Sub

syntaxnya:

Application.OnKey nama_tombolnya, parameternya

Salam,

-Miss Jan Raisin-

Pada 2 Agustus 2013 13.41, Heru Safrudin <superheruu@gmail.com> menulis:

Dear Master,

Bisakah lembar kerja mendeteksi kunci yg sedang kita tombol ?

Ceritanya saya pingin mencegah/mengunci tombol tertentu.

Terima kasih

Fri Aug 2, 2013 9:29 pm (PDT) . Posted by:

"Ferdinan Imers" dinanfu

Ikut nyimak, lot of thanks miss Jan dan pak Hendrik, usefull banget

2013/8/2 Eko Setyanto <echonewman@yahoo.com>

> **
>
>
> Terima kasih Pak Hendrik atas feedback masukan step2 dalam solusi yang
> diberikan oleh miss Jan.
>
>
> Warmest regards,
>
> Eko Setyanto
>
>
> ------------------------------
> *Dari:* hendrik karnadi <hendrikkarnadi@yahoo.com>
> *Kepada:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Dikirim:* Jumat, 2 Agustus 2013 11:29
> *Judul:* Re: Bls: [belajar-excel] Formula yang tepat untuk memilah data
> single & data non single ke sheet yg berlainan?
>
>
> ikutan jawab...
>
> Sesuai petunjuk beliau ada 2 hal yang perlu dilakukan.
> - Buat kolom bantu pada data (ada judul dan fungsi Countif)
> - Buat PivotTable pada kedua sheet "hasil"
> Cara buatnya cukup 3 langkah sederhana:
> -- Klik Menu Insert PivotTable dst..
> -- Tarik judul2 kolomnya ("Helper" ke Header dan data ("Count of
> Helper"), Task list dan Group counter ke Row labels)
>
> Salam,
> HK
>
>
> ------------------------------
> *From:* Eko Setyanto <echonewman@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 1 August 2013, 20:33
> *Subject:* Bls: [belajar-excel] Formula yang tepat untuk memilah data
> single & data non single ke sheet yg berlainan?
>
>
> Dear miss Jan,
>
> Oke sipp...sudah sesuai dengan yang dibutuhkan...
> Mohon diinfokan step2 pngerjaanya...agar sy bisa juga
> mengajarkan/menerangkan ke orang lain...
>
> Trima ksih miss Jan atas bantuannya...
>
> Warmest regards,
>
> Eko Setyanto
>
>
> ------------------------------
> *Dari:* Jan Raisin <miss.jan.raisin@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 2 Agustus 2013 10:08
> *Judul:* Re: [belajar-excel] Formula yang tepat untuk memilah data single
> & data non single ke sheet yg berlainan?
>
>
> pak Eko,
>
> apakah harus pakai formula atau boleh pakai fitur Pivot Table yang lebih
> ringan?
> menggunakan 1 kolom bantu dan jumlah data pada sample sudah dikurangi
> dari 6K menjadi 0,5K
>
> file terlampir
>
> Salam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 2 Agustus 2013 08.44, Eko Setyanto <echonewman@yahoo.com> menulis:
>
> **
>
> Dear Exceller,
>
> Mohon bantuannya untuk advice formula yg tepat? (data terlampir)
>
> Pada worksheet "Task List" kolom A dan B adalah Task list dan Group
> counter.
> Task list bisa mempunyai lebih dari satu group counter, misalnya task list
> no 00000018 mempunyai GC 01, 02, 03 dan 05. Di kolom A juga terdapat task
> list yang hanya punya satu GC misalnya 00000021, dll....
>
> Bagaimana caranya agar copy task list yang mempunyai GC lebih dari satu
> di copy ke worksheet "TLMGC" dan task list dengan single GC di copy ke
> worksheet "TLSGC" dengan menggunakan formula (function)?
>
> Terima kasih sebelumnya....
>
>
> Warmest regards,
>
> Eko Setyanto
> [image: Yahoo! Groups]
> Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us
> Feedback
> .
>
>
>
>
>
>
>
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 05.16

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)