Rabu, 10 Juni 2015

[belajar-excel] Digest Number 3467

15 Messages

Digest #3467
1a
Bls: [belajar-excel] Hitung Lembur Karyawan by "Tjahya Hartono" tjahyahartono
2a
Perpanjang RUmus Jadi Pendek by "Tjahya Hartono" tjahyahartono
2b
Re: Perpanjang RUmus Jadi Pendek [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
3a
Re: VBA Excel userform by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Do Case atau select Case [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
4b
Re: Do Case atau select Case by "lkm jktind" lkmjkt
4c
Re: Do Case atau select Case by "Mr. Kid" nmkid.family@ymail.com
4d
Re: Do Case atau select Case by "lkm jktind" lkmjkt
4e
Re: Do Case atau select Case by "Mr. Kid" nmkid.family@ymail.com
5b
Re: keterangan sheet yang sudah di isi by "Mr. Kid" nmkid.family@ymail.com
6a
Warning BOX by "Roy@ld"
6b
Re: Warning BOX [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Messages

Wed Jun 10, 2015 4:24 am (PDT) . Posted by:

"Tjahya Hartono" tjahyahartono

Terima kasih pak bagus atas bantuannya, sudah saya coba dan bisa
 


Pada Rabu, 10 Juni 2015 8:05, "Bagus bagus4bls@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dear Tjahya;

untuk mencari absensi:
=COUNTIFS($C$4:$C$51,$P8,$K$4:$K$51,Q$7)
Copas kebawah & kekanan

untuk mencari total lembur:
=SUMIFS($N$4:$N$51,$C$4:$C$51,$P8,$L$4:$L$51,T$7)
Copas kebawah & kekanan

Pada tanggal 10/06/15, Tjahya Hartono tjahyahartono@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:
> Dear para Be Excel,
> Saya ada beberapa pertanyaan yang mengganjal mengenai hitung lembur
> lagi,Bagaimana cara mencari Jumlah Alpha, Cuti, Ijin Tidak Masuk dalam
> rentang waktu yang disepakati  misalkan 25/5 s/d 6/6
> Bagaimana cara mencari jumlah total upah lembur dalam waktu yang disepakati
> misalkan 25/5 s/d 6/6Berikut saya lampirkan dalam file dibawah ini
> Mohon Bantuannya ya teman2
>
>
>
>
> Salam Hangat
>
>
> Tjahya
>

--
Wassalam
Bagus
#yiv9698685686 #yiv9698685686 -- #yiv9698685686ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9698685686 #yiv9698685686ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9698685686 #yiv9698685686ygrp-mkp #yiv9698685686hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9698685686 #yiv9698685686ygrp-mkp #yiv9698685686ads {margin-bottom:10px;}#yiv9698685686 #yiv9698685686ygrp-mkp .yiv9698685686ad {padding:0 0;}#yiv9698685686 #yiv9698685686ygrp-mkp .yiv9698685686ad p {margin:0;}#yiv9698685686 #yiv9698685686ygrp-mkp .yiv9698685686ad a {color:#0000ff;text-decoration:none;}#yiv9698685686 #yiv9698685686ygrp-sponsor #yiv9698685686ygrp-lc {font-family:Arial;}#yiv9698685686 #yiv9698685686ygrp-sponsor #yiv9698685686ygrp-lc #yiv9698685686hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9698685686 #yiv9698685686ygrp-sponsor #yiv9698685686ygrp-lc .yiv9698685686ad {margin-bottom:10px;padding:0 0;}#yiv9698685686 #yiv9698685686actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9698685686 #yiv9698685686activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9698685686 #yiv9698685686activity span {font-weight:700;}#yiv9698685686 #yiv9698685686activity span:first-child {text-transform:uppercase;}#yiv9698685686 #yiv9698685686activity span a {color:#5085b6;text-decoration:none;}#yiv9698685686 #yiv9698685686activity span span {color:#ff7900;}#yiv9698685686 #yiv9698685686activity span .yiv9698685686underline {text-decoration:underline;}#yiv9698685686 .yiv9698685686attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9698685686 .yiv9698685686attach div a {text-decoration:none;}#yiv9698685686 .yiv9698685686attach img {border:none;padding-right:5px;}#yiv9698685686 .yiv9698685686attach label {display:block;margin-bottom:5px;}#yiv9698685686 .yiv9698685686attach label a {text-decoration:none;}#yiv9698685686 blockquote {margin:0 0 0 4px;}#yiv9698685686 .yiv9698685686bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9698685686 .yiv9698685686bold a {text-decoration:none;}#yiv9698685686 dd.yiv9698685686last p a {font-family:Verdana;font-weight:700;}#yiv9698685686 dd.yiv9698685686last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9698685686 dd.yiv9698685686last p span.yiv9698685686yshortcuts {margin-right:0;}#yiv9698685686 div.yiv9698685686attach-table div div a {text-decoration:none;}#yiv9698685686 div.yiv9698685686attach-table {width:400px;}#yiv9698685686 div.yiv9698685686file-title a, #yiv9698685686 div.yiv9698685686file-title a:active, #yiv9698685686 div.yiv9698685686file-title a:hover, #yiv9698685686 div.yiv9698685686file-title a:visited {text-decoration:none;}#yiv9698685686 div.yiv9698685686photo-title a, #yiv9698685686 div.yiv9698685686photo-title a:active, #yiv9698685686 div.yiv9698685686photo-title a:hover, #yiv9698685686 div.yiv9698685686photo-title a:visited {text-decoration:none;}#yiv9698685686 div#yiv9698685686ygrp-mlmsg #yiv9698685686ygrp-msg p a span.yiv9698685686yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9698685686 .yiv9698685686green {color:#628c2a;}#yiv9698685686 .yiv9698685686MsoNormal {margin:0 0 0 0;}#yiv9698685686 o {font-size:0;}#yiv9698685686 #yiv9698685686photos div {float:left;width:72px;}#yiv9698685686 #yiv9698685686photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9698685686 #yiv9698685686photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9698685686 #yiv9698685686reco-category {font-size:77%;}#yiv9698685686 #yiv9698685686reco-desc {font-size:77%;}#yiv9698685686 .yiv9698685686replbq {margin:4px;}#yiv9698685686 #yiv9698685686ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9698685686 #yiv9698685686ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9698685686 #yiv9698685686ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9698685686 #yiv9698685686ygrp-mlmsg select, #yiv9698685686 input, #yiv9698685686 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9698685686 #yiv9698685686ygrp-mlmsg pre, #yiv9698685686 code {font:115% monospace;}#yiv9698685686 #yiv9698685686ygrp-mlmsg * {line-height:1.22em;}#yiv9698685686 #yiv9698685686ygrp-mlmsg #yiv9698685686logo {padding-bottom:10px;}#yiv9698685686 #yiv9698685686ygrp-msg p a {font-family:Verdana;}#yiv9698685686 #yiv9698685686ygrp-msg p#yiv9698685686attach-count span {color:#1E66AE;font-weight:700;}#yiv9698685686 #yiv9698685686ygrp-reco #yiv9698685686reco-head {color:#ff7900;font-weight:700;}#yiv9698685686 #yiv9698685686ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9698685686 #yiv9698685686ygrp-sponsor #yiv9698685686ov li a {font-size:130%;text-decoration:none;}#yiv9698685686 #yiv9698685686ygrp-sponsor #yiv9698685686ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9698685686 #yiv9698685686ygrp-sponsor #yiv9698685686ov ul {margin:0;padding:0 0 0 8px;}#yiv9698685686 #yiv9698685686ygrp-text {font-family:Georgia;}#yiv9698685686 #yiv9698685686ygrp-text p {margin:0 0 1em 0;}#yiv9698685686 #yiv9698685686ygrp-text tt {font-size:120%;}#yiv9698685686 #yiv9698685686ygrp-vital ul li:last-child {border-right:none !important;}#yiv9698685686

Wed Jun 10, 2015 11:27 am (PDT) . Posted by:

"Tjahya Hartono" tjahyahartono

Dear Be Excel,
Gimana ya merumuskan rumus yang panjang jadi pendek, seperti dibawah ini:=COUNTIFS('input absen '!$C$9:$C$2500,B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$4)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$5)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!D9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$6)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$7)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$8)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$9)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$10)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$11)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$12)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$14)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$15)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$16)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$17)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$18)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$13)Saya bingung, gmana mempersingkatnya, Untuk lebih jelasnya saya berikan dalam lampiran dibawah.

Salam Hangat

Tjahya 

Wed Jun 10, 2015 1:20 pm (PDT) . Posted by:

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

Hai Tjahya,

Formula di dalam file terlampir ada yang menggunakan SumIFs dan ada yang
menggunakan CountIFs.

Regard,
Kid

2015-06-10 23:48 GMT+10:00 Tjahya Hartono tjahyahartono@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Be Excel,
>
> Gimana ya merumuskan rumus yang panjang jadi pendek, seperti dibawah ini:
> =COUNTIFS(&#39;input absen '!$C$9:$C$2500,B7,'input absen
> '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen
> '!$E$9:$E$2500,$H$4)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar
> gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen
> '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$5)+COUNTIFS('input
> absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen
> '!$D$9:$D$2500,">="&$C$3,'input absen '!D9:$D$2500,"<="&$D$3,'input absen
> '!$E$9:$E$2500,$H$6)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar
> gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen
> '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$7)+COUNTIFS('input
> absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen
> '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen
> '!$E$9:$E$2500,$H$8)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar
> gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen
> '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$9)+COUNTIFS('input
> absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen
> '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen
> '!$E$9:$E$2500,$H$10)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar
> gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen
> '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$11)+COUNTIFS('input
> absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen
> '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen
> '!$E$9:$E$2500,$H$12)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar
> gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen
> '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$14)+COUNTIFS('input
> absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen
> '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen
> '!$E$9:$E$2500,$H$15)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar
> gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen
> '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$16)+COUNTIFS('input
> absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen
> '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen
> '!$E$9:$E$2500,$H$17)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar
> gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen
> '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$18)+COUNTIFS('input
> absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen
> '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen
> '!$E$9:$E$2500,$H$13)
> Saya bingung, gmana mempersingkatnya,
> Untuk lebih jelasnya saya berikan dalam lampiran dibawah.
>
>
>
>
> Salam Hangat
>
>
>
> Tjahya
>
>
>
>

Wed Jun 10, 2015 5:06 pm (PDT) . Posted by:

"Tjahya Hartono" tjahyahartono

Terima kasih Mr Kid Sangat membantu, 


Pada Kamis, 11 Juni 2015 3:21, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Hai Tjahya,

Formula di dalam file terlampir ada yang menggunakan SumIFs dan ada yang menggunakan CountIFs.

Regard,
Kid

2015-06-10 23:48 GMT+10:00 Tjahya Hartono tjahyahartono@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

  Dear Be Excel,
Gimana ya merumuskan rumus yang panjang jadi pendek, seperti dibawah ini:=COUNTIFS('input absen '!$C$9:$C$2500,B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$4)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$5)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!D9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$6)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$7)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$8)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$9)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$10)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$11)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$12)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$14)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$15)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$16)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$17)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$18)+COUNTIFS('input absen '!$C$9:$C$2500,&#39;Daftar gaji'!B7,'input absen '!$D$9:$D$2500,">="&$C$3,'input absen '!$D$9:$D$2500,"<="&$D$3,'input absen '!$E$9:$E$2500,$H$13)Saya bingung, gmana mempersingkatnya, Untuk lebih jelasnya saya berikan dalam lampiran dibawah.

Salam Hangat

Tjahya 


#yiv6248206978 #yiv6248206978 -- #yiv6248206978ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6248206978 #yiv6248206978ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6248206978 #yiv6248206978ygrp-mkp #yiv6248206978hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6248206978 #yiv6248206978ygrp-mkp #yiv6248206978ads {margin-bottom:10px;}#yiv6248206978 #yiv6248206978ygrp-mkp .yiv6248206978ad {padding:0 0;}#yiv6248206978 #yiv6248206978ygrp-mkp .yiv6248206978ad p {margin:0;}#yiv6248206978 #yiv6248206978ygrp-mkp .yiv6248206978ad a {color:#0000ff;text-decoration:none;}#yiv6248206978 #yiv6248206978ygrp-sponsor #yiv6248206978ygrp-lc {font-family:Arial;}#yiv6248206978 #yiv6248206978ygrp-sponsor #yiv6248206978ygrp-lc #yiv6248206978hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6248206978 #yiv6248206978ygrp-sponsor #yiv6248206978ygrp-lc .yiv6248206978ad {margin-bottom:10px;padding:0 0;}#yiv6248206978 #yiv6248206978actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6248206978 #yiv6248206978activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6248206978 #yiv6248206978activity span {font-weight:700;}#yiv6248206978 #yiv6248206978activity span:first-child {text-transform:uppercase;}#yiv6248206978 #yiv6248206978activity span a {color:#5085b6;text-decoration:none;}#yiv6248206978 #yiv6248206978activity span span {color:#ff7900;}#yiv6248206978 #yiv6248206978activity span .yiv6248206978underline {text-decoration:underline;}#yiv6248206978 .yiv6248206978attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6248206978 .yiv6248206978attach div a {text-decoration:none;}#yiv6248206978 .yiv6248206978attach img {border:none;padding-right:5px;}#yiv6248206978 .yiv6248206978attach label {display:block;margin-bottom:5px;}#yiv6248206978 .yiv6248206978attach label a {text-decoration:none;}#yiv6248206978 blockquote {margin:0 0 0 4px;}#yiv6248206978 .yiv6248206978bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6248206978 .yiv6248206978bold a {text-decoration:none;}#yiv6248206978 dd.yiv6248206978last p a {font-family:Verdana;font-weight:700;}#yiv6248206978 dd.yiv6248206978last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6248206978 dd.yiv6248206978last p span.yiv6248206978yshortcuts {margin-right:0;}#yiv6248206978 div.yiv6248206978attach-table div div a {text-decoration:none;}#yiv6248206978 div.yiv6248206978attach-table {width:400px;}#yiv6248206978 div.yiv6248206978file-title a, #yiv6248206978 div.yiv6248206978file-title a:active, #yiv6248206978 div.yiv6248206978file-title a:hover, #yiv6248206978 div.yiv6248206978file-title a:visited {text-decoration:none;}#yiv6248206978 div.yiv6248206978photo-title a, #yiv6248206978 div.yiv6248206978photo-title a:active, #yiv6248206978 div.yiv6248206978photo-title a:hover, #yiv6248206978 div.yiv6248206978photo-title a:visited {text-decoration:none;}#yiv6248206978 div#yiv6248206978ygrp-mlmsg #yiv6248206978ygrp-msg p a span.yiv6248206978yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6248206978 .yiv6248206978green {color:#628c2a;}#yiv6248206978 .yiv6248206978MsoNormal {margin:0 0 0 0;}#yiv6248206978 o {font-size:0;}#yiv6248206978 #yiv6248206978photos div {float:left;width:72px;}#yiv6248206978 #yiv6248206978photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6248206978 #yiv6248206978photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6248206978 #yiv6248206978reco-category {font-size:77%;}#yiv6248206978 #yiv6248206978reco-desc {font-size:77%;}#yiv6248206978 .yiv6248206978replbq {margin:4px;}#yiv6248206978 #yiv6248206978ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6248206978 #yiv6248206978ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6248206978 #yiv6248206978ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6248206978 #yiv6248206978ygrp-mlmsg select, #yiv6248206978 input, #yiv6248206978 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6248206978 #yiv6248206978ygrp-mlmsg pre, #yiv6248206978 code {font:115% monospace;}#yiv6248206978 #yiv6248206978ygrp-mlmsg * {line-height:1.22em;}#yiv6248206978 #yiv6248206978ygrp-mlmsg #yiv6248206978logo {padding-bottom:10px;}#yiv6248206978 #yiv6248206978ygrp-msg p a {font-family:Verdana;}#yiv6248206978 #yiv6248206978ygrp-msg p#yiv6248206978attach-count span {color:#1E66AE;font-weight:700;}#yiv6248206978 #yiv6248206978ygrp-reco #yiv6248206978reco-head {color:#ff7900;font-weight:700;}#yiv6248206978 #yiv6248206978ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6248206978 #yiv6248206978ygrp-sponsor #yiv6248206978ov li a {font-size:130%;text-decoration:none;}#yiv6248206978 #yiv6248206978ygrp-sponsor #yiv6248206978ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6248206978 #yiv6248206978ygrp-sponsor #yiv6248206978ov ul {margin:0;padding:0 0 0 8px;}#yiv6248206978 #yiv6248206978ygrp-text {font-family:Georgia;}#yiv6248206978 #yiv6248206978ygrp-text p {margin:0 0 1em 0;}#yiv6248206978 #yiv6248206978ygrp-text tt {font-size:120%;}#yiv6248206978 #yiv6248206978ygrp-vital ul li:last-child {border-right:none !important;}#yiv6248206978

Wed Jun 10, 2015 1:24 pm (PDT) . Posted by:

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

Hai Nisa,

Aktifkan worksheet sebelum proses keluar.

sheets("nama sheet yang akan ditampilkan").activate
unload nama_object_userform

Wassalam,
Kid

2015-06-10 13:39 GMT+10:00 Nisa Khairunnisa punyanisa16@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Mau tanya lagi, kalau kita buat button exit didalam userform supaya keluar
> yg dituju worksheet gmn ya ??
>
> Dikirim dari Yahoo Mail pada Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
> ------------------------------
> *Dari*:"Aliif Akbar aliif.akbar@yahoo.co.id [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Tanggal*:Rab, 10 Jun 2015 pada 7:24
> *Judul*:RE: [belajar-excel] VBA Excel userform
>
>
>
> Selamat pagi,
> Berarti, userform lain ditutup dulu sebelum form lain muncul bu,
>
> Misal Userform1 dan userform2,
> Pada userform1 ada button1,
> Saat button1 diklick maka akan muncul userform2, seperti itukah?
> Maka di button action klik sebelum ada perintah menampilkan userform2,
> ditambah perintah untuk menutup userform1,
>
> Private Sub CommandButton1_Click()
> Unload me
> Userform2.show
> End Sub
>
> Saya sudah mencoba dan berhasil
>
> Sent from Microsoft Outlook for Windows 10 Mobile
> ------------------------------
> From: Nisa Khairunnisa punyanisa16@yahoo.co.id [belajar-excel]
> Sent: ‎10/‎06/‎2015 3:09
> To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] VBA Excel userform
>
>
>
> Ada yang tau gimana caranya supaya yang muncul hanya 1 form, ketika di
> klik button menuju ke form lain. Form yg satunya otomatis tertutup.
> Terimakasih
>
> Dikirim dari Yahoo Mail pada Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>

Wed Jun 10, 2015 8:06 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.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.
>>
>>
>>
>>
>>
>>
>>
>
>

Wed Jun 10, 2015 9:59 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

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

Wed Jun 10, 2015 10:10 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.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.
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>
>
>

Wed Jun 10, 2015 11:37 pm (PDT) . Posted by:

"lkm jktind" lkmjkt

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

Wed Jun 10, 2015 11:43 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.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.
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>

Wed Jun 10, 2015 10:21 pm (PDT) . Posted by:

alkenanurani

Mister programnya belum sesuai dgn keinginan saya

ketika saya menuliskan kode ini pada sebuah userform


Private Sub CommandButton1_Click()
Dim myCode As String
ProsesHookInputBox "*"
myCode = InputBox("Please Insert Your Password to Edit This Worksheet..", "Insert Password")
ProsesHookInputBox
If StrPtr(myCode) = 0 Then 'Klik cancel atau close dialog (do nothing)
ElseIf LenB(myCode) = 0 Then 'Not Fill -> press OK (do nothing)
ElseIf myCode = "123" Then 'Fill 123 -> OK
MsgBox "Good...Your Password is Match", vbInformation, "Your Password"
'seharusnya prosedur Workbook_SheetChange Active ketika password yang diketikan bernilai True, prosedur nya
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Target As String
Target.Font.Color = vbBlue
End Sub
Else 'user mengisi suatu teks yang bukan berbunyi 123 lalu menekan OK
MsgBox "Sorry...Your Password is not Match !!!" & vbCrLf & _
"You Can't Edit This Worksheet", vbCritical, "Your Password"
End If
End Sub


Dia akan kembali normal ketika Workbook di open kembali.




Sub Workbook_Open()
UserForm1.Show
Call Normal
End Sub


Normal merupakan module1


Private Sub Normal()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
sht.Cells.Font.ColorIndex = xlAutomatic
Next sht
End Sub



Masalahnya:

Prosedur normal sudah berfungsi tetapi prosedur Workbook_SheetChange belum berfungsi sesuai harapan saya yaitu (Workbook_SheetChange aktif ketika password pada input box bernilai True)



Mohon bantuannya mister







Wed Jun 10, 2015 10:58 pm (PDT) . Posted by:

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

Hai Nurani,

Coba pelajari lagi tentang apa itu prosedur dan macamnya prosedur. Terutama
tentang apa itu prosedur events. Salah satu coretan tentang events ada
disini
<http://b-excel.blogspot.com/2013/08/belajarvba-007-property-methods-events.html>,
terutama tentang events bagi worksheet maupun workbook. Beda event milik
worksheet dan event milik workbook.

Tombol CommandButton nya tidak melakukan pengubahan nilai apapun dalam
cells di suatu worksheet. Jadi, event change milik worksheet manapun, baik
event yang ditangkap oleh workbook atau worksheet.

Jadi, pertanyaan Anda sebenarnya adalah :
"*Bagaimana cara mengubah isi suatu cells dalam suatu worksheet agar
prosedur event change milik workbook* (workbook_sheetchange) bisa
dijalankan oleh VBA ketika password pada input box bernilai True ?"
> Jawabnya :
'setelah baris kode Msgbox "good blabla.... diisi dengan baris yang
mengubah isi suatu cells dalam worksheet.
'contoh, mengubah isi cells di range A1 di worksheet bernama 'Kid' ,
maka setelah baris kode Msgbox blablabla tulis baris kode berikut :
sheets("Kid").range("a1").value = now

> Dengan adanya pengubahan nilai di sheet bernama Kid di range A1 dengan
waktu terkini tersebut, maka event sheetchange milik workbook akan bekerja,
dan range A1 di sheet 'Kid' akan diwarnai biru oleh baris kode :
Target.Font.Color = vbBlue

Saya yakin, penjelasan di atas bukanlah yang Anda harapkan.
tapi, memang demikian jawabannya, berdasar apa yang Anda utarakan.

Wassalam,
Kid

On Thu, Jun 11, 2015 at 3:15 PM, alkenanurani@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Mister programnya belum sesuai dgn keinginan saya
>
> ketika saya menuliskan kode ini pada sebuah userform
>
> Private Sub CommandButton1_Click()
> Dim myCode As String
> ProsesHookInputBox "*"
> myCode = InputBox("Please Insert Your Password to Edit This Worksheet..",
> "Insert Password")
> ProsesHookInputBox
> If StrPtr(myCode) = 0 Then 'Klik cancel atau close dialog (do nothing)
> ElseIf LenB(myCode) = 0 Then 'Not Fill -> press OK (do nothing)
> ElseIf myCode = "123" Then 'Fill 123 -> OK
> MsgBox "Good...Your Password is Match", vbInformation, "Your Password"
> 'seharusnya prosedur Workbook_SheetChange Active ketika password yang
> diketikan bernilai True, prosedur nya
> Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
> Dim Target As String
> Target.Font.Color = vbBlue
> End Sub
> Else 'user mengisi suatu teks yang bukan berbunyi 123 lalu menekan OK
> MsgBox "Sorry...Your Password is not Match !!!" & vbCrLf & _
> "You Can't Edit This Worksheet", vbCritical, "Your Password"
> End If
> End Sub
>
> Dia akan kembali normal ketika Workbook di open kembali.
>
>
> Sub Workbook_Open()
> UserForm1.Show
> Call Normal
> End Sub
>
> Normal merupakan module1
>
> Private Sub Normal()
> Dim sht As Worksheet
> For Each sht In ThisWorkbook.Worksheets
> sht.Cells.Font.ColorIndex = xlAutomatic
> Next sht
> End Sub
>
> Masalahnya:
> Prosedur normal sudah berfungsi tetapi prosedur Workbook_SheetChange belum
> berfungsi sesuai harapan saya yaitu (Workbook_SheetChange aktif ketika
> password pada input box bernilai True)
>
> Mohon bantuannya mister
>
>
>
>
>

Wed Jun 10, 2015 11:31 pm (PDT) . Posted by:

"Roy@ld"

Yth :
Para Suhu Excel

mohon bantuannya terkait kesulitan saya sebagaimana dibawah ini :

1. 47 + 4 = 51 (jika dari hasil penjumlahan diatas 50 maka akan
muncul Warning Box dengan keterangan Umur Melebihi ketentuan)

2. 45 + 2 = 47 (jika dari hasil penjumlahan dibawah 50 maka akan
muncul Warning Box dengan keterangan Silakan Dilanjutkan)

kalau bisa tanpa menggunakan makro
namun jika harus menggunakan makro tidak masalah, selama dibantu step by
step makronya

untuk lebih jelasnya seperti file terlampir

Terima kasih

Wed Jun 10, 2015 11:46 pm (PDT) . Posted by:

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

Hai Roy,

File terlampir dengan fitur Data Validation.
Syarat dan ketentuan berlaku.

Jika isian sesuai ketentuan tapi tetap menampilkan warning box, malah
jadinya mengganggu yang sedang entry data karena harus klik tombol (beralih
dari fokus peng-entry-an data ke warning box untuk mencari tombol OK).

imho,
warning box muncul saat entry yang tidak sesuai ketentuan saja.
Pernah ketemukah bahwa pengisian suatu form dengan komputer kalau benar
mengisinya muncul suatu kotak pesan ?

Wassalam,
Kid

2015-06-11 16:16 GMT+10:00 'Roy@ld' talengong@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Yth :
> Para Suhu Excel
>
> mohon bantuannya terkait kesulitan saya sebagaimana dibawah ini :
>
>
> 1. 47 + 4 = 51 (jika dari hasil penjumlahan diatas 50 maka akan
> muncul Warning Box dengan keterangan Umur Melebihi ketentuan)
>
> 2. 45 + 2 = 47 (jika dari hasil penjumlahan dibawah 50 maka akan
> muncul Warning Box dengan keterangan Silakan Dilanjutkan)
>
>
> kalau bisa tanpa menggunakan makro
> namun jika harus menggunakan makro tidak masalah, selama dibantu step by
> step makronya
>
> untuk lebih jelasnya seperti file terlampir
>
> Terima kasih
>
>
>

Wed Jun 10, 2015 11:47 pm (PDT) . Posted by:

"Tio Adi Bayu Adjie"

Dear BeExcel.
Mau Tanya. Coding untuk printout ada tapi adakah coding untuk secara otomatis print PDF dan langsung save ke folder tertentu ?

Terima kasih.

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