Jumat, 12 Juni 2015

[belajar-excel] Digest Number 3471

15 Messages

Digest #3471
1a
1b
Re: Menaikan Baris Bawah Ke Atas [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
1c
1d
Re: Menaikan Baris Bawah Ke Atas by "Mr. Kid" nmkid.family@ymail.com
2a
Re: Membatasi inputan koma by "Emilia Yulisita"
2b
Re: Membatasi inputan koma by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Data yang sekali muncul by "Toby kenzo" tobykenzo
3b
6a
Menghilangkan Warna by "Heri Pamungkas ( Gmail )" dchoosen88
6b
7a
Re: Do Case atau select Case by "lkm jktind" lkmjkt

Messages

Fri Jun 12, 2015 3:04 am (PDT) . Posted by:

"Zerlinda Seismica" seismica

alhamdulilah bisa mas fajar untuk attach yang saya kirim..tapi begitu diterapkan ke database yang sebenranya ga mau jalan..kalo analisa saya kenapa ga bisa karena BLANK yg ga mau mungkin hasil olahan formula meskipun kalo diliat seacara mata kosong ga ada isinya bahkan saya cek dengan countblank juga emang blank...jadi selalu muncul NO CELL WERE FOUND...mugnkin mas fajar sama yang lain bisa menambahkan trik lain..
SalamSeismica


Pada Jumat, 12 Juni 2015 15:55, "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


#yiv5938525709 -- .yiv5938525709ygrp-photo-title{clear:both;font-size:smaller;height:15px;overflow:hidden;text-align:center;width:75px;}#yiv5938525709 div.yiv5938525709ygrp-photo{background-position:center;background-repeat:no-repeat;background-color:white;border:1px solid black;height:62px;width:62px;}#yiv5938525709 div.yiv5938525709photo-title a, #yiv5938525709 div.yiv5938525709photo-title a:active, #yiv5938525709 div.yiv5938525709photo-title a:hover, #yiv5938525709 div.yiv5938525709photo-title a:visited {text-decoration:none;}#yiv5938525709 div.yiv5938525709attach-table div.yiv5938525709attach-row {clear:both;}#yiv5938525709 div.yiv5938525709attach-table div.yiv5938525709attach-row div {float:left;}#yiv5938525709 p {clear:both;padding:15px 0 3px 0;overflow:hidden;}#yiv5938525709 div.yiv5938525709ygrp-file {width:30px;}#yiv5938525709 div.yiv5938525709attach-table div.yiv5938525709attach-row div div a {text-decoration:none;}#yiv5938525709 div.yiv5938525709attach-table div.yiv5938525709attach-row div div span {font-weight:normal;}#yiv5938525709 div.yiv5938525709ygrp-file-title {font-weight:bold;}#yiv5938525709

Wa'alaikumsalam,dear Mba Zerlinda,menurut saya caranya,blok A4:B14Pencet tombol F5Klik Specialklik Blank > klik Oklalu tekan ctrl+(-)Lalu pilih Shift cells updonesemoga berhasil
 Best Regards,
Fajar Fatahillah

On Friday, June 12, 2015 1:12 PM, "Zerlinda Seismica seismica@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Assalamualaikum wrwb

Selamat siang para expert dan sesepuh.
Ada yang ingin saya share dan minta petunjuk..adakah triknya supaya baris bawah bisa naik keatas sehingga menjadi rapi seperti lampiran ini

Salam
Seismica

#yiv5938525709 -- #yiv5938525709ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5938525709 #yiv5938525709ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5938525709 #yiv5938525709ygrp-mkp #yiv5938525709hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5938525709 #yiv5938525709ygrp-mkp #yiv5938525709ads {margin-bottom:10px;}#yiv5938525709 #yiv5938525709ygrp-mkp .yiv5938525709ad {padding:0 0;}#yiv5938525709 #yiv5938525709ygrp-mkp .yiv5938525709ad p {margin:0;}#yiv5938525709 #yiv5938525709ygrp-mkp .yiv5938525709ad a {color:#0000ff;text-decoration:none;}#yiv5938525709 #yiv5938525709ygrp-sponsor #yiv5938525709ygrp-lc {font-family:Arial;}#yiv5938525709 #yiv5938525709ygrp-sponsor #yiv5938525709ygrp-lc #yiv5938525709hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5938525709 #yiv5938525709ygrp-sponsor #yiv5938525709ygrp-lc .yiv5938525709ad {margin-bottom:10px;padding:0 0;}#yiv5938525709 #yiv5938525709actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5938525709 #yiv5938525709activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5938525709 #yiv5938525709activity span {font-weight:700;}#yiv5938525709 #yiv5938525709activity span:first-child {text-transform:uppercase;}#yiv5938525709 #yiv5938525709activity span a {color:#5085b6;text-decoration:none;}#yiv5938525709 #yiv5938525709activity span span {color:#ff7900;}#yiv5938525709 #yiv5938525709activity span .yiv5938525709underline {text-decoration:underline;}#yiv5938525709 .yiv5938525709attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5938525709 .yiv5938525709attach div a {text-decoration:none;}#yiv5938525709 .yiv5938525709attach img {border:none;padding-right:5px;}#yiv5938525709 .yiv5938525709attach label {display:block;margin-bottom:5px;}#yiv5938525709 .yiv5938525709attach label a {text-decoration:none;}#yiv5938525709 blockquote {margin:0 0 0 4px;}#yiv5938525709 .yiv5938525709bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5938525709 .yiv5938525709bold a {text-decoration:none;}#yiv5938525709 dd.yiv5938525709last p a {font-family:Verdana;font-weight:700;}#yiv5938525709 dd.yiv5938525709last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5938525709 dd.yiv5938525709last p span.yiv5938525709yshortcuts {margin-right:0;}#yiv5938525709 div.yiv5938525709attach-table div div a {text-decoration:none;}#yiv5938525709 div.yiv5938525709attach-table {width:400px;}#yiv5938525709 div.yiv5938525709file-title a, #yiv5938525709 div.yiv5938525709file-title a:active, #yiv5938525709 div.yiv5938525709file-title a:hover, #yiv5938525709 div.yiv5938525709file-title a:visited {text-decoration:none;}#yiv5938525709 div.yiv5938525709photo-title a, #yiv5938525709 div.yiv5938525709photo-title a:active, #yiv5938525709 div.yiv5938525709photo-title a:hover, #yiv5938525709 div.yiv5938525709photo-title a:visited {text-decoration:none;}#yiv5938525709 div#yiv5938525709ygrp-mlmsg #yiv5938525709ygrp-msg p a span.yiv5938525709yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5938525709 .yiv5938525709green {color:#628c2a;}#yiv5938525709 .yiv5938525709MsoNormal {margin:0 0 0 0;}#yiv5938525709 o {font-size:0;}#yiv5938525709 #yiv5938525709photos div {float:left;width:72px;}#yiv5938525709 #yiv5938525709photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5938525709 #yiv5938525709photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5938525709 #yiv5938525709reco-category {font-size:77%;}#yiv5938525709 #yiv5938525709reco-desc {font-size:77%;}#yiv5938525709 .yiv5938525709replbq {margin:4px;}#yiv5938525709 #yiv5938525709ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5938525709 #yiv5938525709ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5938525709 #yiv5938525709ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5938525709 #yiv5938525709ygrp-mlmsg select, #yiv5938525709 input, #yiv5938525709 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5938525709 #yiv5938525709ygrp-mlmsg pre, #yiv5938525709 code {font:115% monospace;}#yiv5938525709 #yiv5938525709ygrp-mlmsg * {line-height:1.22em;}#yiv5938525709 #yiv5938525709ygrp-mlmsg #yiv5938525709logo {padding-bottom:10px;}#yiv5938525709 #yiv5938525709ygrp-msg p a {font-family:Verdana;}#yiv5938525709 #yiv5938525709ygrp-msg p#yiv5938525709attach-count span {color:#1E66AE;font-weight:700;}#yiv5938525709 #yiv5938525709ygrp-reco #yiv5938525709reco-head {color:#ff7900;font-weight:700;}#yiv5938525709 #yiv5938525709ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5938525709 #yiv5938525709ygrp-sponsor #yiv5938525709ov li a {font-size:130%;text-decoration:none;}#yiv5938525709 #yiv5938525709ygrp-sponsor #yiv5938525709ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5938525709 #yiv5938525709ygrp-sponsor #yiv5938525709ov ul {margin:0;padding:0 0 0 8px;}#yiv5938525709 #yiv5938525709ygrp-text {font-family:Georgia;}#yiv5938525709 #yiv5938525709ygrp-text p {margin:0 0 1em 0;}#yiv5938525709 #yiv5938525709ygrp-text tt {font-size:120%;}#yiv5938525709 #yiv5938525709ygrp-vital ul li:last-child {border-right:none !important;}#yiv5938525709

Fri Jun 12, 2015 3:09 am (PDT) . Posted by:

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

Hai Seismica,

Kalau memang bukan blank, berarti disitu ada nullstring (biasanya hasil
formula yang ada bunyi bergini dalam formulanya "" )
Ini termasuk text. Jadi, daripada pilih opsi blank saat special, pilih
constant (kalau cellsnya tidak berformula) atau formula (kalau cellsnya
berformula), kemudian hilangkan centang dari semua opsi yang ada, dan pilih
yang text saja (centang yang text saja), karena isinya bertipe text. Terus
pencet OK dah. Lanjutkan proses berikutnya seperti ide mas Fajar.

Hati-hati, kalau ada data text lainnya yang bukan nullstring, akan ikut
hilang juga

hehehe...
Jadi, sekarang bisa dong kalau yang ingin dipilih yang cells berisi
bilangan saja....

Wassalam,
Kid

On Fri, Jun 12, 2015 at 7:51 PM, Zerlinda Seismica seismica@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> alhamdulilah bisa mas fajar untuk attach yang saya kirim..
> tapi begitu diterapkan ke database yang sebenranya ga mau jalan..kalo
> analisa saya kenapa ga bisa karena BLANK yg ga mau mungkin hasil olahan
> formula meskipun kalo diliat seacara mata kosong ga ada isinya bahkan saya
> cek dengan countblank juga emang blank...jadi selalu muncul NO CELL WERE
> FOUND...mugnkin mas fajar sama yang lain bisa menambahkan trik lain..
>
> Salam
> Seismica
>
>
>
> Pada Jumat, 12 Juni 2015 15:55, "Fajar Fatahillah
> fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
> menulis:
>
>
>
>
> Wa'alaikumsalam,
> dear Mba Zerlinda,
> menurut saya caranya,
> blok A4:B14
> Pencet tombol F5
> Klik Special
> klik Blank > klik Ok
> lalu tekan ctrl+(-)
> Lalu pilih Shift cells up
> done
> semoga berhasil
>
> Best Regards,
> Fajar Fatahillah
>
>
>
> On Friday, June 12, 2015 1:12 PM, "Zerlinda Seismica seismica@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Assalamualaikum wrwb
>
> Selamat siang para expert dan sesepuh.
> Ada yang ingin saya share dan minta petunjuk..adakah triknya supaya baris
> bawah bisa naik keatas sehingga menjadi rapi seperti lampiran ini
>
> Salam
> Seismica
>
>
>
>
>
>
>
>
>

Fri Jun 12, 2015 6:41 am (PDT) . Posted by:

"Zerlinda Seismica" seismica

makasih mas kid atas tipsnya...ternyata setelah saya coba2 bisa untuk kasus kalo baris itu hanya  number saja ato text saja..kebetulan data sebenrnya dalam satu baris itu ada cell berisi tex ada cel berisi angka..Sekiranyanya ada opsi yang mengenali cell nullstring selain blank bisa memecahkan masalah ini hehehe...masih minta tips lagi nih mas kid dan temen lainnya....


Pada Jumat, 12 Juni 2015 17:09, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


#yiv8851714605 #yiv8851714605 -- #yiv8851714605 .yiv8851714605ygrp-photo-title{clear:both;font-size:smaller;height:15px;overflow:hidden;text-align:center;width:75px;}#yiv8851714605 div.yiv8851714605ygrp-photo{background-position:center;background-repeat:no-repeat;background-color:white;border:1px solid black;height:62px;width:62px;}#yiv8851714605 div.yiv8851714605photo-title a, #yiv8851714605 div.yiv8851714605photo-title a:active, #yiv8851714605 div.yiv8851714605photo-title a:hover, #yiv8851714605 div.yiv8851714605photo-title a:visited {text-decoration:none;}#yiv8851714605 div.yiv8851714605attach-table div.yiv8851714605attach-row {clear:both;}#yiv8851714605 div.yiv8851714605attach-table div.yiv8851714605attach-row div {float:left;}#yiv8851714605 p {clear:both;padding:15px 0 3px 0;overflow:hidden;}#yiv8851714605 div.yiv8851714605ygrp-file {width:30px;}#yiv8851714605 div.yiv8851714605attach-table div.yiv8851714605attach-row div div a {text-decoration:none;}#yiv8851714605 div.yiv8851714605attach-table div.yiv8851714605attach-row div div span {font-weight:normal;}#yiv8851714605 div.yiv8851714605ygrp-file-title {font-weight:bold;}#yiv8851714605 #yiv8851714605 #yiv8851714605 #yiv8851714605 --#yiv8851714605ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8851714605 #yiv8851714605ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8851714605 #yiv8851714605ygrp-mkp #yiv8851714605hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8851714605 #yiv8851714605ygrp-mkp #yiv8851714605ads {margin-bottom:10px;}#yiv8851714605 #yiv8851714605ygrp-mkp .yiv8851714605ad {padding:0 0;}#yiv8851714605 #yiv8851714605ygrp-mkp .yiv8851714605ad p {margin:0;}#yiv8851714605 #yiv8851714605ygrp-mkp .yiv8851714605ad a {color:#0000ff;text-decoration:none;}#yiv8851714605

Hai Seismica,

Kalau memang bukan blank, berarti disitu ada nullstring (biasanya hasil formula yang ada bunyi bergini dalam formulanya "" )
Ini termasuk text. Jadi, daripada pilih opsi blank saat special, pilih constant (kalau cellsnya tidak berformula) atau formula (kalau cellsnya berformula), kemudian hilangkan centang dari semua opsi yang ada, dan pilih yang text saja (centang yang text saja), karena isinya bertipe text. Terus pencet OK dah. Lanjutkan proses berikutnya seperti ide mas Fajar.

Hati-hati, kalau ada data text lainnya yang bukan nullstring, akan ikut hilang juga

hehehe...
Jadi, sekarang bisa dong kalau yang ingin dipilih yang cells berisi bilangan saja....

Wassalam,
Kid

On Fri, Jun 12, 2015 at 7:51 PM, Zerlinda Seismica seismica@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  alhamdulilah bisa mas fajar untuk attach yang saya kirim..tapi begitu diterapkan ke database yang sebenranya ga mau jalan..kalo analisa saya kenapa ga bisa karena BLANK yg ga mau mungkin hasil olahan formula meskipun kalo diliat seacara mata kosong ga ada isinya bahkan saya cek dengan countblank juga emang blank...jadi selalu muncul NO CELL WERE FOUND...mugnkin mas fajar sama yang lain bisa menambahkan trik lain..
SalamSeismica


Pada Jumat, 12 Juni 2015 15:55, "Fajar Fatahillah fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


Wa'alaikumsalam,dear Mba Zerlinda,menurut saya caranya,blok A4:B14Pencet tombol F5Klik Specialklik Blank > klik Oklalu tekan ctrl+(-)Lalu pilih Shift cells updonesemoga berhasil
 Best Regards,
Fajar Fatahillah

On Friday, June 12, 2015 1:12 PM, "Zerlinda Seismica seismica@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Assalamualaikum wrwb

Selamat siang para expert dan sesepuh.
Ada yang ingin saya share dan minta petunjuk..adakah triknya supaya baris bawah bisa naik keatas sehingga menjadi rapi seperti lampiran ini

Salam
Seismica

Fri Jun 12, 2015 6:54 am (PDT) . Posted by:

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

Hai Seismica,

Misal dataset di A1:Z99 dengan baris 1 adalah header
Kolom kunci untuk merapatkannya dikolom A, artinya, jika kolom A ada isinya
selain nullstring atau blank, maka seluruh baris akan dihapus (delete row)
supaya barisnya naik.
Kolom A tidak ada yang berisi formula (sudah di-values-ken), bisa berisi
bilangan, teks, nullstring, maupun blank cells.

Coba langkah berikut : (sesuaikan dengan keadaan setempat)
1. blok data di kolom kuncinya, contoh ini berarti di A1:A99 (hanya kolom A
di area data saja, bisa termasuk header)
2. lakukan replace (tekan CTRL H), dengan find dibiarkan kosong (hapus
kalau ada isinya), dan replace diisi dengan bunyi #N/A lalu tekan Replace
All
hehehehe... mestinya banyak muncul cells berisi error value ya...
3. lakukan pemilihan cells selektif (tekan CTRL G -> klik Special) lalu
pilih opsi Constants, hilangkan centang kecuali item Errors (maksud e cuman
item errors yang dicentang gitu) dan tekan OK

4. lakukan delete row dengan klik kanan salah satu cells yang ter-blok
(atau yang ada isinya error value) lalu pilih delete dan pilih lagi opsi
entire row kemudian di OK OK sampai kembali ke worksheet

5. Andaikan semuanya sukses dan hasilnya cocok, berarti Anda sedang
beruntung...

Moga-moga beruntung yak

Wassalam,
Kid

2015-06-12 23:25 GMT+10:00 Zerlinda Seismica seismica@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> makasih mas kid atas tipsnya...ternyata setelah saya coba2 bisa untuk
> kasus kalo baris itu hanya number saja ato text saja..
> kebetulan data sebenrnya dalam satu baris itu ada cell berisi tex ada cel
> berisi angka..
> Sekiranyanya ada opsi yang mengenali cell nullstring selain blank bisa
> memecahkan masalah ini hehehe...
> masih minta tips lagi nih mas kid dan temen lainnya....
>
>
>
>
> Pada Jumat, 12 Juni 2015 17:09, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
> Hai Seismica,
>
> Kalau memang bukan blank, berarti disitu ada nullstring (biasanya hasil
> formula yang ada bunyi bergini dalam formulanya "" )
> Ini termasuk text. Jadi, daripada pilih opsi blank saat special, pilih
> constant (kalau cellsnya tidak berformula) atau formula (kalau cellsnya
> berformula), kemudian hilangkan centang dari semua opsi yang ada, dan pilih
> yang text saja (centang yang text saja), karena isinya bertipe text. Terus
> pencet OK dah. Lanjutkan proses berikutnya seperti ide mas Fajar.
>
> Hati-hati, kalau ada data text lainnya yang bukan nullstring, akan ikut
> hilang juga
>
> hehehe...
> Jadi, sekarang bisa dong kalau yang ingin dipilih yang cells berisi
> bilangan saja....
>
> Wassalam,
> Kid
>
>
>
>
>
> On Fri, Jun 12, 2015 at 7:51 PM, Zerlinda Seismica seismica@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> alhamdulilah bisa mas fajar untuk attach yang saya kirim..
> tapi begitu diterapkan ke database yang sebenranya ga mau jalan..kalo
> analisa saya kenapa ga bisa karena BLANK yg ga mau mungkin hasil olahan
> formula meskipun kalo diliat seacara mata kosong ga ada isinya bahkan saya
> cek dengan countblank juga emang blank...jadi selalu muncul NO CELL WERE
> FOUND...mugnkin mas fajar sama yang lain bisa menambahkan trik lain..
>
> Salam
> Seismica
>
>
>
> Pada Jumat, 12 Juni 2015 15:55, "Fajar Fatahillah
> fajar.fatahillah@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
> menulis:
>
>
>
>
> Wa'alaikumsalam,
> dear Mba Zerlinda,
> menurut saya caranya,
> blok A4:B14
> Pencet tombol F5
> Klik Special
> klik Blank > klik Ok
> lalu tekan ctrl+(-)
> Lalu pilih Shift cells up
> done
> semoga berhasil
>
> Best Regards,
> Fajar Fatahillah
>
>
>
> On Friday, June 12, 2015 1:12 PM, "Zerlinda Seismica seismica@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Assalamualaikum wrwb
>
> Selamat siang para expert dan sesepuh.
> Ada yang ingin saya share dan minta petunjuk..adakah triknya supaya baris
> bawah bisa naik keatas sehingga menjadi rapi seperti lampiran ini
>
> Salam
> Seismica
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Fri Jun 12, 2015 3:50 am (PDT) . Posted by:

"Emilia Yulisita"

Terimakasih atas tanggapannya :)
Pada 12 Jun 2015 16.27, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> menulis:

>
>

> Hai Emilia,
>
> Karakter koma memiliki kode ASCII 44
> Jika menggunakan event KeyPress, maka yang digunakan adalah KeyASCII yang
> berupa kode ASCII.
>
> Jika menggunakan event KeyDown, maka yang dibutuhkan adalah KeyCode (bukan
> KeyASCII) yang berupa kode tombol (Key).
> Karakter koma memiliki KeyCode 188
>
> Jadi, KeyASCII dalam event KeyPress akan mendapatkan kode ASCII setiap
> karakter, sedang KeyCode dalam event KeyDown akan mendapatkan kode keyboard.
>
> KeyCode sulit (bukannya tidak mungkin) membedakan huruf kapital dan huruf
> kecil, tapi bisa tahu setiap tombol yang ditekan oleh user, seperti tombol
> shift, caps lock, dsb
> KeyASCII mudah membedakan huruf kapital dan huruf kecil karena memang kode
> ASCII nya berbeda, tetapi tidak dapat (bukan sekedar sulit loh ya)
> mengetahui tombol yang jika ditekan tidak memberi suatu karakter tertentu.
>
> Jadi, silakan dimanfaatkan sesuai kebutuhan. Jika yang dibutuhkan adalah
> karakter saja, maka gunakan KeyASCII dalam event KeyPress.
>
>
>
>
> 2015-06-12 18:53 GMT+10:00 Emilia Yulisita emilia.yulisita@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Selamat sore,
>>
>> Maaf saya ingin bertanya lagi. Saya sudah mencoba cara membatasi inputan
>> yang telah diberikan sebelumnya. Kemudian saya ingin agar karakter koma
>> bisa diinputkan pada textbox.
>> Saya edit dengan menambahkan code 44, tapi kenapa tidak berfungsi ya?
>> Terimakasih atas tanggapannya. :)
>> Pada 30 Mei 2015 00.50, Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]
>> <belajar-excel@yahoogroups.com> menulis:
>>
>>>
>>>
>>> Dear Emilia,
>>>
>>> Mungkin file ini bisa membantu.
>>>
>>> TerimaKasih.
>>>
>>> Sent from Yahoo Mail on Android
>>> <http://overview.mail.yahoo.com/mobile/?.src=Android>
>>>
>>> ------------------------------
>>> * From: * Emilia Yulisita emilia.yulisita@gmail.com [belajar-excel] <
>>> belajar-excel@yahoogroups.com>;
>>> * To: * <belajar-excel@yahoogroups.com>;
>>> * Subject: * [belajar-excel] Membatasi inputan koma [1 Attachment]
>>> * Sent: * Fri, May 29, 2015 3:53:34 AM
>>>
>>>
>>>
>>> Selamat siang,
>>>
>>> Saya baru saja belajar VB dan masih kebingungan.
>>> Saya ingin menanyakan bagaimana agar inputan berupa karakter koma (,)
>>> tidak dapat diproses dan muncul pop up pemberitahuan. Saya menggunakan
>>> function isNumeric agar karakter selain angka tidak bisa diproses,
>>> tetapi angka dengan tanda koma ternyata masih bisa diproses. berikut
>>> saya lampirkan sourcode yang saya maksud.
>>>
>>> Terima kasih atas tanggapannya. :)
>>>
>>>
>>
>
>

Fri Jun 12, 2015 4:28 am (PDT) . Posted by:

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

Oh iya, untuk mendapatkan nilai keycode suatu tombol keyboard, pada event
keydown dibaris pertama diberi kode berikut :
debug.print "event keydown", keycode, shift

2015-06-12 20:31 GMT+10:00 Emilia Yulisita emilia.yulisita@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Terimakasih atas tanggapannya :)
> Pada 12 Jun 2015 16.27, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Hai Emilia,
>>
>> Karakter koma memiliki kode ASCII 44
>> Jika menggunakan event KeyPress, maka yang digunakan adalah KeyASCII yang
>> berupa kode ASCII.
>>
>> Jika menggunakan event KeyDown, maka yang dibutuhkan adalah KeyCode
>> (bukan KeyASCII) yang berupa kode tombol (Key).
>> Karakter koma memiliki KeyCode 188
>>
>> Jadi, KeyASCII dalam event KeyPress akan mendapatkan kode ASCII setiap
>> karakter, sedang KeyCode dalam event KeyDown akan mendapatkan kode keyboard.
>>
>> KeyCode sulit (bukannya tidak mungkin) membedakan huruf kapital dan huruf
>> kecil, tapi bisa tahu setiap tombol yang ditekan oleh user, seperti tombol
>> shift, caps lock, dsb
>> KeyASCII mudah membedakan huruf kapital dan huruf kecil karena memang
>> kode ASCII nya berbeda, tetapi tidak dapat (bukan sekedar sulit loh ya)
>> mengetahui tombol yang jika ditekan tidak memberi suatu karakter tertentu.
>>
>> Jadi, silakan dimanfaatkan sesuai kebutuhan. Jika yang dibutuhkan adalah
>> karakter saja, maka gunakan KeyASCII dalam event KeyPress.
>>
>>
>>
>>
>> 2015-06-12 18:53 GMT+10:00 Emilia Yulisita emilia.yulisita@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Selamat sore,
>>>
>>> Maaf saya ingin bertanya lagi. Saya sudah mencoba cara membatasi inputan
>>> yang telah diberikan sebelumnya. Kemudian saya ingin agar karakter koma
>>> bisa diinputkan pada textbox.
>>> Saya edit dengan menambahkan code 44, tapi kenapa tidak berfungsi ya?
>>> Terimakasih atas tanggapannya. :)
>>> Pada 30 Mei 2015 00.50, Toby kenzo tobykenzo@yahoo.co.id
>>> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>>>
>>>>
>>>>
>>>> Dear Emilia,
>>>>
>>>> Mungkin file ini bisa membantu.
>>>>
>>>> TerimaKasih.
>>>>
>>>> Sent from Yahoo Mail on Android
>>>> <http://overview.mail.yahoo.com/mobile/?.src=Android>
>>>>
>>>> ------------------------------
>>>> * From: * Emilia Yulisita emilia.yulisita@gmail.com [belajar-excel] <
>>>> belajar-excel@yahoogroups.com>;
>>>> * To: * <belajar-excel@yahoogroups.com>;
>>>> * Subject: * [belajar-excel] Membatasi inputan koma [1 Attachment]
>>>> * Sent: * Fri, May 29, 2015 3:53:34 AM
>>>>
>>>>
>>>>
>>>> Selamat siang,
>>>>
>>>> Saya baru saja belajar VB dan masih kebingungan.
>>>> Saya ingin menanyakan bagaimana agar inputan berupa karakter koma (,)
>>>> tidak dapat diproses dan muncul pop up pemberitahuan. Saya menggunakan
>>>> function isNumeric agar karakter selain angka tidak bisa diproses,
>>>> tetapi angka dengan tanda koma ternyata masih bisa diproses. berikut
>>>> saya lampirkan sourcode yang saya maksud.
>>>>
>>>> Terima kasih atas tanggapannya. :)
>>>>
>>>>
>>>
>>
>

Fri Jun 12, 2015 6:01 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

coba pake formula:
If(countif(range yg ada,target yg di tuju)>1,"",target yg di tuju)

misal:

Di tempatkan di column B

=IF(Countif($A$2:$A$10,A2)>1," ",A2)

TerimaKasih.

Sent from Yahoo Mail on Android

Fri Jun 12, 2015 6:21 am (PDT) . Posted by:

"@zka" wxwxtit

Met malam, makasih semua  atas respon, saran n pendapatnya
Tambah 1 lg ilmu dr belajar excel

Fri Jun 12, 2015 7:20 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

Dera pak Tjahya,

1.Jika mau merubah format,bisa gunakan format cell,jika mau di ubah dari  23 Maret ke 23/03,tinggal di rubah format cellnya aja dari dd mmm ke dd/mm.
2.Jika data sudah berbentuk data table,alangkah baiknya resultnya jg berbentuk data table jgn menggunakan result description akan sulit nanti kedepannya untuk membuat formulanya.

TerimaKasih.

Sent from Yahoo Mail on Android

Fri Jun 12, 2015 1:25 pm (PDT) . Posted by:

"Stephanus Nusanumba"

Mohon saya dibantu cara membuat command button berfungsi.Pada file terlampir, command button " FILTER " pada sheet " BUKU BANTU tidak berfungsi. Apakah kode sub advfilter yang salah atau bgm ? Namun kalau di Run Sub/Useform dari menu visual basic bisa. Mohon bantuannya.
Terima kasih atas bantuannya.Salam Steven
Ende - NTT


Pada Selasa, 2 Juni 2015 16:18, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Pak Steven Yth,

Saya ndak mudeng cara olah data yang demikian seperti apa. Mungkin karena saya ndak pernah pegang uang atau jadi bendahara kali ya...

btw,
andaikan ada penjelasan yang lebih rinci tentang cara menghitung setiap item yang Anda butuhkan, sepertinya akan ada banyak BeExceller yang bersegera membantu.

e...
file terlampir adalah hasil perenungan dalam semedi sehari semalam...
kalau masih ada klirunya, mohon dimaklumi ya... mungkin kurang khusuk semedinya...

Salam,
Kid
Ende ketimur dikit lalu ke selatan agak banyak

2015-05-31 11:23 GMT+10:00 Stephanus Nusanumba stef_ende@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Dengan hormat,Mohon saya dibantu pembuatan Rekening koran ( menampilkan transaksi ) data pada sheet "kas" dibuat pada sheet yang berbeda (sheet baru) dan pada sheet " Laporan" juga dibuat pada sheet yang berbeda (sheet baru). Keduanya dibuat dengan menggunakan kriteria " Tanggal".Demikian, terima kasih atas bantuannya.

Salam
Steven Nusanumba

Ende - Nusa Tenggara Timur


#yiv8803915502 #yiv8803915502 -- #yiv8803915502ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8803915502 #yiv8803915502ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8803915502 #yiv8803915502ygrp-mkp #yiv8803915502hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8803915502 #yiv8803915502ygrp-mkp #yiv8803915502ads {margin-bottom:10px;}#yiv8803915502 #yiv8803915502ygrp-mkp .yiv8803915502ad {padding:0 0;}#yiv8803915502 #yiv8803915502ygrp-mkp .yiv8803915502ad p {margin:0;}#yiv8803915502 #yiv8803915502ygrp-mkp .yiv8803915502ad a {color:#0000ff;text-decoration:none;}#yiv8803915502 #yiv8803915502ygrp-sponsor #yiv8803915502ygrp-lc {font-family:Arial;}#yiv8803915502 #yiv8803915502ygrp-sponsor #yiv8803915502ygrp-lc #yiv8803915502hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8803915502 #yiv8803915502ygrp-sponsor #yiv8803915502ygrp-lc .yiv8803915502ad {margin-bottom:10px;padding:0 0;}#yiv8803915502 #yiv8803915502actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8803915502 #yiv8803915502activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8803915502 #yiv8803915502activity span {font-weight:700;}#yiv8803915502 #yiv8803915502activity span:first-child {text-transform:uppercase;}#yiv8803915502 #yiv8803915502activity span a {color:#5085b6;text-decoration:none;}#yiv8803915502 #yiv8803915502activity span span {color:#ff7900;}#yiv8803915502 #yiv8803915502activity span .yiv8803915502underline {text-decoration:underline;}#yiv8803915502 .yiv8803915502attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8803915502 .yiv8803915502attach div a {text-decoration:none;}#yiv8803915502 .yiv8803915502attach img {border:none;padding-right:5px;}#yiv8803915502 .yiv8803915502attach label {display:block;margin-bottom:5px;}#yiv8803915502 .yiv8803915502attach label a {text-decoration:none;}#yiv8803915502 blockquote {margin:0 0 0 4px;}#yiv8803915502 .yiv8803915502bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8803915502 .yiv8803915502bold a {text-decoration:none;}#yiv8803915502 dd.yiv8803915502last p a {font-family:Verdana;font-weight:700;}#yiv8803915502 dd.yiv8803915502last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8803915502 dd.yiv8803915502last p span.yiv8803915502yshortcuts {margin-right:0;}#yiv8803915502 div.yiv8803915502attach-table div div a {text-decoration:none;}#yiv8803915502 div.yiv8803915502attach-table {width:400px;}#yiv8803915502 div.yiv8803915502file-title a, #yiv8803915502 div.yiv8803915502file-title a:active, #yiv8803915502 div.yiv8803915502file-title a:hover, #yiv8803915502 div.yiv8803915502file-title a:visited {text-decoration:none;}#yiv8803915502 div.yiv8803915502photo-title a, #yiv8803915502 div.yiv8803915502photo-title a:active, #yiv8803915502 div.yiv8803915502photo-title a:hover, #yiv8803915502 div.yiv8803915502photo-title a:visited {text-decoration:none;}#yiv8803915502 div#yiv8803915502ygrp-mlmsg #yiv8803915502ygrp-msg p a span.yiv8803915502yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8803915502 .yiv8803915502green {color:#628c2a;}#yiv8803915502 .yiv8803915502MsoNormal {margin:0 0 0 0;}#yiv8803915502 o {font-size:0;}#yiv8803915502 #yiv8803915502photos div {float:left;width:72px;}#yiv8803915502 #yiv8803915502photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv8803915502 #yiv8803915502photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8803915502 #yiv8803915502reco-category {font-size:77%;}#yiv8803915502 #yiv8803915502reco-desc {font-size:77%;}#yiv8803915502 .yiv8803915502replbq {margin:4px;}#yiv8803915502 #yiv8803915502ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8803915502 #yiv8803915502ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8803915502 #yiv8803915502ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8803915502 #yiv8803915502ygrp-mlmsg select, #yiv8803915502 input, #yiv8803915502 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8803915502 #yiv8803915502ygrp-mlmsg pre, #yiv8803915502 code {font:115% monospace;}#yiv8803915502 #yiv8803915502ygrp-mlmsg * {line-height:1.22em;}#yiv8803915502 #yiv8803915502ygrp-mlmsg #yiv8803915502logo {padding-bottom:10px;}#yiv8803915502 #yiv8803915502ygrp-msg p a {font-family:Verdana;}#yiv8803915502 #yiv8803915502ygrp-msg p#yiv8803915502attach-count span {color:#1E66AE;font-weight:700;}#yiv8803915502 #yiv8803915502ygrp-reco #yiv8803915502reco-head {color:#ff7900;font-weight:700;}#yiv8803915502 #yiv8803915502ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8803915502 #yiv8803915502ygrp-sponsor #yiv8803915502ov li a {font-size:130%;text-decoration:none;}#yiv8803915502 #yiv8803915502ygrp-sponsor #yiv8803915502ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8803915502 #yiv8803915502ygrp-sponsor #yiv8803915502ov ul {margin:0;padding:0 0 0 8px;}#yiv8803915502 #yiv8803915502ygrp-text {font-family:Georgia;}#yiv8803915502 #yiv8803915502ygrp-text p {margin:0 0 1em 0;}#yiv8803915502 #yiv8803915502ygrp-text tt {font-size:120%;}#yiv8803915502 #yiv8803915502ygrp-vital ul li:last-child {border-right:none !important;}#yiv8803915502

Fri Jun 12, 2015 10:02 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Stephanus,Suatu tombol diklik untuk menjalankan macro seharusnya ada macronya bukan ?
Sub AdvFilter()' ini kode untuk Advance FilternyaThisWorkbook.Sheets("JURNAL").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _CriteriaRange:=ThisWorkbook.Sheets("BUKU BANTU").Range("A2:J4"), _CopyToRange:=Range("A12:I12"), Unique:=False' ini kode untuk mencari jumlah data cocokJmlDataCocok = Application.WorksheetFunction.Count(ThisWorkbook.Sheets("BUKU BANTU").Range("A13:A65536"))' ini kode untuk menuliskan jumlah data cocok ke range E5ThisWorkbook.Sheets("BUKU BANTU").Range("E5").Value = JmlDataCocok & " Transaksi ditemukan sesuai KRITERIA "
End Sub
Private Sub CommandButton1_Click()    macronya ?End Sub
Macronya bisa ditulis AdvFilter (nama macronya) atau copas macro di bawah Sub AdvFilter() s/d di atas End Sub
Salam,HK
From: "Stephanus Nusanumba stef_ende@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 12 June 2015, 22:04
Subject: Bls: [belajar-excel] Pembuatan Rekening Koran [1 Attachment]

  Mohon saya dibantu cara membuat command button berfungsi.Pada file terlampir, command button " FILTER " pada sheet " BUKU BANTU tidak berfungsi. Apakah kode sub advfilter yang salah atau bgm ? Namun kalau di Run Sub/Useform dari menu visual basic bisa. Mohon bantuannya.
Terima kasih atas bantuannya.Salam Steven
Ende - NTT


Pada Selasa, 2 Juni 2015 16:18, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Pak Steven Yth,

Saya ndak mudeng cara olah data yang demikian seperti apa. Mungkin karena saya ndak pernah pegang uang atau jadi bendahara kali ya...

btw,
andaikan ada penjelasan yang lebih rinci tentang cara menghitung setiap item yang Anda butuhkan, sepertinya akan ada banyak BeExceller yang bersegera membantu.

e...
file terlampir adalah hasil perenungan dalam semedi sehari semalam...
kalau masih ada klirunya, mohon dimaklumi ya... mungkin kurang khusuk semedinya...

Salam,
Kid
Ende ketimur dikit lalu ke selatan agak banyak

2015-05-31 11:23 GMT+10:00 Stephanus Nusanumba stef_ende@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Dengan hormat,Mohon saya dibantu pembuatan Rekening koran ( menampilkan transaksi ) data pada sheet "kas" dibuat pada sheet yang berbeda (sheet baru) dan pada sheet " Laporan" juga dibuat pada sheet yang berbeda (sheet baru). Keduanya dibuat dengan menggunakan kriteria " Tanggal".Demikian, terima kasih atas bantuannya.

Salam
Steven Nusanumba

Ende - Nusa Tenggara Timur


#yiv2793278036 #yiv2793278036 -- #yiv2793278036ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2793278036 #yiv2793278036ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2793278036 #yiv2793278036ygrp-mkp #yiv2793278036hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2793278036 #yiv2793278036ygrp-mkp #yiv2793278036ads {margin-bottom:10px;}#yiv2793278036 #yiv2793278036ygrp-mkp .yiv2793278036ad {padding:0 0;}#yiv2793278036 #yiv2793278036ygrp-mkp .yiv2793278036ad p {margin:0;}#yiv2793278036 #yiv2793278036ygrp-mkp .yiv2793278036ad a {color:#0000ff;text-decoration:none;}#yiv2793278036 #yiv2793278036ygrp-sponsor #yiv2793278036ygrp-lc {font-family:Arial;}#yiv2793278036 #yiv2793278036ygrp-sponsor #yiv2793278036ygrp-lc #yiv2793278036hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2793278036 #yiv2793278036ygrp-sponsor #yiv2793278036ygrp-lc .yiv2793278036ad {margin-bottom:10px;padding:0 0;}#yiv2793278036 #yiv2793278036actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2793278036 #yiv2793278036activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2793278036 #yiv2793278036activity span {font-weight:700;}#yiv2793278036 #yiv2793278036activity span:first-child {text-transform:uppercase;}#yiv2793278036 #yiv2793278036activity span a {color:#5085b6;text-decoration:none;}#yiv2793278036 #yiv2793278036activity span span {color:#ff7900;}#yiv2793278036 #yiv2793278036activity span .yiv2793278036underline {text-decoration:underline;}#yiv2793278036 .yiv2793278036attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2793278036 .yiv2793278036attach div a {text-decoration:none;}#yiv2793278036 .yiv2793278036attach img {border:none;padding-right:5px;}#yiv2793278036 .yiv2793278036attach label {display:block;margin-bottom:5px;}#yiv2793278036 .yiv2793278036attach label a {text-decoration:none;}#yiv2793278036 blockquote {margin:0 0 0 4px;}#yiv2793278036 .yiv2793278036bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2793278036 .yiv2793278036bold a {text-decoration:none;}#yiv2793278036 dd.yiv2793278036last p a {font-family:Verdana;font-weight:700;}#yiv2793278036 dd.yiv2793278036last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2793278036 dd.yiv2793278036last p span.yiv2793278036yshortcuts {margin-right:0;}#yiv2793278036 div.yiv2793278036attach-table div div a {text-decoration:none;}#yiv2793278036 div.yiv2793278036attach-table {width:400px;}#yiv2793278036 div.yiv2793278036file-title a, #yiv2793278036 div.yiv2793278036file-title a:active, #yiv2793278036 div.yiv2793278036file-title a:hover, #yiv2793278036 div.yiv2793278036file-title a:visited {text-decoration:none;}#yiv2793278036 div.yiv2793278036photo-title a, #yiv2793278036 div.yiv2793278036photo-title a:active, #yiv2793278036 div.yiv2793278036photo-title a:hover, #yiv2793278036 div.yiv2793278036photo-title a:visited {text-decoration:none;}#yiv2793278036 div#yiv2793278036ygrp-mlmsg #yiv2793278036ygrp-msg p a span.yiv2793278036yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2793278036 .yiv2793278036green {color:#628c2a;}#yiv2793278036 .yiv2793278036MsoNormal {margin:0 0 0 0;}#yiv2793278036 o {font-size:0;}#yiv2793278036 #yiv2793278036photos div {float:left;width:72px;}#yiv2793278036 #yiv2793278036photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2793278036 #yiv2793278036photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2793278036 #yiv2793278036reco-category {font-size:77%;}#yiv2793278036 #yiv2793278036reco-desc {font-size:77%;}#yiv2793278036 .yiv2793278036replbq {margin:4px;}#yiv2793278036 #yiv2793278036ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2793278036 #yiv2793278036ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2793278036 #yiv2793278036ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2793278036 #yiv2793278036ygrp-mlmsg select, #yiv2793278036 input, #yiv2793278036 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2793278036 #yiv2793278036ygrp-mlmsg pre, #yiv2793278036 code {font:115% monospace;}#yiv2793278036 #yiv2793278036ygrp-mlmsg * {line-height:1.22em;}#yiv2793278036 #yiv2793278036ygrp-mlmsg #yiv2793278036logo {padding-bottom:10px;}#yiv2793278036 #yiv2793278036ygrp-msg p a {font-family:Verdana;}#yiv2793278036 #yiv2793278036ygrp-msg p#yiv2793278036attach-count span {color:#1E66AE;font-weight:700;}#yiv2793278036 #yiv2793278036ygrp-reco #yiv2793278036reco-head {color:#ff7900;font-weight:700;}#yiv2793278036 #yiv2793278036ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2793278036 #yiv2793278036ygrp-sponsor #yiv2793278036ov li a {font-size:130%;text-decoration:none;}#yiv2793278036 #yiv2793278036ygrp-sponsor #yiv2793278036ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2793278036 #yiv2793278036ygrp-sponsor #yiv2793278036ov ul {margin:0;padding:0 0 0 8px;}#yiv2793278036 #yiv2793278036ygrp-text {font-family:Georgia;}#yiv2793278036 #yiv2793278036ygrp-text p {margin:0 0 1em 0;}#yiv2793278036 #yiv2793278036ygrp-text tt {font-size:120%;}#yiv2793278036 #yiv2793278036ygrp-vital ul li:last-child {border-right:none !important;}#yiv2793278036

Fri Jun 12, 2015 5:46 pm (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88


--
?????????? ?????????? ?????????? ????? ?????????????
Semangat pagi,.

Dear teman-teman Be-Excellers

Saya mempunyai angan-angan, Apakah bisa saya menghilangkan warna
tertentu ?!

Misalnya, "Saya ngga mau Client memakai warna PINK"
Jadi saya hilangkan warna PINK pada Excell.

???????????? ?????????? ?????????? ????? ?????????????

Warm Regards,

Fri Jun 12, 2015 8:11 pm (PDT) . Posted by:

"Toby kenzo" tobykenzo

Dear Heri,

Jawabnya tentu bisa,sekarang yg mau di hilangkan warna apa,font atau cell.

Bisa kasi contohnya..

TerimaKasih.

Sent from Yahoo Mail on Android

Fri Jun 12, 2015 8:27 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

Terima kasih Pak Kid.

Jadi untuk memakai select case : tinggal saya ganti saja . dari IF /
ElseIF --- dengan case.

adapun data yg saya gunakankan dari range A1: paling akhir. dan
semuanya mengunakan formula index--
biar seandai nya bila ada penambahan row atau colum nga akan merubah
formulanya. dan lebih mudah bikin VBA nya ( lebih mudah di perbaikinya/
seragam)

saat ini pun masih mengunakan template : tapi hanya per ticker saja.
(seandainya copy paste perticker 1 detik hasilnya masih lebih cepat pakai
VBA
kalau hanya di hitung per column quater saat ini saja . sekitar 1 menit )
jumlah ticker ini selalu bertambah.

sumber data jarang di rubah (kecuali ada revisi)

Salam

Lukman.

2015-06-12 8:43 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> hmmm...
>
> 0. Panjang juga bunyi formula untuk 1 item kode kolom C yang berisi CC301.
>
> 1. Kalau melihat text file berisi script yang Anda buat, tampaknya seluruh
> kolom dikomputasi ulang.
> > Apakah sumber datanya berubah setiap waktu, sehingga seluruh kolom harus
> dikomputasi ulang?
> > Apakah tidak memungkinkan dibuatkan satu template untuk mengkomputasi 1
> kolom data quarter (triwulan) terbaru saja, yang hasil komputasi template
> ini lalu di-copy ke sheet series quarter-an tersebut ?
>
> 2. Jika dilihat dari rumusan komputasi di kolom i, ada nilai-nilai kode
> kolom C yang sudah menjadi bawaan sumber data (kolom i tidak berisi
> misalnya [bisa jadi ada kriteria lain, but it's ok]) dan ada nilai-nilai
> kode kolom C yang harus dikomputasi.
> > Berarti, ada kemungkinan bahwa isi kolom C akan selalu tetap atau
> setidaknya di-set selalu tetap, walau sumber datanya hanya menyediakan
> baris-baris nilai yang tidak butuh hitungan saja. Iya gak ?
>
> 3. kembali ke contoh formula nomor 0, yang berbunyi :
> *CC301* :
> =IF($C51="CC301";IF(AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)<>0);
> IF(RIGHT(R$1;2)="Q1";INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2);
> IF(OR(RIGHT(R$1;2)="Q2";RIGHT(R$1;2)="Q3";RIGHT(R$1;2)="Q4");IF(AND(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)<>0;ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1);"")));"");"SalahJalur")
>
> > Bisa jadi dengan mengubahnya agar menggunakan vLookUp akan menjadi lebih
> singkat, contohnya :
> =IF($C51="CC301";IFERROR(IF(RIGHT(M$1)-1;IF(N(VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+9;0))*N(VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+10;0));VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+9;0)-VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+10;0);"");IF(
> N(VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+9;0));VLOOKUP($A51&"be1=";$D$1:$AX$48000;M$2+9;0);""));"");"SalahJalur")
>
> [bisa jadi formula lain juga masih ada yang bisa disederhanakan]
>
> > Dengan mencoba formulasi di atas yang diterapkan dalam bentuk VBA, bisa
> jadi akan cukup mempersingkat proses
>
> 4. tentang 'kecuali untuk LK th fiscal yg berbeda', jika dikaitkan dengan
> beberapa baris kode terkait yang ada dalam text file berisi script Anda
> > Formulasi seperti CC301 di atas yang tadinya berdasar bunyi periode Q di
> baris 1 [seperti RIGHT(M$1], akan menjadi dipengaruhi bunyi periode Q di
> baris yang kolom C nya berisi kode berbunyi 'aa0'
> > Berarti, andaikan ada emiten (kolom A) yang tidak menyediakan data kolom
> C bernilai 'aa0' akan menggunakan bunyi Q di baris 1. Hal ini
> mengindikasikan bahwa komputasi CC301 dan sebangsanya yang lain, yang
> dipengaruhi oleh bunyi Q di 'aa0' akan memiliki nilai qtr,qtQ, qtY, dsb
> yang berasal dari baris 'aa0'.
> > Bisa jadi, formula di nomor 3 (termasuk yang di-VBA-ken) cukup
> disesuaikan untuk bagian cek bunyi Q oleh Right(M1 menjadi
> =Right( if( kalau ada aa0 di emiten tersebut, ambil bunyi q nya , M1 )
> ***ambil dari kanan dari suatu teks di :
> yang kalau ada kode aa0 di emiten itu, ambil dari baris itu di
> kolom yang sama (misal di m40)
> ,kalau tidak ada kode aa0 di emiten itu, ambil dari baris 1 di
> kolom yang sama (m1)
>
> 5. beberapa pengkondisi script yang ada, sebaiknya diperbaiki lagi. Contoh
> :
> ada blok pengkondisian IF yang berbunyi :
> If Len(qtk) = 0 Then
> 'blablablabla banyak sekali barisnya
> elseif len(qtk)>0 then
> 'blublublublu yang juga banyak sekali barisnya, dan ada
> yang berupa beda penggunaan qtk atau qtka qtkq dsb
> endif
>
> > bisa diubah menjadi seperti :
> if len(qtk)<>0 then
> 'blublublublu yang juga banyak sekali barisnya, dan ada
> yang berupa beda penggunaan qtk atau qtka qtkq dsb
> else
> 'blablablabla banyak sekali barisnya
> end
> > blok ini menghemat 1 proses perbandingan, yaitu tidak perlu cek Len(qtk)
> = 0
> > proses perbandingan dengan operator <> lebih cepat dibanding operator =
>
> 6. Script menunjukkan bahwa proses komputasi selalu dimulai dari kode
> 'aa0' sampai yang terbawah. Artinya, data memang memiliki urutan kode 'aa0'
> dst yang tetap.
> > Berarti, Select Case bisa digunakan
> > Misal :
> select case acc
> case "aa0"
> script kerjaannya
> case "ba2=","ba3=","ba6=","be1=","be3=","be5=","bg5="
> 'proses universal untuk kode-kode acc diatas
> Cells(rc, cc).Value = .Index(Dtlk, .Match(Tic &
> "a" & mid(acc,2) , Vlk, False), cc) * Kurs
> case dst
>
> end select
>
>
> btw,
> Andai yang diproses bisa 1 kolom per datangnya data baru di quarter baru
> yang masuk ke sheet input, maka dengan template berupa 1 sheet terpisah
> lalu hasilnya disalin ke sheet output yang berisi series yang pakai script
> Anda tersebut, maka seluruh proses bisa jadi lebih cepat.
>
> Apalagi kalau mau mulai mengerjakan dengan konsep cara kerja database
> mengolah data. Excel dengan fitur Get External Data dan susunan tabel yang
> baik dalam sheet Excel, bisa melakukan hal itu, meskipun ndak punya MS
> Access, MS SQL Server, Oracle, MySQL dsb sekalipun. Mestinya, dengan fitur
> get external data, untuk record yang masih sekitar 5 jutaan sih masih bisa
> sekitar beberapa menit malah bisa beberapa detik saja.
>
> Moga-moga ada manfaatnya...
>
> Wassalam,
> Kid
>
>
>
>
>
>
> 2015-06-11 17:55 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> ini kalau pakai formula biasa :
>>
>> *CC301* :
>> =IF($C51="CC301";IF(AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)<>0);
>> IF(RIGHT(R$1;2)="Q1";INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2);
>> IF(OR(RIGHT(R$1;2)="Q2";RIGHT(R$1;2)="Q3";RIGHT(R$1;2)="Q4");IF(AND(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)<>0;ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1)));INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A51&"be1=";$D$1:$D$48000;0);R$2+1);"")));"");"SalahJalur")
>>
>>
>> CC301 = menghitung pendapatan hanya 3 bulan saja .
>> CC302. CC303, CC304 -- rumus nya mirip -- yg dihitung , laba kotor ,
>> laba usaha, laba bersih hanya 3 bulan saja.
>>
>> *CC302* =
>> =IF($C52="CC302";IF(AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2));INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2)<>0);IF(RIGHT(R$1;2)="Q1";INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2);IF(OR(RIGHT(R$1;2)="Q2";RIGHT(R$1;2)="Q3";RIGHT(R$1;2)="Q4");IF(AND(INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2+1)<>0;ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2+1)));INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A52&"be3=";$D$1:$D$48000;0);R$2+1);"")));"");"SalahJalur")
>>
>>
>> *CC220* = =IF($C50="CC220";IF(
>> AND(ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2));ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2+4));ISNUMBER(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);MATCH((LEFT(R$1;4)-1)&"
>> Q4";$M$1:$AX$1;0))));IF(AND(INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2)<>0;INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2+4)<>0;INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);MATCH((LEFT(R$1;4)-1)&"
>> Q4";$M$1:$AX$1;0))<>0);INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2)-INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);R$2+4)+INDEX($M$1:$AX$48000;MATCH($A50&"bg5=";$D$1:$D$48000;0);MATCH((LEFT(R$1;4)-1)&"
>> Q4";$M$1:$AX$1;0));"");"");"Salah Jalur")
>>
>>
>> diatas 3 macam dari semuanya ada 46 macam formula -- dan bisa di pakai
>> untuk semua column atau row .
>>
>>
>> kecuali untuk LK th fiscal yg berbeda -
>>
>>
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> 2015-06-11 14:30 GMT+07:00 lkm jktind <lkmjktind@gmail.com>:
>>
>>> contoh : I56 : be1= - be1=-1Q berapa pendapatan dalam 3 bulan .
>>>
>>> Q56 = Q51 Karena kolom Q adalah Q1
>>> R56 = Q51 - S51 : kolom R adalah Q4 untuk mendapatkan data
>>> dari Okt ~ des
>>> S56 = S51 - T51 : Kolom S adalah Q3 untuk mendapatkan data
>>> dari Jul ~ sep
>>> T56 = T51 - U51 : Kolom T adalah Q2 untuk mendapatkan data
>>> dari april ~ jun
>>>
>>> Q51 = adalah pendapat dari jan ~ maret 2015
>>> R51 = adalah pendapatan dari jan ~ des 2014
>>> S51 = adalah pendapatan dari jan ~ sep 2014
>>> T51 = adalah pendapatan dari jan ~ juni 2014
>>>
>>>
>>> Salam
>>>
>>> Lukman
>>>
>>>
>>> 2015-06-11 13:43 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]
>>> <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Jadi, untuk semua rumusan di kolom i, pasti mengambil nilai (yang
>>>> ditambah kurang bagi dsb) hanya dari 1 kolom saja ?
>>>> Kalau sedang menghitung q1 tahun 2000 (yang ditambah kurang bagi dsb),
>>>> apakah hanya pakai data q1 tahun 2000 saja ?
>>>> Bagaimana dengan menghitung q2,q3,q4 ?
>>>>
>>>>
>>>>
>>>>
>>>> 2015-06-11 16:37 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Jadi kalau ada kolom i yang tidak berisi rumus (alias blank), maka
>>>>> nilainya tetap apa adanya dari sumber data ?
>>>>> : Ya
>>>>> kecuali data dalam USD -- akan di konversikan dalam IDR.
>>>>>
>>>>> Apakah semua rumus di kolom i itu pasti mengambil dari kolom yang sama
>>>>> ? kebanyakan mengunakan column yg sama
>>>>>
>>>>> bila masih mengunakan formula di dalam excel :
>>>>> baris untuk bantu untuk vertical : columns E,F,G,H (match
>>>>> vertical)
>>>>> baris untuk bantu untuk horizontal : Row 2. (match
>>>>> horizontal)
>>>>>
>>>>> jadi : = Index (data, match vertical, match horizontal)
>>>>>
>>>>> sedangkan untuk tahun fiscal yg berbeda di hitung secara manual .
>>>>>
>>>>> Kolom I : ini hanya catatan rumus nya saja . berisi No Acc yg akan
>>>>> digunakan untuk menghitung . (dari pada saya catat di file yg berbeda)
>>>>> sebagai dan dasar pembuatan formula
>>>>>
>>>>>
>>>>> Salam
>>>>>
>>>>>
>>>>> Lukman
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2015-06-11 12:10 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> Jadi kalau ada kolom i yang tidak berisi rumus (alias blank), maka
>>>>>> nilainya tetap apa adanya dari sumber data ?
>>>>>> Apakah semua rumus di kolom i itu pasti mengambil dari kolom yang
>>>>>> sama ?
>>>>>> Maksudnya, ketika rumusan kolom i akan diimplementasi di kolom q1
>>>>>> tahun x, maka akan menggunakan semua nilai di kolom tersebut juga berdasar
>>>>>> kode-kode dalam rumusan kolom i ?
>>>>>>
>>>>>>
>>>>>> 2015-06-11 14:46 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> Pak Kid.
>>>>>>>
>>>>>>> Data nya : ada yg mengunakan USD dan IDR
>>>>>>> sedangkan Harga sahamnya mengunakan IDR
>>>>>>> Tahun fiscalnya ada ada yg berbeda:
>>>>>>> Kebanyakan : dari jan ~ des , atau dari april 2014 ~ maret
>>>>>>> 2015 (jepang)
>>>>>>>
>>>>>>> No Acc ---- di kolom C
>>>>>>> Ticker --- di kolom A
>>>>>>>
>>>>>>> Data awal nya . dari aa0 sampai AT100 jumlah row nya bisa
>>>>>>> tidak sama. disini ada formula yg di letakan di dalam excel.
>>>>>>>
>>>>>>> Data Inti nya dari ba2= sampai bg5= disini . semua data
>>>>>>> di seragamkan dengan mata uang rupiah.
>>>>>>> qtr, qtrQ, qtrY, qtrA --- tahun fiscalnya dari jan ~ des row
>>>>>>> 1.
>>>>>>> qtk, qtrkQ, qttkY, qtkA --- tahun fiscalnya berbeda.
>>>>>>>
>>>>>>> qtr, qtk -- quater saat ini.
>>>>>>> qtrQ , qtkQ ---- quater sebelumnya . digunakan untuk mencari hasil
>>>>>>> 3 bulan terakhir ---- Q to Q.
>>>>>>> qtrY , qtkY ---- setahun yg lalu . digunakan untuk menghitung
>>>>>>> Y to Y
>>>>>>> qtrA, qtkA ---- untuk mencari hasil 12 bulan terakhir. contoh
>>>>>>> : = 2014 Q2 + 2013 Q4 - 2013 Q2
>>>>>>>
>>>>>>> sebuah template formula :
>>>>>>> sebenarnya ada sheet tambahan . dinamai sheet rumus . .
>>>>>>>
>>>>>>> Sub copy_formula()
>>>>>>> Application.Calculation = xlCalculationAutomatic
>>>>>>> Sheets("rumus").Range("R38:R83").Copy
>>>>>>>
>>>>>>> Selection.PasteSpecial Paste:=xlPasteFormulas,
>>>>>>> Operation:=xlNone, _
>>>>>>> SkipBlanks:=False, Transpose:=False
>>>>>>>
>>>>>>> Selection.Copy
>>>>>>> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>>>>>>> SkipBlanks _
>>>>>>> :=False, Transpose:=False
>>>>>>> Application.CutCopyMode = False
>>>>>>> With Selection.Interior
>>>>>>> .Pattern = xlNone
>>>>>>> .TintAndShade = 0
>>>>>>> .PatternTintAndShade = 0
>>>>>>> End With
>>>>>>> Selection.Replace What:="False", Replacement:="",
>>>>>>> LookAt:=xlPart, _
>>>>>>> SearchOrder:=xlByRows, MatchCase:=False,
>>>>>>> SearchFormat:=False, _
>>>>>>> ReplaceFormat:=False
>>>>>>> Selection.Replace What:="", Replacement:="", LookAt:=xlPart, _
>>>>>>> SearchOrder:=xlByRows, MatchCase:=False,
>>>>>>> SearchFormat:=False, _
>>>>>>> ReplaceFormat:=False
>>>>>>> Selection.Replace What:="#VALUE!", Replacement:="",
>>>>>>> LookAt:=xlPart, _
>>>>>>> SearchOrder:=xlByRows, MatchCase:=False,
>>>>>>> SearchFormat:=False, _
>>>>>>> ReplaceFormat:=False
>>>>>>> Selection.Replace What:="", Replacement:="", LookAt:=xlPart,
>>>>>>> SearchOrder _
>>>>>>> :=xlByRows, MatchCase:=False, SearchFormat:=False,
>>>>>>> ReplaceFormat:=False
>>>>>>>
>>>>>>> Application.Calculation = xlCalculationManual
>>>>>>>
>>>>>>> End Sub
>>>>>>>
>>>>>>> di kolom I ada rumus nya
>>>>>>>
>>>>>>> total row sekitar 47.800 baris dengan columns 30
>>>>>>>
>>>>>>> kalau di hitung dengan VBA komplit_1 waktunya sekitar 22 ~ 23
>>>>>>> menit.
>>>>>>> VBA Komplit_2 sekitar 15 ~ 16 menit.
>>>>>>>
>>>>>>> Salam
>>>>>>>
>>>>>>>
>>>>>>> Lukman
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 2015-06-11 10:06 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> Hai Lukman,
>>>>>>>>
>>>>>>>> Data awalnya seperti apa dan hasilnya seperti apa ya ?
>>>>>>>> Tampaknya tidak semua record adalah hitungan. Record hasil hitungan
>>>>>>>> pun sebenarnya akan selalu tetap per kode di kolom C, walau hitungannya
>>>>>>>> membutuhkan kode kolom C lainnya.
>>>>>>>>
>>>>>>>> Bolehkah dijabarkan kapan menggunakan :
>>>>>>>> qtr,qtrq,qtrY,qtrA ?
>>>>>>>>
>>>>>>>>> Dim qtr As String, qtrQ As String, qtrY As String, qtrA As String
>>>>>>>>> Dim qtk As String, qtkQ As String, qtkY As String, qtkA As String
>>>>>>>>>
>>>>>>>>
>>>>>>>> Sepertinya sebuah template formula yang diletakkan pada sebuah
>>>>>>>> kolom bisa mempercepat proses daripada menghitung setiap cells dengan loop
>>>>>>>> terhadap M baris x N kolom.
>>>>>>>>
>>>>>>>> Wassalam,
>>>>>>>> Kid.
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> 2015-06-08 12:00 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> lebih sering -- hanya di hitung 1 column saja .
>>>>>>>>>
>>>>>>>>> contoh file terlampir :
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Salam
>>>>>>>>>
>>>>>>>>> Lukman
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> 2015-06-07 18:58 GMT+07:00 Toby kenzo tobykenzo@yahoo.co.id
>>>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> Dear Lukman,
>>>>>>>>>>
>>>>>>>>>> Menurut saya masih bisa di simplfy programnya dgn tidak terlalu
>>>>>>>>>> banyak menggunakan "kondisi".
>>>>>>>>>> Jika memungkinkan,anda bisa menggunakan formula excel dalam suatu
>>>>>>>>>> sheet untuk melakukan kalkulasi,jadi tidak semua fungsi kalkulasi di
>>>>>>>>>> lakukan di dalam vba,sebisa mungkin tugas vba hanya memanggil resultnya
>>>>>>>>>> saja, itu akan lebih cepat.
>>>>>>>>>>
>>>>>>>>>> TerimaKasih.
>>>>>>>>>>
>>>>>>>>>> Sent from Yahoo Mail on Android
>>>>>>>>>> <http://overview.mail.yahoo.com/mobile/?.src=Android>
>>>>>>>>>>
>>>>>>>>>> ------------------------------
>>>>>>>>>> * From: * lkm jktind lkmjktind@gmail.com [belajar-excel] <
>>>>>>>>>> belajar-excel@yahoogroups.com>;
>>>>>>>>>> * To: * belajar-excel@yahoogroups com <
>>>>>>>>>> belajar-excel@yahoogroups.com>;
>>>>>>>>>> * Subject: * [belajar-excel] Do Case atau select Case [2
>>>>>>>>>> Attachments]
>>>>>>>>>> * Sent: * Sun, Jun 7, 2015 6:15:17 AM
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> Saya telah membuat VBA (seperti terlampir di email ini.)
>>>>>>>>>>
>>>>>>>>>> Tapi rasanya lambat dalam memproses data.
>>>>>>>>>>
>>>>>>>>>> bila mengunakan do case atau select case apakah akan lebih cepat
>>>>>>>>>> ?
>>>>>>>>>>
>>>>>>>>>> bagaimana cara merubahnya . bila hendak mengunakan do case.
>>>>>>>>>> /select case.
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> Salam
>>>>>>>>>>
>>>>>>>>>> Lukman
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> NB :
>>>>>>>>>> 1. Komplit_1 -- ini lambat
>>>>>>>>>> 2. Komplit_2 -- ini lebih cepat daripada yang diatas.
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>
>>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>

Fri Jun 12, 2015 10:39 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

Pak Kid.

wbkapp.sheets("myData").range("a:b,e:e,h:h").copy

untuk columns A -- ini data tanggal ---

hasilnya menjadi : 42165,AALI,22750, dst
hasil yg di kehendaki : 2015-06-12,AALI,22750, dst

yg lain sudah sesuai.

Salam

Lukman

2015-06-12 6:58 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Hai Lukman,
>
> Salah satu cara adalah dengan membuat text file sendiri dengan iofile
> seperti contoh yang ada disini
> <https://app.box.com/s/7urcxbqc33vu7sk8m9t5qnmmf7hi1ja1>, dengan yang
> dijadikan berupa udf penulisan text file ada disini
> <https://app.box.com/s/f3f2af2x7cyb9pi7a9kh>.
>
> btw,
> Jika datanya relatif lebih simpel dan menggunakan delimiter koma, fitur
> save as yang bisa menyimpan sebagai csv file bisa dimanfaatkan.
> Contoh :
> Data yang diambil adalah kolom A,B,E, dan H, ada di sheet data bernama
> 'myData' dalam workbook myApp
> File txt tujuan akan disimpan di folder yang sama dengan myApp dengan
> format 'myText_YYYYMMDD_HHnnss.txt'
>
> dim sFileTxt as string
> dim wbkApp as workbook, wbkTxt as workbook
>
> application.displayalerts=false
> set wbkapp=thisworkbook
> sfiletxt=wbkapp.path & "\myText_" & format(now,"YYYYMMDD\_HHnnss") & ".txt"
>
> 'buat workbook baru yang akan disave as txt
> set wbktxt=workbooks.add
> wbkapp.activate
>
> 'copas values
> wbkapp.sheets("myData").range("a:b,e:e,h:h").copy
> wbktxt.sheets(1).range("a1").pastespecial xlpastevalues 'kuatirnya di
> myData kolom A,B,E,H ada formulanya
>
> 'save as txt sebagai csv file lalu tutup
> wbktxt.sheets(1).saveas sfiletxt,xlcsv
> wbktxt.close false
> application.displayalerts=true
>
> Wassalam,
> Kid
>
>
>
>
>
>
>
>
>
> 2015-06-11 20:21 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Tanya
>>
>> Saya mengunakan OS win 7 64 Bit
>>
>> Excel versi 2010 64 bit.
>>
>> dioleh dengan VBA.
>>
>> sumber data di sheet1 .
>>
>> hasil data di sheet 2.
>>
>>
>> wb2.SaveAs ("F:\Bikin_OHLC&#92;hasil&#92;OHLC-" & .Text(tgl, "yyyy-mm-dd") &
>> ".txt")
>>
>> hasil nya jadi error .
>>
>> bila dengan cara manual bisa . (copy dulu file excel nya --- kemudian di
>> paste di notepad--->
>> baru di save === bisa )
>>
>>
>> Salam
>>
>>
>> Lukman
>>
>>
>>
>>
>
>
============================================================
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