Kamis, 21 Januari 2016

[belajar-excel] Digest Number 3728

13 Messages

Digest #3728
1a
Re: SUM Komulatif (VBA) by "Toby kenzo" tobykenzo
1b
Re: SUM Komulatif (VBA) by "Bayu Prasaja" prasaja_satria
1c
Re: SUM Komulatif (VBA) [1 Attachment] by "Bayu Prasaja" prasaja_satria
1d
Re: SUM Komulatif (VBA) [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
2
VBA find dibeda Sheet by "Septian Eko Saputro"
4a
Re: Footer Modifikasi by "Fatania Latifa"
7
Excel lemot ? by "rullp return"

Messages

Wed Jan 20, 2016 7:03 am (PST) . Posted by:

"Toby kenzo" tobykenzo

Hai Bayu,

Berikut filenya, warna kuning pake vba,warna biru pake formula excel.

Anda bisa bandingkan mana yg lebih mudah,jika bisa di selesaikan dgn formula,pakailah formula excel, jika sudah tidak bisa diselesaikan dgn formula excel, gunakan Vba.

TerimaKasih.

Sent from Yahoo Mail on Android

Wed Jan 20, 2016 7:24 pm (PST) . Posted by:

"Bayu Prasaja" prasaja_satria

ternyata  pake formula master jadinya seperti di attachment (dari Mr toby ) hahaha, terlalu jauh mungkin saya mikirnya ya kangtapi saya rubah formulanya ke R1c1 di vba nya
makasih banyak master


On Wednesday, January 20, 2016 4:27 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Dinamisnya seperti apa ?

On Wed, Jan 20, 2016 at 4:23 PM, Bayu Prasaja prasaja_satria@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  iya master, soalnya cell "hasil"-nya  dynamic ,terus klo formula pasti saya rubah lagi ke format .formula atau .R1c1 di vbajadi klo boleh langsung vba master, atau pake formula tapi dalam bentuk vba di cell.formula atau cell.formulaR1C1 hehehemaaf klo penjelasannya ngacokurang lebih gitu yang baru saya pahami hehe 


On Wednesday, January 20, 2016 4:18 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb

Harus dengan VBA ya ?

Wassalamu'alaikum wr wb
Kid

2016-01-20 16:12 GMT+07:00 prasaja_satria@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Asslamu'alaikum
sore master,
mau nanya VBA untuk penjumlahan komulatif, yang menggunakan dynamic range, dan tiap hasil penjumlahan ditampilkan..
kalo pake autofill dsetination mungkin bisa, tapi bukan itu si yang saya pengen, soalnya harus berderet kalo autofill, kalo boleh pake "for" "next" hehehe

maaf jika pertanyaan atau pernyataan saya banyak yang salah, soalnya baru belajar , jadi agak bingung nanya nya juga hehe,

Terima kasih sebelumnya
File contoh terlampir

Wassalamu'alaikum warahmatullohi wabarokatuh

#yiv6808082496 #yiv6808082496 -- #yiv6808082496ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6808082496 #yiv6808082496ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6808082496 #yiv6808082496ygrp-mkp #yiv6808082496hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6808082496 #yiv6808082496ygrp-mkp #yiv6808082496ads {margin-bottom:10px;}#yiv6808082496 #yiv6808082496ygrp-mkp .yiv6808082496ad {padding:0 0;}#yiv6808082496 #yiv6808082496ygrp-mkp .yiv6808082496ad p {margin:0;}#yiv6808082496 #yiv6808082496ygrp-mkp .yiv6808082496ad a {color:#0000ff;text-decoration:none;}#yiv6808082496 #yiv6808082496ygrp-sponsor #yiv6808082496ygrp-lc {font-family:Arial;}#yiv6808082496 #yiv6808082496ygrp-sponsor #yiv6808082496ygrp-lc #yiv6808082496hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6808082496 #yiv6808082496ygrp-sponsor #yiv6808082496ygrp-lc .yiv6808082496ad {margin-bottom:10px;padding:0 0;}#yiv6808082496 #yiv6808082496actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6808082496 #yiv6808082496activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6808082496 #yiv6808082496activity span {font-weight:700;}#yiv6808082496 #yiv6808082496activity span:first-child {text-transform:uppercase;}#yiv6808082496 #yiv6808082496activity span a {color:#5085b6;text-decoration:none;}#yiv6808082496 #yiv6808082496activity span span {color:#ff7900;}#yiv6808082496 #yiv6808082496activity span .yiv6808082496underline {text-decoration:underline;}#yiv6808082496 .yiv6808082496attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6808082496 .yiv6808082496attach div a {text-decoration:none;}#yiv6808082496 .yiv6808082496attach img {border:none;padding-right:5px;}#yiv6808082496 .yiv6808082496attach label {display:block;margin-bottom:5px;}#yiv6808082496 .yiv6808082496attach label a {text-decoration:none;}#yiv6808082496 blockquote {margin:0 0 0 4px;}#yiv6808082496 .yiv6808082496bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6808082496 .yiv6808082496bold a {text-decoration:none;}#yiv6808082496 dd.yiv6808082496last p a {font-family:Verdana;font-weight:700;}#yiv6808082496 dd.yiv6808082496last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6808082496 dd.yiv6808082496last p span.yiv6808082496yshortcuts {margin-right:0;}#yiv6808082496 div.yiv6808082496attach-table div div a {text-decoration:none;}#yiv6808082496 div.yiv6808082496attach-table {width:400px;}#yiv6808082496 div.yiv6808082496file-title a, #yiv6808082496 div.yiv6808082496file-title a:active, #yiv6808082496 div.yiv6808082496file-title a:hover, #yiv6808082496 div.yiv6808082496file-title a:visited {text-decoration:none;}#yiv6808082496 div.yiv6808082496photo-title a, #yiv6808082496 div.yiv6808082496photo-title a:active, #yiv6808082496 div.yiv6808082496photo-title a:hover, #yiv6808082496 div.yiv6808082496photo-title a:visited {text-decoration:none;}#yiv6808082496 div#yiv6808082496ygrp-mlmsg #yiv6808082496ygrp-msg p a span.yiv6808082496yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6808082496 .yiv6808082496green {color:#628c2a;}#yiv6808082496 .yiv6808082496MsoNormal {margin:0 0 0 0;}#yiv6808082496 o {font-size:0;}#yiv6808082496 #yiv6808082496photos div {float:left;width:72px;}#yiv6808082496 #yiv6808082496photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6808082496 #yiv6808082496photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6808082496 #yiv6808082496reco-category {font-size:77%;}#yiv6808082496 #yiv6808082496reco-desc {font-size:77%;}#yiv6808082496 .yiv6808082496replbq {margin:4px;}#yiv6808082496 #yiv6808082496ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6808082496 #yiv6808082496ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6808082496 #yiv6808082496ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6808082496 #yiv6808082496ygrp-mlmsg select, #yiv6808082496 input, #yiv6808082496 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6808082496 #yiv6808082496ygrp-mlmsg pre, #yiv6808082496 code {font:115% monospace;}#yiv6808082496 #yiv6808082496ygrp-mlmsg * {line-height:1.22em;}#yiv6808082496 #yiv6808082496ygrp-mlmsg #yiv6808082496logo {padding-bottom:10px;}#yiv6808082496 #yiv6808082496ygrp-msg p a {font-family:Verdana;}#yiv6808082496 #yiv6808082496ygrp-msg p#yiv6808082496attach-count span {color:#1E66AE;font-weight:700;}#yiv6808082496 #yiv6808082496ygrp-reco #yiv6808082496reco-head {color:#ff7900;font-weight:700;}#yiv6808082496 #yiv6808082496ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6808082496 #yiv6808082496ygrp-sponsor #yiv6808082496ov li a {font-size:130%;text-decoration:none;}#yiv6808082496 #yiv6808082496ygrp-sponsor #yiv6808082496ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6808082496 #yiv6808082496ygrp-sponsor #yiv6808082496ov ul {margin:0;padding:0 0 0 8px;}#yiv6808082496 #yiv6808082496ygrp-text {font-family:Georgia;}#yiv6808082496 #yiv6808082496ygrp-text p {margin:0 0 1em 0;}#yiv6808082496 #yiv6808082496ygrp-text tt {font-size:120%;}#yiv6808082496 #yiv6808082496ygrp-vital ul li:last-child {border-right:none !important;}#yiv6808082496

Wed Jan 20, 2016 7:25 pm (PST) . Posted by:

"Bayu Prasaja" prasaja_satria

wah fixed, dan ternyata lebih gampang pake formula ya kang toby hehemakasih banyak master


On Wednesday, January 20, 2016 10:04 PM, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


 
| Hai Bayu,Berikut filenya, warna kuning pake vba,warna biru pake formula excel.Anda bisa bandingkan mana yg lebih mudah,jika bisa di selesaikan dgn formula,pakailah formula excel, jika sudah tidak bisa diselesaikan dgn formula excel, gunakan Vba.TerimaKasih.Sent from Yahoo Mail on Android |

From: Bayu Prasaja prasaja_satria@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>;
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>;
Subject: Re: [belajar-excel] SUM Komulatif (VBA)
Sent: Wed, Jan 20, 2016 9:23:25 AM


|   iya master, soalnya cell "hasil"-nya  dynamic ,terus klo formula pasti saya rubah lagi ke format .formula atau .R1c1 di vbajadi klo boleh langsung vba master, atau pake formula tapi dalam bentuk vba di cell.formula atau cell.formulaR1C1 hehehemaaf klo penjelasannya ngacokurang lebih gitu yang baru saya pahami hehe 


On Wednesday, January 20, 2016 4:18 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb

Harus dengan VBA ya ?

Wassalamu'alaikum wr wb
Kid

2016-01-20 16:12 GMT+07:00 prasaja_satria@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Asslamu'alaikum
sore master,
mau nanya VBA untuk penjumlahan komulatif, yang menggunakan dynamic range, dan tiap hasil penjumlahan ditampilkan..
kalo pake autofill dsetination mungkin bisa, tapi bukan itu si yang saya pengen, soalnya harus berderet kalo autofill, kalo boleh pake "for" "next" hehehe

maaf jika pertanyaan atau pernyataan saya banyak yang salah, soalnya baru belajar , jadi agak bingung nanya nya juga hehe,

Terima kasih sebelumnya
File contoh terlampir

Wassalamu'alaikum warahmatullohi wabarokatuh

|

#yiv3896351717 #yiv3896351717 -- #yiv3896351717ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3896351717 #yiv3896351717ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3896351717 #yiv3896351717ygrp-mkp #yiv3896351717hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3896351717 #yiv3896351717ygrp-mkp #yiv3896351717ads {margin-bottom:10px;}#yiv3896351717 #yiv3896351717ygrp-mkp .yiv3896351717ad {padding:0 0;}#yiv3896351717 #yiv3896351717ygrp-mkp .yiv3896351717ad p {margin:0;}#yiv3896351717 #yiv3896351717ygrp-mkp .yiv3896351717ad a {color:#0000ff;text-decoration:none;}#yiv3896351717 #yiv3896351717ygrp-sponsor #yiv3896351717ygrp-lc {font-family:Arial;}#yiv3896351717 #yiv3896351717ygrp-sponsor #yiv3896351717ygrp-lc #yiv3896351717hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3896351717 #yiv3896351717ygrp-sponsor #yiv3896351717ygrp-lc .yiv3896351717ad {margin-bottom:10px;padding:0 0;}#yiv3896351717 #yiv3896351717actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3896351717 #yiv3896351717activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3896351717 #yiv3896351717activity span {font-weight:700;}#yiv3896351717 #yiv3896351717activity span:first-child {text-transform:uppercase;}#yiv3896351717 #yiv3896351717activity span a {color:#5085b6;text-decoration:none;}#yiv3896351717 #yiv3896351717activity span span {color:#ff7900;}#yiv3896351717 #yiv3896351717activity span .yiv3896351717underline {text-decoration:underline;}#yiv3896351717 .yiv3896351717attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3896351717 .yiv3896351717attach div a {text-decoration:none;}#yiv3896351717 .yiv3896351717attach img {border:none;padding-right:5px;}#yiv3896351717 .yiv3896351717attach label {display:block;margin-bottom:5px;}#yiv3896351717 .yiv3896351717attach label a {text-decoration:none;}#yiv3896351717 blockquote {margin:0 0 0 4px;}#yiv3896351717 .yiv3896351717bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3896351717 .yiv3896351717bold a {text-decoration:none;}#yiv3896351717 dd.yiv3896351717last p a {font-family:Verdana;font-weight:700;}#yiv3896351717 dd.yiv3896351717last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3896351717 dd.yiv3896351717last p span.yiv3896351717yshortcuts {margin-right:0;}#yiv3896351717 div.yiv3896351717attach-table div div a {text-decoration:none;}#yiv3896351717 div.yiv3896351717attach-table {width:400px;}#yiv3896351717 div.yiv3896351717file-title a, #yiv3896351717 div.yiv3896351717file-title a:active, #yiv3896351717 div.yiv3896351717file-title a:hover, #yiv3896351717 div.yiv3896351717file-title a:visited {text-decoration:none;}#yiv3896351717 div.yiv3896351717photo-title a, #yiv3896351717 div.yiv3896351717photo-title a:active, #yiv3896351717 div.yiv3896351717photo-title a:hover, #yiv3896351717 div.yiv3896351717photo-title a:visited {text-decoration:none;}#yiv3896351717 div#yiv3896351717ygrp-mlmsg #yiv3896351717ygrp-msg p a span.yiv3896351717yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3896351717 .yiv3896351717green {color:#628c2a;}#yiv3896351717 .yiv3896351717MsoNormal {margin:0 0 0 0;}#yiv3896351717 o {font-size:0;}#yiv3896351717 #yiv3896351717photos div {float:left;width:72px;}#yiv3896351717 #yiv3896351717photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3896351717 #yiv3896351717photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3896351717 #yiv3896351717reco-category {font-size:77%;}#yiv3896351717 #yiv3896351717reco-desc {font-size:77%;}#yiv3896351717 .yiv3896351717replbq {margin:4px;}#yiv3896351717 #yiv3896351717ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3896351717 #yiv3896351717ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3896351717 #yiv3896351717ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3896351717 #yiv3896351717ygrp-mlmsg select, #yiv3896351717 input, #yiv3896351717 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3896351717 #yiv3896351717ygrp-mlmsg pre, #yiv3896351717 code {font:115% monospace;}#yiv3896351717 #yiv3896351717ygrp-mlmsg * {line-height:1.22em;}#yiv3896351717 #yiv3896351717ygrp-mlmsg #yiv3896351717logo {padding-bottom:10px;}#yiv3896351717 #yiv3896351717ygrp-msg p a {font-family:Verdana;}#yiv3896351717 #yiv3896351717ygrp-msg p#yiv3896351717attach-count span {color:#1E66AE;font-weight:700;}#yiv3896351717 #yiv3896351717ygrp-reco #yiv3896351717reco-head {color:#ff7900;font-weight:700;}#yiv3896351717 #yiv3896351717ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3896351717 #yiv3896351717ygrp-sponsor #yiv3896351717ov li a {font-size:130%;text-decoration:none;}#yiv3896351717 #yiv3896351717ygrp-sponsor #yiv3896351717ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3896351717 #yiv3896351717ygrp-sponsor #yiv3896351717ov ul {margin:0;padding:0 0 0 8px;}#yiv3896351717 #yiv3896351717ygrp-text {font-family:Georgia;}#yiv3896351717 #yiv3896351717ygrp-text p {margin:0 0 1em 0;}#yiv3896351717 #yiv3896351717ygrp-text tt {font-size:120%;}#yiv3896351717 #yiv3896351717ygrp-vital ul li:last-child {border-right:none !important;}#yiv3896351717

Thu Jan 21, 2016 1:20 am (PST) . Posted by:

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

hmmm...
Jadi tetap tidak bisa dijelaskan dinamisnya seperti apa ya....

Kalau dinamisnya itu karena ada baris yang kosong-kosong yang jumlah baris
kosong antar recordnya tidak tentu, kalau pakai formula :
A. Asumsi : (yang kolom A selalu berisi nilai bertipe numerik yang akan
dijumlah [regional setting english])
formula dikolom hasil (misal mulai baris 2 dengan header dibaris 1)
=IF(IsNumber(a2),Sum(a$1:a2),"")
copy ke semua baris data, atau ubah tabel data menjadi excel table
supaya tidak perlu repot meng-copy formula ke seluruh record

atau dengan :
=IF(IsNumber(a2),Iferror(LookUp(9^9,b$1:b1),0)+n(a2),"")
copy ke semua baris data, atau ubah tabel data menjadi excel table
supaya tidak perlu repot meng-copy formula ke seluruh record

B. Andai dinamis dimaksudkan dengan :
1. jumlah record berubah-ubah,
2. kolom A selalu ada isinya (not null),
3. kolom B yang bertipe numerik saja yang dijumlahkan,
4. hasil running totoal di kolom C
5. header di baris 1 dan record data mulai baris 2

Tanpa VBA :
1. buat headernya (misal di A1:C1 diberi nama header berupa nilai konstan
[bukan hasil formula])
2. isi sebuah record saja (records lainnya dicopas nanti)
* A2 sudah ada sebuah nilai (ingat, asumsinya kolom A not null)
* B2 juga diisi sebuah nilai numerik
* C2 pasanga formula :
=IF(IsNumber(b2),Sum(b$1:b2),"") -> kolom a not null, tetapi
kriteria yang dijumlah adalah yang b berisi nilai numerik
atau
=IF(IsNumber(b2),Iferror(LookUp(9^9,c$1:c1),0)+n(b2),"")
3. blok A1:C2 -> ribbon Home -> group Styles -> Format as Table -> pilih
sebuah styles
4. copas record data lainnya di cells A3 (baris kosong baru yang pertama
ditemukan) [ingat, asumsinya kolom a not null]
5. selesai

Jadi, kondisi dinamis itu sebenarnya bisa didefinisikan dan akan menentukan
proses mana yang lebih sesuai dan efisien.

Hal lainnya, kalau pakai VBA dengan asumsi seperti poin A.
Record dari baris 2 sampai 3000 (area range yang akan dipasangi formula
bisa ditentukan dengan VBA [bagian yang biru])
Range("b2:b3000").formula = "=IF(IsNumber(a2),Sum(a$1:a2),"""")"
'tanpa R1C1 styles juga bisa

Kondisi : cells hasil di G2:H3000 (2 kolom) dengan G adalah running total
di kolom A dan H running total di kolom H, VBA-nya :
Range("g2:h3000").formula = "=IF(IsNumber(a2),Sum(a$1:a2),"""")"
'tanpa R1C1 styles juga bisa

Kalau 1 formula universal bisa digunakan dan bunyi formula yang sederhana
dan simpel, kenapa harus pakai lebih dari 1 formula ?

Regards,
Kid

On Thu, Jan 21, 2016 at 10:21 AM, Bayu Prasaja prasaja_satria@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> ternyata pake formula master jadinya seperti di attachment (dari Mr toby
> ) hahaha, terlalu jauh mungkin saya mikirnya ya kang
> tapi saya rubah formulanya ke R1c1 di vba nya
> makasih banyak master
>
>
> On Wednesday, January 20, 2016 4:27 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Dinamisnya seperti apa ?
>
>
> On Wed, Jan 20, 2016 at 4:23 PM, Bayu Prasaja prasaja_satria@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> iya master, soalnya cell "hasil"-nya dynamic ,
> terus klo formula pasti saya rubah lagi ke format .formula atau .R1c1 di
> vba
> jadi klo boleh langsung vba master, atau pake formula tapi dalam bentuk
> vba di cell.formula atau cell.formulaR1C1 hehehe
> maaf klo penjelasannya ngaco
> kurang lebih gitu yang baru saya pahami hehe
>
>
> On Wednesday, January 20, 2016 4:18 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Harus dengan VBA ya ?
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2016-01-20 16:12 GMT+07:00 prasaja_satria@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Asslamu'alaikum
> sore master,
> mau nanya VBA untuk penjumlahan komulatif, yang menggunakan dynamic range,
> dan tiap hasil penjumlahan ditampilkan..
> kalo pake autofill dsetination mungkin bisa, tapi bukan itu si yang saya
> pengen, soalnya harus berderet kalo autofill, kalo boleh pake "for" "next"
> hehehe
>
> maaf jika pertanyaan atau pernyataan saya banyak yang salah, soalnya baru
> belajar , jadi agak bingung nanya nya juga hehe,
>
> Terima kasih sebelumnya
> File contoh terlampir
>
>
> Wassalamu'alaikum warahmatullohi wabarokatuh
>
>
>
>
>
>
>
>
>

Wed Jan 20, 2016 8:42 am (PST) . Posted by:

"Septian Eko Saputro"

Dear Expert

Saya mempunyai kasus VBA untuk sebuah form input data, kesulitan saya
berada ketika mecari data dari sheet1 yang nantinya digunakan untuk mencari
jenis film sesuai gambar:

[image: Inline image 1]

Tombol find adalah mencari hasil jenis dari kriteria kode. Sehingga jika
kode diisi A1001 nantinya akan muncul hasil "Drama", tetapi saya mengalami
kesulitan untuk mengambil data tersebut. Apa yang salah mengenai rumus VBA
yang saya buat, ataukah para master mempunyai solusi terkait case
tersebut?atau adakah alternatif rumus lain? Mohon pencerahan

Salam,

monnalissa

Wed Jan 20, 2016 6:09 pm (PST) . Posted by:

"Toby kenzo" tobykenzo

Hai Eko,

1. Buat Formula Excel di Cell E1 : "=IFERROR(VLOOKUP(D1,$A$2:$B$4,2),"")"
2. Masukan formula di Sub cmdfind_Click() :
Dim a As String

a = Me.txtkode.Value
Sheet1.Range("D1").Value = a

Me.txtjenis.Value = Sheet1.Range("E1").Value

TerimaKasih.

--------------------------------------------
Pada Rab, 20/1/16, Septian Eko Saputro monnalissa0809@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

Judul: [belajar-excel] VBA find dibeda Sheet [1 Attachment]
Kepada: belajar-excel@yahoogroups.com
Tanggal: Rabu, 20 Januari, 2016, 10:42 PM


 












Dear Expert


Saya mempunyai kasus VBA
untuk sebuah form input data,
kesulitan saya berada ketika mecari data dari sheet1 yang
nantinya digunakan
untuk mencari jenis film sesuai gambar:






Tombol find adalah mencari
hasil jenis dari kriteria kode. Sehingga
jika kode diisi A1001 nantinya akan muncul hasil
"Drama", tetapi saya mengalami
kesulitan untuk mengambil data tersebut. Apa yang salah
mengenai rumus VBA yang
saya buat, ataukah para master mempunyai solusi terkait case
tersebut?atau
adakah alternatif rumus lain? Mohon pencerahan


 


Salam,


monnalissa













#yiv6027948397 #yiv6027948397 --
#yiv6027948397ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv6027948397 #yiv6027948397ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv6027948397 #yiv6027948397ygrp-mkp #yiv6027948397hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv6027948397 #yiv6027948397ygrp-mkp #yiv6027948397ads {
margin-bottom:10px;}

#yiv6027948397 #yiv6027948397ygrp-mkp .yiv6027948397ad {
padding:0 0;}

#yiv6027948397 #yiv6027948397ygrp-mkp .yiv6027948397ad p {
margin:0;}

#yiv6027948397 #yiv6027948397ygrp-mkp .yiv6027948397ad a {
color:#0000ff;text-decoration:none;}
#yiv6027948397 #yiv6027948397ygrp-sponsor
#yiv6027948397ygrp-lc {
font-family:Arial;}

#yiv6027948397 #yiv6027948397ygrp-sponsor
#yiv6027948397ygrp-lc #yiv6027948397hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv6027948397 #yiv6027948397ygrp-sponsor
#yiv6027948397ygrp-lc .yiv6027948397ad {
margin-bottom:10px;padding:0 0;}

#yiv6027948397 #yiv6027948397actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv6027948397 #yiv6027948397activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv6027948397 #yiv6027948397activity span {
font-weight:700;}

#yiv6027948397 #yiv6027948397activity span:first-child {
text-transform:uppercase;}

#yiv6027948397 #yiv6027948397activity span a {
color:#5085b6;text-decoration:none;}

#yiv6027948397 #yiv6027948397activity span span {
color:#ff7900;}

#yiv6027948397 #yiv6027948397activity span
.yiv6027948397underline {
text-decoration:underline;}

#yiv6027948397 .yiv6027948397attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv6027948397 .yiv6027948397attach div a {
text-decoration:none;}

#yiv6027948397 .yiv6027948397attach img {
border:none;padding-right:5px;}

#yiv6027948397 .yiv6027948397attach label {
display:block;margin-bottom:5px;}

#yiv6027948397 .yiv6027948397attach label a {
text-decoration:none;}

#yiv6027948397 blockquote {
margin:0 0 0 4px;}

#yiv6027948397 .yiv6027948397bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv6027948397 .yiv6027948397bold a {
text-decoration:none;}

#yiv6027948397 dd.yiv6027948397last p a {
font-family:Verdana;font-weight:700;}

#yiv6027948397 dd.yiv6027948397last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv6027948397 dd.yiv6027948397last p
span.yiv6027948397yshortcuts {
margin-right:0;}

#yiv6027948397 div.yiv6027948397attach-table div div a {
text-decoration:none;}

#yiv6027948397 div.yiv6027948397attach-table {
width:400px;}

#yiv6027948397 div.yiv6027948397file-title a, #yiv6027948397
div.yiv6027948397file-title a:active, #yiv6027948397
div.yiv6027948397file-title a:hover, #yiv6027948397
div.yiv6027948397file-title a:visited {
text-decoration:none;}

#yiv6027948397 div.yiv6027948397photo-title a,
#yiv6027948397 div.yiv6027948397photo-title a:active,
#yiv6027948397 div.yiv6027948397photo-title a:hover,
#yiv6027948397 div.yiv6027948397photo-title a:visited {
text-decoration:none;}

#yiv6027948397 div#yiv6027948397ygrp-mlmsg
#yiv6027948397ygrp-msg p a span.yiv6027948397yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv6027948397 .yiv6027948397green {
color:#628c2a;}

#yiv6027948397 .yiv6027948397MsoNormal {
margin:0 0 0 0;}

#yiv6027948397 o {
font-size:0;}

#yiv6027948397 #yiv6027948397photos div {
float:left;width:72px;}

#yiv6027948397 #yiv6027948397photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}

#yiv6027948397 #yiv6027948397photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv6027948397 #yiv6027948397reco-category {
font-size:77%;}

#yiv6027948397 #yiv6027948397reco-desc {
font-size:77%;}

#yiv6027948397 .yiv6027948397replbq {
margin:4px;}

#yiv6027948397 #yiv6027948397ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv6027948397 #yiv6027948397ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv6027948397 #yiv6027948397ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv6027948397 #yiv6027948397ygrp-mlmsg select,
#yiv6027948397 input, #yiv6027948397 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv6027948397 #yiv6027948397ygrp-mlmsg pre, #yiv6027948397
code {
font:115% monospace;}

#yiv6027948397 #yiv6027948397ygrp-mlmsg * {
line-height:1.22em;}

#yiv6027948397 #yiv6027948397ygrp-mlmsg #yiv6027948397logo {
padding-bottom:10px;}


#yiv6027948397 #yiv6027948397ygrp-msg p a {
font-family:Verdana;}

#yiv6027948397 #yiv6027948397ygrp-msg
p#yiv6027948397attach-count span {
color:#1E66AE;font-weight:700;}

#yiv6027948397 #yiv6027948397ygrp-reco
#yiv6027948397reco-head {
color:#ff7900;font-weight:700;}

#yiv6027948397 #yiv6027948397ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv6027948397 #yiv6027948397ygrp-sponsor #yiv6027948397ov
li a {
font-size:130%;text-decoration:none;}

#yiv6027948397 #yiv6027948397ygrp-sponsor #yiv6027948397ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv6027948397 #yiv6027948397ygrp-sponsor #yiv6027948397ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv6027948397 #yiv6027948397ygrp-text {
font-family:Georgia;}

#yiv6027948397 #yiv6027948397ygrp-text p {
margin:0 0 1em 0;}

#yiv6027948397 #yiv6027948397ygrp-text tt {
font-size:120%;}

#yiv6027948397 #yiv6027948397ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv6027948397

Thu Jan 21, 2016 12:29 am (PST) . Posted by:

"Fatania Latifa"

Yang jelas di bawah tabel yang fluktuatif naik turun tergantung datanya,
enaknya bagaimana ya?

2016-01-20 16:26 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Kalau print 1.5 halaman, tanda tangannya dimana saja ?
> Kalau print 0.5 halaman, tanda tangannya dimana ?
> Kalau print 1.0 halaman, tanda tangannya dimana ?
>
> Regards,
> Kid
>
>
> 2016-01-20 12:38 GMT+07:00 Fatania Latifa fatania.latifa@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear all,
>>
>> Saya ingin tanya, bisa ga sih footer di excel diberikan rumus vlookup?
>> Sebenarnya saya ingin meletakkan tanda tangan di halaman paling bawah,
>> tapi di atasnya data selalu berubah-ubah, jadi biar otomatis baris tanda
>> tangannya di bawah bagaimana? agar tidak tertimpa ketika data banyak, atau
>> terlalu ke bawah kalau data sedikit.
>> Terima kasih.
>>
>>
>
>

Thu Jan 21, 2016 12:30 am (PST) . Posted by:

"Agus Salim Al Ghozali"

Mas koq error mas saat saya jalankan, berikut saya lampirkan errornya
mas. mohon bantuannya ya mas.
terimakasih

Pada tanggal 20/01/16, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> menulis:
> Hai Al Ghozali,
>
> methods OnKey milik Application bisa dimanfaatkan. Sebaiknya pengubahan
> tabiat penekanan tombol ini dilokalisir untuk sheet tertentu saja.
>
> Di sebuah general module copas script berikut :
> 1. misalkan Anda sudah punya prosedur untuk print bernama ProsesPrint
> berbunyi begini
> public sub ProsesPrint()
> activesheet.printpreview 'sesuaikan saja dengan kebutuhan setempat
> end sub
>
> 2. buat prosedur pengubah tabiat tombol Enter (enter untuk text dan enter
> untuk numpad)
> public sub Aktifken()
> application.onkey "~","ProsesPrint" 'ini untuk enter text
> (tombol enter yang biasanya di atas shift sisi kanan
> application.onkey "{ENTER}","ProsesPrint" 'ini untuk enter numpad
> end sub
>
> 3. buat juga prosedur untuk mengembalikan tabiat tombol ke keadaan semula
> public sub NonAktifken()
> application.onkey "~", 'ini untuk enter text (tombol
> enter yang biasanya di atas shift sisi kanan
> application.onkey "{ENTER}" 'ini untuk enter numpad
> end sub
>
> sekarang, mulai menyiapkan kapan diaktifkannya tabiat yang baru. Jangan
> lupa, diusahakan dilokalisir di sheet tertentu.
> Misal : Sheet yang diprint bernama 'myPrint' (yang tampak di tab sheet di
> worksheet) dengan codename 'Sheet1' di VBE
>
> 4. mengaktifkan tabiat baru ketika sheet bernama 'myPrint' diaktifkan.
>> buat event worksheet activate milik myPrint, lalu panggi prosedur bernama
> Aktifken.
>> Jadi, isi dalam blok prosedur tersebut adalah :
> Aktifken
>
> 5. mengembalikan tabiat ke asalnya
>> buat event worksheet deactivate milik myPrint, lalu panggil prosedur
> NonAktifken.
>> Jadi, isi dalam blok proedur tersebut adalah :
> NonAktifken
>
> 6. Save as workbook dengan type .xlsm (macro enabled) atau .xlsb (excel
> binary)
>
> 7. (optional) bila perlu, di-event workbook open ada proses untuk
> mengaktifkan sheet selain myPrint (alias sheet untuk print)
>> misal di event open milik workbook, diberi proses untuk mengaktifkan
> sheet bernama 'Home' (buat sebuah sheet dan beri nama Home lebih dulu)
>> Bunyinya begini :
> Sheets("Home").activate
>
> Wassalam,
> Kid
>
>
>
>
> 2016-01-20 15:26 GMT+07:00 Agus Salim Al Ghozali al.ghozali1988@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Salam Mas,
>>
>> Saya maw Tanya ni mas, pada Excel saya buat tombol cetak/Print,
>> pertanyaan saya bias tidak mas ketika maw print hanya menekan tombol
>> ENTER pada Keyboard tanpa harus Klick tombol cetak yang kita buat
>> macro tersebut??? jadi kalau maw Print data cukup dengan menekan
>> tombol ENTER saja, Bisa tidak Mas?? kalaw bias mohon bantuanya dunk
>> mas caranya??
>>
>> Salam,
>> Al Ghozali
>>
>>
>

Thu Jan 21, 2016 12:30 am (PST) . Posted by:

"Agus Salim Al Ghozali"

Makasi mas, saya coba dulu

Pada tanggal 20/01/16, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> menulis:
> Hai Al Ghozali,
>
> methods OnKey milik Application bisa dimanfaatkan. Sebaiknya pengubahan
> tabiat penekanan tombol ini dilokalisir untuk sheet tertentu saja.
>
> Di sebuah general module copas script berikut :
> 1. misalkan Anda sudah punya prosedur untuk print bernama ProsesPrint
> berbunyi begini
> public sub ProsesPrint()
> activesheet.printpreview 'sesuaikan saja dengan kebutuhan setempat
> end sub
>
> 2. buat prosedur pengubah tabiat tombol Enter (enter untuk text dan enter
> untuk numpad)
> public sub Aktifken()
> application.onkey "~","ProsesPrint" 'ini untuk enter text
> (tombol enter yang biasanya di atas shift sisi kanan
> application.onkey "{ENTER}","ProsesPrint" 'ini untuk enter numpad
> end sub
>
> 3. buat juga prosedur untuk mengembalikan tabiat tombol ke keadaan semula
> public sub NonAktifken()
> application.onkey "~", 'ini untuk enter text (tombol
> enter yang biasanya di atas shift sisi kanan
> application.onkey "{ENTER}" 'ini untuk enter numpad
> end sub
>
> sekarang, mulai menyiapkan kapan diaktifkannya tabiat yang baru. Jangan
> lupa, diusahakan dilokalisir di sheet tertentu.
> Misal : Sheet yang diprint bernama 'myPrint' (yang tampak di tab sheet di
> worksheet) dengan codename 'Sheet1' di VBE
>
> 4. mengaktifkan tabiat baru ketika sheet bernama 'myPrint' diaktifkan.
>> buat event worksheet activate milik myPrint, lalu panggi prosedur bernama
> Aktifken.
>> Jadi, isi dalam blok prosedur tersebut adalah :
> Aktifken
>
> 5. mengembalikan tabiat ke asalnya
>> buat event worksheet deactivate milik myPrint, lalu panggil prosedur
> NonAktifken.
>> Jadi, isi dalam blok proedur tersebut adalah :
> NonAktifken
>
> 6. Save as workbook dengan type .xlsm (macro enabled) atau .xlsb (excel
> binary)
>
> 7. (optional) bila perlu, di-event workbook open ada proses untuk
> mengaktifkan sheet selain myPrint (alias sheet untuk print)
>> misal di event open milik workbook, diberi proses untuk mengaktifkan
> sheet bernama 'Home' (buat sebuah sheet dan beri nama Home lebih dulu)
>> Bunyinya begini :
> Sheets("Home").activate
>
> Wassalam,
> Kid
>
>
>
>
> 2016-01-20 15:26 GMT+07:00 Agus Salim Al Ghozali al.ghozali1988@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Salam Mas,
>>
>> Saya maw Tanya ni mas, pada Excel saya buat tombol cetak/Print,
>> pertanyaan saya bias tidak mas ketika maw print hanya menekan tombol
>> ENTER pada Keyboard tanpa harus Klick tombol cetak yang kita buat
>> macro tersebut??? jadi kalau maw Print data cukup dengan menekan
>> tombol ENTER saja, Bisa tidak Mas?? kalaw bias mohon bantuanya dunk
>> mas caranya??
>>
>> Salam,
>> Al Ghozali
>>
>>
>

Thu Jan 21, 2016 1:24 am (PST) . Posted by:

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

Coba perhatikan bagian ini :

> > 1. misalkan Anda sudah punya prosedur untuk print bernama *ProsesPrint*
> > berbunyi begini
> > public sub ProsesPrint()
> > activesheet.printpreview 'sesuaikan saja dengan kebutuhan setempat
> > end sub
>
> 2. buat prosedur pengubah tabiat tombol Enter (enter untuk text dan enter
> > untuk numpad)
> > public sub Aktifken()
> > application.onkey "~","ProsesPrint" 'ini untuk enter text
> > (tombol enter yang biasanya di atas shift sisi kanan
> > application.onkey "{ENTER}","ProsesPrint" 'ini untuk enter numpad
> > end sub
>
>

Pertanyaannya :
1. Apakah nama prosedur untuk mencetak yang sudah Anda buat sebelum
bertanya ke milis ?
2. Apakah Anda sudah menyesuaikan baris-baris kodenya agar sesuai dengan
keadaan setempat yang nama prosedurnya bisa berbeda ?

Wassalam,
Kid

2016-01-21 10:43 GMT+07:00 Agus Salim Al Ghozali al.ghozali1988@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Mas koq error mas saat saya jalankan, berikut saya lampirkan errornya
> mas. mohon bantuannya ya mas.
> terimakasih
>
> Pada tanggal 20/01/16, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com> menulis:
> > Hai Al Ghozali,
> >
> > methods OnKey milik Application bisa dimanfaatkan. Sebaiknya pengubahan
> > tabiat penekanan tombol ini dilokalisir untuk sheet tertentu saja.
> >
> > Di sebuah general module copas script berikut :
> > 1. misalkan Anda sudah punya prosedur untuk print bernama ProsesPrint
> > berbunyi begini
> > public sub ProsesPrint()
> > activesheet.printpreview 'sesuaikan saja dengan kebutuhan setempat
> > end sub
> >
> > 2. buat prosedur pengubah tabiat tombol Enter (enter untuk text dan enter
> > untuk numpad)
> > public sub Aktifken()
> > application.onkey "~","ProsesPrint" 'ini untuk enter text
> > (tombol enter yang biasanya di atas shift sisi kanan
> > application.onkey "{ENTER}","ProsesPrint" 'ini untuk enter numpad
> > end sub
> >
> > 3. buat juga prosedur untuk mengembalikan tabiat tombol ke keadaan semula
> > public sub NonAktifken()
> > application.onkey "~", 'ini untuk enter text (tombol
> > enter yang biasanya di atas shift sisi kanan
> > application.onkey "{ENTER}" 'ini untuk enter numpad
> > end sub
> >
> > sekarang, mulai menyiapkan kapan diaktifkannya tabiat yang baru. Jangan
> > lupa, diusahakan dilokalisir di sheet tertentu.
> > Misal : Sheet yang diprint bernama 'myPrint' (yang tampak di tab sheet di
> > worksheet) dengan codename 'Sheet1' di VBE
> >
> > 4. mengaktifkan tabiat baru ketika sheet bernama 'myPrint' diaktifkan.
> >> buat event worksheet activate milik myPrint, lalu panggi prosedur
> bernama
> > Aktifken.
> >> Jadi, isi dalam blok prosedur tersebut adalah :
> > Aktifken
> >
> > 5. mengembalikan tabiat ke asalnya
> >> buat event worksheet deactivate milik myPrint, lalu panggil prosedur
> > NonAktifken.
> >> Jadi, isi dalam blok proedur tersebut adalah :
> > NonAktifken
> >
> > 6. Save as workbook dengan type .xlsm (macro enabled) atau .xlsb (excel
> > binary)
> >
> > 7. (optional) bila perlu, di-event workbook open ada proses untuk
> > mengaktifkan sheet selain myPrint (alias sheet untuk print)
> >> misal di event open milik workbook, diberi proses untuk mengaktifkan
> > sheet bernama 'Home' (buat sebuah sheet dan beri nama Home lebih dulu)
> >> Bunyinya begini :
> > Sheets("Home").activate
> >
> > Wassalam,
> > Kid
> >
> >
> >
> >
> > 2016-01-20 15:26 GMT+07:00 Agus Salim Al Ghozali
> al.ghozali1988@gmail.com
> > [belajar-excel] <belajar-excel@yahoogroups.com>:
> >
> >>
> >>
> >> Salam Mas,
> >>
> >> Saya maw Tanya ni mas, pada Excel saya buat tombol cetak/Print,
> >> pertanyaan saya bias tidak mas ketika maw print hanya menekan tombol
> >> ENTER pada Keyboard tanpa harus Klick tombol cetak yang kita buat
> >> macro tersebut??? jadi kalau maw Print data cukup dengan menekan
> >> tombol ENTER saja, Bisa tidak Mas?? kalaw bias mohon bantuanya dunk
> >> mas caranya??
> >>
> >> Salam,
> >> Al Ghozali
> >>
> >>
> >
>
>

Thu Jan 21, 2016 2:02 am (PST) . Posted by:

"Agus Salim Al Ghozali"

O iya Mas, Lupa saya, uda bias ni mas, makasi mas
Pada tanggal 21/01/16, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> menulis:
> Coba perhatikan bagian ini :
>
>> > 1. misalkan Anda sudah punya prosedur untuk print bernama *ProsesPrint*
>> > berbunyi begini
>> > public sub ProsesPrint()
>> > activesheet.printpreview 'sesuaikan saja dengan kebutuhan setempat
>> > end sub
>>
>> 2. buat prosedur pengubah tabiat tombol Enter (enter untuk text dan enter
>> > untuk numpad)
>> > public sub Aktifken()
>> > application.onkey "~","ProsesPrint" 'ini untuk enter text
>> > (tombol enter yang biasanya di atas shift sisi kanan
>> > application.onkey "{ENTER}","ProsesPrint" 'ini untuk enter numpad
>> > end sub
>>
>>
>
> Pertanyaannya :
> 1. Apakah nama prosedur untuk mencetak yang sudah Anda buat sebelum
> bertanya ke milis ?
> 2. Apakah Anda sudah menyesuaikan baris-baris kodenya agar sesuai dengan
> keadaan setempat yang nama prosedurnya bisa berbeda ?
>
> Wassalam,
> Kid
>
>
>
> 2016-01-21 10:43 GMT+07:00 Agus Salim Al Ghozali al.ghozali1988@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Mas koq error mas saat saya jalankan, berikut saya lampirkan errornya
>> mas. mohon bantuannya ya mas.
>> terimakasih
>>
>> Pada tanggal 20/01/16, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
>> <belajar-excel@yahoogroups.com> menulis:
>> > Hai Al Ghozali,
>> >
>> > methods OnKey milik Application bisa dimanfaatkan. Sebaiknya pengubahan
>> > tabiat penekanan tombol ini dilokalisir untuk sheet tertentu saja.
>> >
>> > Di sebuah general module copas script berikut :
>> > 1. misalkan Anda sudah punya prosedur untuk print bernama ProsesPrint
>> > berbunyi begini
>> > public sub ProsesPrint()
>> > activesheet.printpreview 'sesuaikan saja dengan kebutuhan setempat
>> > end sub
>> >
>> > 2. buat prosedur pengubah tabiat tombol Enter (enter untuk text dan
>> > enter
>> > untuk numpad)
>> > public sub Aktifken()
>> > application.onkey "~","ProsesPrint" 'ini untuk enter text
>> > (tombol enter yang biasanya di atas shift sisi kanan
>> > application.onkey "{ENTER}","ProsesPrint" 'ini untuk enter numpad
>> > end sub
>> >
>> > 3. buat juga prosedur untuk mengembalikan tabiat tombol ke keadaan
>> > semula
>> > public sub NonAktifken()
>> > application.onkey "~", 'ini untuk enter text (tombol
>> > enter yang biasanya di atas shift sisi kanan
>> > application.onkey "{ENTER}" 'ini untuk enter numpad
>> > end sub
>> >
>> > sekarang, mulai menyiapkan kapan diaktifkannya tabiat yang baru. Jangan
>> > lupa, diusahakan dilokalisir di sheet tertentu.
>> > Misal : Sheet yang diprint bernama 'myPrint' (yang tampak di tab sheet
>> > di
>> > worksheet) dengan codename 'Sheet1' di VBE
>> >
>> > 4. mengaktifkan tabiat baru ketika sheet bernama 'myPrint' diaktifkan.
>> >> buat event worksheet activate milik myPrint, lalu panggi prosedur
>> bernama
>> > Aktifken.
>> >> Jadi, isi dalam blok prosedur tersebut adalah :
>> > Aktifken
>> >
>> > 5. mengembalikan tabiat ke asalnya
>> >> buat event worksheet deactivate milik myPrint, lalu panggil prosedur
>> > NonAktifken.
>> >> Jadi, isi dalam blok proedur tersebut adalah :
>> > NonAktifken
>> >
>> > 6. Save as workbook dengan type .xlsm (macro enabled) atau .xlsb (excel
>> > binary)
>> >
>> > 7. (optional) bila perlu, di-event workbook open ada proses untuk
>> > mengaktifkan sheet selain myPrint (alias sheet untuk print)
>> >> misal di event open milik workbook, diberi proses untuk mengaktifkan
>> > sheet bernama 'Home' (buat sebuah sheet dan beri nama Home lebih dulu)
>> >> Bunyinya begini :
>> > Sheets("Home").activate
>> >
>> > Wassalam,
>> > Kid
>> >
>> >
>> >
>> >
>> > 2016-01-20 15:26 GMT+07:00 Agus Salim Al Ghozali
>> al.ghozali1988@gmail.com
>> > [belajar-excel] <belajar-excel@yahoogroups.com>:
>> >
>> >>
>> >>
>> >> Salam Mas,
>> >>
>> >> Saya maw Tanya ni mas, pada Excel saya buat tombol cetak/Print,
>> >> pertanyaan saya bias tidak mas ketika maw print hanya menekan tombol
>> >> ENTER pada Keyboard tanpa harus Klick tombol cetak yang kita buat
>> >> macro tersebut??? jadi kalau maw Print data cukup dengan menekan
>> >> tombol ENTER saja, Bisa tidak Mas?? kalaw bias mohon bantuanya dunk
>> >> mas caranya??
>> >>
>> >> Salam,
>> >> Al Ghozali
>> >>
>> >>
>> >
>>
>>
>

Thu Jan 21, 2016 12:35 am (PST) . Posted by:

"Danny Prasetyo" danny_06791

body { font-family: "Calibri","Slate
Pro",sans-serif,"sans-serif"; color:#262626 } Terima kasih mas
Kid...
Regards,

Danny Prasetyo

Thu Jan 21, 2016 12:38 am (PST) . Posted by:

"rullp return"

walnya saya bikin file ini, lancar tanpa hambatan tapi kenapa sekarang jadi lemot..., padahal tidak ada penambahan Macro ( VBA ) ataupun formula yang lainnya. mohon pencerahan nya SUHU...

--- Mods ---
File lampiran lebih dari 250KB dilepas dari email. Silakan penanya mengirim ulang file lampiran yang diusahakan maksimal 250KB yang berisi contoh data, dengan cara me-reply email ini.
----------------
============================================================
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:

Poskan Komentar