15 Messages
Digest #3682
Messages
Sun Dec 13, 2015 4:56 pm (PST) . Posted by:
"Eko Noviyanto" nopenk77
Mas Wira,
Terimakasih atas petunjuknya, kemudian kalau penjumlahan tersebut dikelompokan dalam kelompok dept.lainnya, bagaimana formulanya ?File terlampir.
Terimakasih atas perhatian dan bantuannya.
Salam, Nopenk
Pada Minggu, 13 Desember 2015 11:21, "WIRAnata Kemala kwiranata.milis@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
cell C16 formula : =SUMIF($B$3:$B$12,B16,$C$3:$C$12)
copy formula down.
semoga membantu :p
| | This email has been sent from a virus-free computer protected by Avast.
www.avast.com |
2015-12-13 10:18 GMT+07:00 Eko Noviyanto eko_ny77@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Master,
Mohon bantuannya memberikan formula untuk penjumlaha per departemen dalam lampiran email ini.
Atas perhatian dan bantuannya saya ucapkan terima kasih.
Salam,Nopenk
--
regards, Wira 鄧又銘
on desktop FireFox
#yiv6287624659 -- #yiv6287624659ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6287624659 #yiv6287624659ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6287624659 #yiv6287624659ygrp-mkp #yiv6287624659hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6287624659 #yiv6287624659ygrp-mkp #yiv6287624659ads {margin-bottom:10px;}#yiv6287624659 #yiv6287624659ygrp-mkp .yiv6287624659ad {padding:0 0;}#yiv6287624659 #yiv6287624659ygrp-mkp .yiv6287624659ad p {margin:0;}#yiv6287624659 #yiv6287624659ygrp-mkp .yiv6287624659ad a {color:#0000ff;text-decoration:none;}#yiv6287624659 #yiv6287624659ygrp-sponsor #yiv6287624659ygrp-lc {font-family:Arial;}#yiv6287624659 #yiv6287624659ygrp-sponsor #yiv6287624659ygrp-lc #yiv6287624659hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6287624659 #yiv6287624659ygrp-sponsor #yiv6287624659ygrp-lc .yiv6287624659ad {margin-bottom:10px;padding:0 0;}#yiv6287624659 #yiv6287624659actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6287624659 #yiv6287624659activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6287624659 #yiv6287624659activity span {font-weight:700;}#yiv6287624659 #yiv6287624659activity span:first-child {text-transform:uppercase;}#yiv6287624659 #yiv6287624659activity span a {color:#5085b6;text-decoration:none;}#yiv6287624659 #yiv6287624659activity span span {color:#ff7900;}#yiv6287624659 #yiv6287624659activity span .yiv6287624659underline {text-decoration:underline;}#yiv6287624659 .yiv6287624659attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6287624659 .yiv6287624659attach div a {text-decoration:none;}#yiv6287624659 .yiv6287624659attach img {border:none;padding-right:5px;}#yiv6287624659 .yiv6287624659attach label {display:block;margin-bottom:5px;}#yiv6287624659 .yiv6287624659attach label a {text-decoration:none;}#yiv6287624659 blockquote {margin:0 0 0 4px;}#yiv6287624659 .yiv6287624659bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6287624659 .yiv6287624659bold a {text-decoration:none;}#yiv6287624659 dd.yiv6287624659last p a {font-family:Verdana;font-weight:700;}#yiv6287624659 dd.yiv6287624659last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6287624659 dd.yiv6287624659last p span.yiv6287624659yshortcuts {margin-right:0;}#yiv6287624659 div.yiv6287624659attach-table div div a {text-decoration:none;}#yiv6287624659 div.yiv6287624659attach-table {width:400px;}#yiv6287624659 div.yiv6287624659file-title a, #yiv6287624659 div.yiv6287624659file-title a:active, #yiv6287624659 div.yiv6287624659file-title a:hover, #yiv6287624659 div.yiv6287624659file-title a:visited {text-decoration:none;}#yiv6287624659 div.yiv6287624659photo-title a, #yiv6287624659 div.yiv6287624659photo-title a:active, #yiv6287624659 div.yiv6287624659photo-title a:hover, #yiv6287624659 div.yiv6287624659photo-title a:visited {text-decoration:none;}#yiv6287624659 div#yiv6287624659ygrp-mlmsg #yiv6287624659ygrp-msg p a span.yiv6287624659yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6287624659 .yiv6287624659green {color:#628c2a;}#yiv6287624659 .yiv6287624659MsoNormal {margin:0 0 0 0;}#yiv6287624659 o {font-size:0;}#yiv6287624659 #yiv6287624659photos div {float:left;width:72px;}#yiv6287624659 #yiv6287624659photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6287624659 #yiv6287624659photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6287624659 #yiv6287624659reco-category {font-size:77%;}#yiv6287624659 #yiv6287624659reco-desc {font-size:77%;}#yiv6287624659 .yiv6287624659replbq {margin:4px;}#yiv6287624659 #yiv6287624659ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6287624659 #yiv6287624659ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6287624659 #yiv6287624659ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6287624659 #yiv6287624659ygrp-mlmsg select, #yiv6287624659 input, #yiv6287624659 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6287624659 #yiv6287624659ygrp-mlmsg pre, #yiv6287624659 code {font:115% monospace;}#yiv6287624659 #yiv6287624659ygrp-mlmsg * {line-height:1.22em;}#yiv6287624659 #yiv6287624659ygrp-mlmsg #yiv6287624659logo {padding-bottom:10px;}#yiv6287624659 #yiv6287624659ygrp-msg p a {font-family:Verdana;}#yiv6287624659 #yiv6287624659ygrp-msg p#yiv6287624659attach-count span {color:#1E66AE;font-weight:700;}#yiv6287624659 #yiv6287624659ygrp-reco #yiv6287624659reco-head {color:#ff7900;font-weight:700;}#yiv6287624659 #yiv6287624659ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6287624659 #yiv6287624659ygrp-sponsor #yiv6287624659ov li a {font-size:130%;text-decoration:none;}#yiv6287624659 #yiv6287624659ygrp-sponsor #yiv6287624659ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6287624659 #yiv6287624659ygrp-sponsor #yiv6287624659ov ul {margin:0;padding:0 0 0 8px;}#yiv6287624659 #yiv6287624659ygrp-text {font-family:Georgia;}#yiv6287624659 #yiv6287624659ygrp-text p {margin:0 0 1em 0;}#yiv6287624659 #yiv6287624659ygrp-text tt {font-size:120%;}#yiv6287624659 #yiv6287624659ygrp-vital ul li:last-child {border-right:none !important;}#yiv6287624659
Terimakasih atas petunjuknya, kemudian kalau penjumlahan tersebut dikelompokan dalam kelompok dept.lainnya, bagaimana formulanya ?File terlampir.
Terimakasih atas perhatian dan bantuannya.
Salam, Nopenk
Pada Minggu, 13 Desember 2015 11:21, "WIRAnata Kemala kwiranata.milis@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
cell C16 formula : =SUMIF($B$3:$B$12,B16,$C$3:$C$12)
copy formula down.
semoga membantu :p
| | This email has been sent from a virus-free computer protected by Avast.
www.avast.com |
2015-12-13 10:18 GMT+07:00 Eko Noviyanto eko_ny77@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Master,
Mohon bantuannya memberikan formula untuk penjumlaha per departemen dalam lampiran email ini.
Atas perhatian dan bantuannya saya ucapkan terima kasih.
Salam,Nopenk
--
regards, Wira 鄧又銘
on desktop FireFox
#yiv6287624659 -- #yiv6287624659ygrp-
Sun Dec 13, 2015 6:53 pm (PST) . Posted by:
"odong nando"
penjumlahan dengan banyak kriteria dapat dilakukan oleh SUMIFS, SUMPRODUCT atau dengan SUM yang di formulasikan menjadi array formula.
contoh pada kasus anda :
= SUMIFS ( _range yang akan di jumlah_ ; _kriteria range 1_ ; _kriteria 1_ ; _kriteria range 2_ ; _kriteria 2_ )
ket : kriteria range 1 & 2 sama-sama di kolom"DEPT.", agar tidak mengulang kriteria "DEPT.PROD, MKT & GA", maka comparison operator tidak sama dengan "<>" bisa dimanfaatkan dalam kasus anda, kriteria 1 "<>ACC", kriteria 2 "<>FIN".
bila regional seting kompi setempat english maka ubah karakter titik koma ";" menjadi koma",".
br,
odong nando
Pada Senin, 14 Desember 2015 7:56, "Eko Noviyanto eko_ny77@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Mas Wira,
Terimakasih atas petunjuknya, kemudian kalau penjumlahan tersebut dikelompokan dalam kelompok dept.lainnya, bagaimana formulanya ?File terlampir.
Terimakasih atas perhatian dan bantuannya.
Salam, Nopenk
Pada Minggu, 13 Desember 2015 11:21, "WIRAnata Kemala kwiranata.milis@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
cell C16 formula : =SUMIF($B$3:$B$12,B16,$C$3:$C$12)
copy formula down.
semoga membantu :p
| | This email has been sent from a virus-free computer protected by Avast.
www.avast.com |
2015-12-13 10:18 GMT+07:00 Eko Noviyanto eko_ny77@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Master,
Mohon bantuannya memberikan formula untuk penjumlaha per departemen dalam lampiran email ini.
Atas perhatian dan bantuannya saya ucapkan terima kasih.
Salam,Nopenk
--
regards, Wira 鄧又銘
on desktop FireFox
#yiv9030854667 #yiv9030854667 -- #yiv9030854667ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9030854667 #yiv9030854667ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9030854667 #yiv9030854667ygrp-mkp #yiv9030854667hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9030854667 #yiv9030854667ygrp-mkp #yiv9030854667ads {margin-bottom:10px;}#yiv9030854667 #yiv9030854667ygrp-mkp .yiv9030854667ad {padding:0 0;}#yiv9030854667 #yiv9030854667ygrp-mkp .yiv9030854667ad p {margin:0;}#yiv9030854667 #yiv9030854667ygrp-mkp .yiv9030854667ad a {color:#0000ff;text-decoration:none;}#yiv9030854667 #yiv9030854667ygrp-sponsor #yiv9030854667ygrp-lc {font-family:Arial;}#yiv9030854667 #yiv9030854667ygrp-sponsor #yiv9030854667ygrp-lc #yiv9030854667hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9030854667 #yiv9030854667ygrp-sponsor #yiv9030854667ygrp-lc .yiv9030854667ad {margin-bottom:10px;padding:0 0;}#yiv9030854667 #yiv9030854667actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9030854667 #yiv9030854667activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9030854667 #yiv9030854667activity span {font-weight:700;}#yiv9030854667 #yiv9030854667activity span:first-child {text-transform:uppercase;}#yiv9030854667 #yiv9030854667activity span a {color:#5085b6;text-decoration:none;}#yiv9030854667 #yiv9030854667activity span span {color:#ff7900;}#yiv9030854667 #yiv9030854667activity span .yiv9030854667underline {text-decoration:underline;}#yiv9030854667 .yiv9030854667attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9030854667 .yiv9030854667attach div a {text-decoration:none;}#yiv9030854667 .yiv9030854667attach img {border:none;padding-right:5px;}#yiv9030854667 .yiv9030854667attach label {display:block;margin-bottom:5px;}#yiv9030854667 .yiv9030854667attach label a {text-decoration:none;}#yiv9030854667 blockquote {margin:0 0 0 4px;}#yiv9030854667 .yiv9030854667bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9030854667 .yiv9030854667bold a {text-decoration:none;}#yiv9030854667 dd.yiv9030854667last p a {font-family:Verdana;font-weight:700;}#yiv9030854667 dd.yiv9030854667last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9030854667 dd.yiv9030854667last p span.yiv9030854667yshortcuts {margin-right:0;}#yiv9030854667 div.yiv9030854667attach-table div div a {text-decoration:none;}#yiv9030854667 div.yiv9030854667attach-table {width:400px;}#yiv9030854667 div.yiv9030854667file-title a, #yiv9030854667 div.yiv9030854667file-title a:active, #yiv9030854667 div.yiv9030854667file-title a:hover, #yiv9030854667 div.yiv9030854667file-title a:visited {text-decoration:none;}#yiv9030854667 div.yiv9030854667photo-title a, #yiv9030854667 div.yiv9030854667photo-title a:active, #yiv9030854667 div.yiv9030854667photo-title a:hover, #yiv9030854667 div.yiv9030854667photo-title a:visited {text-decoration:none;}#yiv9030854667 div#yiv9030854667ygrp-mlmsg #yiv9030854667ygrp-msg p a span.yiv9030854667yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9030854667 .yiv9030854667green {color:#628c2a;}#yiv9030854667 .yiv9030854667MsoNormal {margin:0 0 0 0;}#yiv9030854667 o {font-size:0;}#yiv9030854667 #yiv9030854667photos div {float:left;width:72px;}#yiv9030854667 #yiv9030854667photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9030854667 #yiv9030854667photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9030854667 #yiv9030854667reco-category {font-size:77%;}#yiv9030854667 #yiv9030854667reco-desc {font-size:77%;}#yiv9030854667 .yiv9030854667replbq {margin:4px;}#yiv9030854667 #yiv9030854667ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9030854667 #yiv9030854667ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9030854667 #yiv9030854667ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9030854667 #yiv9030854667ygrp-mlmsg select, #yiv9030854667 input, #yiv9030854667 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9030854667 #yiv9030854667ygrp-mlmsg pre, #yiv9030854667 code {font:115% monospace;}#yiv9030854667 #yiv9030854667ygrp-mlmsg * {line-height:1.22em;}#yiv9030854667 #yiv9030854667ygrp-mlmsg #yiv9030854667logo {padding-bottom:10px;}#yiv9030854667 #yiv9030854667ygrp-msg p a {font-family:Verdana;}#yiv9030854667 #yiv9030854667ygrp-msg p#yiv9030854667attach-count span {color:#1E66AE;font-weight:700;}#yiv9030854667 #yiv9030854667ygrp-reco #yiv9030854667reco-head {color:#ff7900;font-weight:700;}#yiv9030854667 #yiv9030854667ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9030854667 #yiv9030854667ygrp-sponsor #yiv9030854667ov li a {font-size:130%;text-decoration:none;}#yiv9030854667 #yiv9030854667ygrp-sponsor #yiv9030854667ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9030854667 #yiv9030854667ygrp-sponsor #yiv9030854667ov ul {margin:0;padding:0 0 0 8px;}#yiv9030854667 #yiv9030854667ygrp-text {font-family:Georgia;}#yiv9030854667 #yiv9030854667ygrp-text p {margin:0 0 1em 0;}#yiv9030854667 #yiv9030854667ygrp-text tt {font-size:120%;}#yiv9030854667 #yiv9030854667ygrp-vital ul li:last-child {border-right:none !important;}#yiv9030854667
contoh pada kasus anda :
= SUMIFS ( _range yang akan di jumlah_ ; _kriteria range 1_ ; _kriteria 1_ ; _kriteria range 2_ ; _kriteria 2_ )
ket : kriteria range 1 & 2 sama-sama di kolom"DEPT.", agar tidak mengulang kriteria "DEPT.PROD, MKT & GA", maka comparison operator tidak sama dengan "<>" bisa dimanfaatkan dalam kasus anda, kriteria 1 "<>ACC", kriteria 2 "<>FIN".
bila regional seting kompi setempat english maka ubah karakter titik koma ";" menjadi koma",".
br,
odong nando
Pada Senin, 14 Desember 2015 7:56, "Eko Noviyanto eko_ny77@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Mas Wira,
Terimakasih atas petunjuknya, kemudian kalau penjumlahan tersebut dikelompokan dalam kelompok dept.lainnya, bagaimana formulanya ?File terlampir.
Terimakasih atas perhatian dan bantuannya.
Salam, Nopenk
Pada Minggu, 13 Desember 2015 11:21, "WIRAnata Kemala kwiranata.milis@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
cell C16 formula : =SUMIF($B$3:$B$12,B16,$C$3:$C$12)
copy formula down.
semoga membantu :p
| | This email has been sent from a virus-free computer protected by Avast.
www.avast.com |
2015-12-13 10:18 GMT+07:00 Eko Noviyanto eko_ny77@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Master,
Mohon bantuannya memberikan formula untuk penjumlaha per departemen dalam lampiran email ini.
Atas perhatian dan bantuannya saya ucapkan terima kasih.
Salam,Nopenk
--
regards, Wira 鄧又銘
on desktop FireFox
#yiv9030854667 #yiv9030854667 -- #yiv9030854667ygrp-
Sun Dec 13, 2015 7:02 pm (PST) . Posted by:
"Nang Agus"
Dear MIB,
Coba gunakan conditional formating seperti pesang bang Nando,
ikuti langkah-langkah sbb:
1. Blok C5:E5
2. Klik ribbon Home, Icon Conditional Formating paa Tab Styles.
3. Klik New Rules
4. Ganti minimum colour dan maksimum colour
Klik OK
5. untuk yang lainnya caranya sama.
silahkan dicoba dahulu.
salam
TholeAgus
2015-12-13 6:27 GMT+07:00 ivan budiman ivanstats@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Para Master,
> Mau minta pertolongannya ni....
> Case terlampir
>
> Yang saya inginkan adalah sbb:
>
> 1. Ada 3 benchmark brand, dimana saya ingin angka performance dari
> masing-masing brand tersebut diberikan pewarnaan yang dapat memudahkan
> pembedaan performance dimasing-masing brand di parameter tertentu
> 2. Pada masing-masing parameter memiliki kriteria tertentu dimana ada
> yang semakin besar performance semakin baik dan ada juga yang sebaliknya
> 3. Pembedaan dilakukan dengan warna hijau (untuk performa terbaik),
> kuning (performa diantara terbaik dan terburuk), merah (performa terburuk)
> 4. Jika ada yang sama performance nya di antara 2 brand atau lebih,
> maka warnanya sama.. Misal 2 brand memiliki angka sama dan lebih baik
> performancenya dari brand yang lainnya, maka 2 brand tersebut ditandai
> warna hijau
>
>
> Pertanyaanya: Bagaimana melakukan automasi untuk hal tersebut agar tidak
> manual ya?
>
> Terlampir excel untuk casenya ya.
>
> Terima kasih banyak atas bantuannya para master.
>
> Regards,
> M I B
>
> - thankfulness -
>
>
>
Coba gunakan conditional formating seperti pesang bang Nando,
ikuti langkah-langkah sbb:
1. Blok C5:E5
2. Klik ribbon Home, Icon Conditional Formating paa Tab Styles.
3. Klik New Rules
4. Ganti minimum colour dan maksimum colour
Klik OK
5. untuk yang lainnya caranya sama.
silahkan dicoba dahulu.
salam
TholeAgus
2015-12-13 6:27 GMT+07:00 ivan budiman ivanstats@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Para Master,
> Mau minta pertolongannya ni....
> Case terlampir
>
> Yang saya inginkan adalah sbb:
>
> 1. Ada 3 benchmark brand, dimana saya ingin angka performance dari
> masing-masing brand tersebut diberikan pewarnaan yang dapat memudahkan
> pembedaan performance dimasing-masing brand di parameter tertentu
> 2. Pada masing-masing parameter memiliki kriteria tertentu dimana ada
> yang semakin besar performance semakin baik dan ada juga yang sebaliknya
> 3. Pembedaan dilakukan dengan warna hijau (untuk performa terbaik),
> kuning (performa diantara terbaik dan terburuk), merah (performa terburuk)
> 4. Jika ada yang sama performance nya di antara 2 brand atau lebih,
> maka warnanya sama.. Misal 2 brand memiliki angka sama dan lebih baik
> performancenya dari brand yang lainnya, maka 2 brand tersebut ditandai
> warna hijau
>
>
> Pertanyaanya: Bagaimana melakukan automasi untuk hal tersebut agar tidak
> manual ya?
>
> Terlampir excel untuk casenya ya.
>
> Terima kasih banyak atas bantuannya para master.
>
> Regards,
> M I B
>
> - thankfulness -
>
>
>
Sun Dec 13, 2015 9:07 pm (PST) . Posted by:
"ieka sulis"
Dear Master Excel,
Saya mohon bantuan nya bagaimana untuk Menampilkan Warning Surat yang harus
segera dikembalikan H-7 dari kolom Tgl Pengembalian yang bahkan saat file
tersebut tidak dibuka, warning tersebut tetap bisa muncul.
Terima kasih sebelumnya..
File terlampir
Saya mohon bantuan nya bagaimana untuk Menampilkan Warning Surat yang harus
segera dikembalikan H-7 dari kolom Tgl Pengembalian yang bahkan saat file
tersebut tidak dibuka, warning tersebut tetap bisa muncul.
Terima kasih sebelumnya..
File terlampir
Mon Dec 14, 2015 12:03 am (PST) . Posted by:
"odong nando"
yoo ieka,
saya sering membuat warning di di sheet excel seperti kasus anda, dengan batuan kolom bantu dan conditional formating.
1. buat kolom bantu berheader warning dengan isi cell berformula =IF ( _tgl pengembalian_ - TODAY ( ) > 6 ; "harus segera dikembalikan" ; "")
kopi cells yang membutuhkan, disarankan menggunakan table excel agar penggunaan formulanya hanya pada cells yang membutuhkan saja
ganti karakter titik koma ";" dengan koma "," bila regional kompi anda english
2. blok seluruh data tanpa header termasuk kolom bantu berheader warning3. klik home --> conditional formating --> new rule --> use a formula to .... --> masukan formula pada " format values where .... " =$E10="harus segera dikembalikan"
--> klik format --> klik fill --> pilih warna --> OK
br,
odong nando
Pada Senin, 14 Desember 2015 12:07, "ieka sulis ieka.listy@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Master Excel,
Saya mohon bantuan nya bagaimana untuk Menampilkan Warning Surat yang harus segera dikembalikan H-7 dari kolom Tgl Pengembalian yang bahkan saat file tersebut tidak dibuka, warning tersebut tetap bisa muncul.
Terima kasih sebelumnya..File terlampir #yiv6069276998 #yiv6069276998 -- #yiv6069276998ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6069276998 #yiv6069276998ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6069276998 #yiv6069276998ygrp-mkp #yiv6069276998hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6069276998 #yiv6069276998ygrp-mkp #yiv6069276998ads {margin-bottom:10px;}#yiv6069276998 #yiv6069276998ygrp-mkp .yiv6069276998ad {padding:0 0;}#yiv6069276998 #yiv6069276998ygrp-mkp .yiv6069276998ad p {margin:0;}#yiv6069276998 #yiv6069276998ygrp-mkp .yiv6069276998ad a {color:#0000ff;text-decoration:none;}#yiv6069276998 #yiv6069276998ygrp-sponsor #yiv6069276998ygrp-lc {font-family:Arial;}#yiv6069276998 #yiv6069276998ygrp-sponsor #yiv6069276998ygrp-lc #yiv6069276998hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6069276998 #yiv6069276998ygrp-sponsor #yiv6069276998ygrp-lc .yiv6069276998ad {margin-bottom:10px;padding:0 0;}#yiv6069276998 #yiv6069276998actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6069276998 #yiv6069276998activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6069276998 #yiv6069276998activity span {font-weight:700;}#yiv6069276998 #yiv6069276998activity span:first-child {text-transform:uppercase;}#yiv6069276998 #yiv6069276998activity span a {color:#5085b6;text-decoration:none;}#yiv6069276998 #yiv6069276998activity span span {color:#ff7900;}#yiv6069276998 #yiv6069276998activity span .yiv6069276998underline {text-decoration:underline;}#yiv6069276998 .yiv6069276998attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6069276998 .yiv6069276998attach div a {text-decoration:none;}#yiv6069276998 .yiv6069276998attach img {border:none;padding-right:5px;}#yiv6069276998 .yiv6069276998attach label {display:block;margin-bottom:5px;}#yiv6069276998 .yiv6069276998attach label a {text-decoration:none;}#yiv6069276998 blockquote {margin:0 0 0 4px;}#yiv6069276998 .yiv6069276998bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6069276998 .yiv6069276998bold a {text-decoration:none;}#yiv6069276998 dd.yiv6069276998last p a {font-family:Verdana;font-weight:700;}#yiv6069276998 dd.yiv6069276998last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6069276998 dd.yiv6069276998last p span.yiv6069276998yshortcuts {margin-right:0;}#yiv6069276998 div.yiv6069276998attach-table div div a {text-decoration:none;}#yiv6069276998 div.yiv6069276998attach-table {width:400px;}#yiv6069276998 div.yiv6069276998file-title a, #yiv6069276998 div.yiv6069276998file-title a:active, #yiv6069276998 div.yiv6069276998file-title a:hover, #yiv6069276998 div.yiv6069276998file-title a:visited {text-decoration:none;}#yiv6069276998 div.yiv6069276998photo-title a, #yiv6069276998 div.yiv6069276998photo-title a:active, #yiv6069276998 div.yiv6069276998photo-title a:hover, #yiv6069276998 div.yiv6069276998photo-title a:visited {text-decoration:none;}#yiv6069276998 div#yiv6069276998ygrp-mlmsg #yiv6069276998ygrp-msg p a span.yiv6069276998yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6069276998 .yiv6069276998green {color:#628c2a;}#yiv6069276998 .yiv6069276998MsoNormal {margin:0 0 0 0;}#yiv6069276998 o {font-size:0;}#yiv6069276998 #yiv6069276998photos div {float:left;width:72px;}#yiv6069276998 #yiv6069276998photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv6069276998 #yiv6069276998photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6069276998 #yiv6069276998reco-category {font-size:77%;}#yiv6069276998 #yiv6069276998reco-desc {font-size:77%;}#yiv6069276998 .yiv6069276998replbq {margin:4px;}#yiv6069276998 #yiv6069276998ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6069276998 #yiv6069276998ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6069276998 #yiv6069276998ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6069276998 #yiv6069276998ygrp-mlmsg select, #yiv6069276998 input, #yiv6069276998 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6069276998 #yiv6069276998ygrp-mlmsg pre, #yiv6069276998 code {font:115% monospace;}#yiv6069276998 #yiv6069276998ygrp-mlmsg * {line-height:1.22em;}#yiv6069276998 #yiv6069276998ygrp-mlmsg #yiv6069276998logo {padding-bottom:10px;}#yiv6069276998 #yiv6069276998ygrp-msg p a {font-family:Verdana;}#yiv6069276998 #yiv6069276998ygrp-msg p#yiv6069276998attach-count span {color:#1E66AE;font-weight:700;}#yiv6069276998 #yiv6069276998ygrp-reco #yiv6069276998reco-head {color:#ff7900;font-weight:700;}#yiv6069276998 #yiv6069276998ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6069276998 #yiv6069276998ygrp-sponsor #yiv6069276998ov li a {font-size:130%;text-decoration:none;}#yiv6069276998 #yiv6069276998ygrp-sponsor #yiv6069276998ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6069276998 #yiv6069276998ygrp-sponsor #yiv6069276998ov ul {margin:0;padding:0 0 0 8px;}#yiv6069276998 #yiv6069276998ygrp-text {font-family:Georgia;}#yiv6069276998 #yiv6069276998ygrp-text p {margin:0 0 1em 0;}#yiv6069276998 #yiv6069276998ygrp-text tt {font-size:120%;}#yiv6069276998 #yiv6069276998ygrp-vital ul li:last-child {border-right:none !important;}#yiv6069276998
saya sering membuat warning di di sheet excel seperti kasus anda, dengan batuan kolom bantu dan conditional formating.
1. buat kolom bantu berheader warning dengan isi cell berformula =IF ( _tgl pengembalian_ - TODAY ( ) > 6 ; "harus segera dikembalikan" ; "")
kopi cells yang membutuhkan, disarankan menggunakan table excel agar penggunaan formulanya hanya pada cells yang membutuhkan saja
ganti karakter titik koma ";" dengan koma "," bila regional kompi anda english
2. blok seluruh data tanpa header termasuk kolom bantu berheader warning3. klik home --> conditional formating --> new rule --> use a formula to .... --> masukan formula pada " format values where .... " =$E10="harus segera dikembalikan"
--> klik format --> klik fill --> pilih warna --> OK
br,
odong nando
Pada Senin, 14 Desember 2015 12:07, "ieka sulis ieka.listy@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Dear Master Excel,
Saya mohon bantuan nya bagaimana untuk Menampilkan Warning Surat yang harus segera dikembalikan H-7 dari kolom Tgl Pengembalian yang bahkan saat file tersebut tidak dibuka, warning tersebut tetap bisa muncul.
Terima kasih sebelumnya..
Mon Dec 14, 2015 12:17 am (PST) . Posted by:
"ieka sulis"
Kalau warning nya bukan dikasih warna, tp warning yg pke script VB itu gmn
kak.?
On Mon, Dec 14, 2015 at 3:03 PM, odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> yoo ieka,
>
> saya sering membuat warning di di sheet excel seperti kasus anda, dengan
> batuan kolom bantu dan conditional formating.
>
> 1. buat kolom bantu berheader warning dengan isi cell berformula
> =IF ( _tgl pengembalian_ - TODAY ( ) > 6 ; "harus segera dikembalikan"
> ; "")
>
> kopi cells yang membutuhkan, disarankan menggunakan table excel agar
> penggunaan formulanya hanya pada cells yang membutuhkan saja
>
> ganti karakter titik koma ";" dengan koma "," bila regional kompi anda
> english
>
> 2. blok seluruh data tanpa header termasuk kolom bantu berheader warning
> 3. klik home --> conditional formating --> new rule --> use a formula to
> .... -->
> masukan formula pada " format values where .... "
> =$E10="harus segera dikembalikan"
> --> klik format --> klik fill --> pilih warna --> OK
>
> br,
>
> odong nando
>
>
>
> Pada Senin, 14 Desember 2015 12:07, "ieka sulis ieka.listy@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Dear Master Excel,
>
> Saya mohon bantuan nya bagaimana untuk Menampilkan Warning Surat yang
> harus segera dikembalikan H-7 dari kolom Tgl Pengembalian yang bahkan saat
> file tersebut tidak dibuka, warning tersebut tetap bisa muncul.
>
> Terima kasih sebelumnya..
> File terlampir
>
>
>
>
kak.?
On Mon, Dec 14, 2015 at 3:03 PM, odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> yoo ieka,
>
> saya sering membuat warning di di sheet excel seperti kasus anda, dengan
> batuan kolom bantu dan conditional formating.
>
> 1. buat kolom bantu berheader warning dengan isi cell berformula
> =IF ( _tgl pengembalian_ - TODAY ( ) > 6 ; "harus segera dikembalikan"
> ; "")
>
> kopi cells yang membutuhkan, disarankan menggunakan table excel agar
> penggunaan formulanya hanya pada cells yang membutuhkan saja
>
> ganti karakter titik koma ";" dengan koma "," bila regional kompi anda
> english
>
> 2. blok seluruh data tanpa header termasuk kolom bantu berheader warning
> 3. klik home --> conditional formating --> new rule --> use a formula to
> .... -->
> masukan formula pada " format values where .... "
> =$E10="harus segera dikembalikan"
> --> klik format --> klik fill --> pilih warna --> OK
>
> br,
>
> odong nando
>
>
>
> Pada Senin, 14 Desember 2015 12:07, "ieka sulis ieka.listy@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Dear Master Excel,
>
> Saya mohon bantuan nya bagaimana untuk Menampilkan Warning Surat yang
> harus segera dikembalikan H-7 dari kolom Tgl Pengembalian yang bahkan saat
> file tersebut tidak dibuka, warning tersebut tetap bisa muncul.
>
> Terima kasih sebelumnya..
> File terlampir
>
>
>
>
Sun Dec 13, 2015 9:45 pm (PST) . Posted by:
"dwint ruswanto"
Assalamu'alaikum wr. wb.,
Dear Be-Exceler,
Dalam upaya memperetat silaturahmi dan mendekatkan diri antara member milis
Belajar Excel, moderator memiliki rencana untuk melakukan pertemuan rutin
2-3 bulan sekali di luar jadwal Kopdar Millis.
Pertemuan akan dilakukan bergilir di sekitar wilayah Jabodetabek. Lokasi
diusahakan yang mudah dijangkau oleh kendaraan umum. Tidak ada biaya yang
dipungut untuk hadir dalam pertemuan ini, karena konsumsi makan dan minum
ditanggung oleh masing-masing anggota yang hadir.
Jadwal perdana, Insha Allah akan dilaksanakan pada:
Hari/Tanggal : Sabtu, 19 Desember 2015
Jam : 12:00 - selesai
Lokasi : Starbucks Sarinah, Jl. MH Thamrin, Jakarta Pusat
Undangan ini terbuka untuk seluruh anggota millis Belajar Excel.
Be-Exceler yang Insha Allah sudah menyatakan diri akan hadir adalah:
1. Mr Kid
2. Pak Anton
3. Pak Hendrik Karnadi
4. saya sendiri
5. reserved for pak Aliif :)
6. reserved for Bang Aksan :)
7. ....
8. ... dst
Berhubung acara ini bukanlah kopdar, jadi tidak ada materi khusus yang akan
dibahas dalam bentuk presentasi, tetapi jika ada yang ingin membawa kasus
silakan disampaikan. Insha Allah akan dicari solusinya bersama-sama.
Ditunggu kehadiran rekan Be-Exceler yang lain.
Wassalamu'alaikum wr. wb.,
dwint
Dear Be-Exceler,
Dalam upaya memperetat silaturahmi dan mendekatkan diri antara member milis
Belajar Excel, moderator memiliki rencana untuk melakukan pertemuan rutin
2-3 bulan sekali di luar jadwal Kopdar Millis.
Pertemuan akan dilakukan bergilir di sekitar wilayah Jabodetabek. Lokasi
diusahakan yang mudah dijangkau oleh kendaraan umum. Tidak ada biaya yang
dipungut untuk hadir dalam pertemuan ini, karena konsumsi makan dan minum
ditanggung oleh masing-masing anggota yang hadir.
Jadwal perdana, Insha Allah akan dilaksanakan pada:
Hari/Tanggal : Sabtu, 19 Desember 2015
Jam : 12:00 - selesai
Lokasi : Starbucks Sarinah, Jl. MH Thamrin, Jakarta Pusat
Undangan ini terbuka untuk seluruh anggota millis Belajar Excel.
Be-Exceler yang Insha Allah sudah menyatakan diri akan hadir adalah:
1. Mr Kid
2. Pak Anton
3. Pak Hendrik Karnadi
4. saya sendiri
5. reserved for pak Aliif :)
6. reserved for Bang Aksan :)
7. ....
8. ... dst
Berhubung acara ini bukanlah kopdar, jadi tidak ada materi khusus yang akan
dibahas dalam bentuk presentasi, tetapi jika ada yang ingin membawa kasus
silakan disampaikan. Insha Allah akan dicari solusinya bersama-sama.
Ditunggu kehadiran rekan Be-Exceler yang lain.
Wassalamu'
dwint
Sun Dec 13, 2015 10:10 pm (PST) . Posted by:
"ris ha" har1sn.excel
Terima kasih pak Kenang Agus dan Mr. Kid
Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing saya dalam merubah text menjadi numerik.
yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
Semoga masih sabar membantu saya...
SalamHaris
On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
hmmm....
i c...
pinjem cekrip copasan mas Nang...
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
dan beberapa info terkait.
Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan data bertipe numerik. Plis... sempatkan belajar dan memahami datatype... plis ya...
Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas juga boleh) :
"Min "0
lalu tekan OK
Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
diganti dengan :
Sheets("Sheet1").Range("B1").ValueLalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat lain)
Jadi nanti bentuknya, kalau pakai IF di VBA :
if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat cell lainnya disini").value then
'baris kode proses ketika B1 > cells lain
else
'baris kode proses ketika B1<= cells lain
endif
Dengan demikian, regional setting apapun akan diproses dengan benar karena nilai yang disimpan cells bertipe numerik.
Tentang :
2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
>> Asumsi : Textbox untuk inputan user untuk nilai yang akan diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas tadi.
>> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text milik si range, bunyinya begini (misal di Label bernama lblBatas)
lblBatas.caption=sheets("sheet1").range("b1").text
>> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari sheet 'Sheet1'
*** Misal textbox bernama txtInput
'misal proses validasi input agar pasti berisi numerik disini
'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi bertipe numerik
if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
'baris kode proses ketika B1 > isian di textbox
else
'baris kode proses ketika B1<= isian di textbox
endif
Wassalamu'alaikum wr wb
Kid
2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Walaikumsalam warahmatullah
Dear Haris,
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)
menghasilkan data type text yang nilainya 12.0, sehingga berapapun
angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
1. mengubah text tersebut menjadi angka dengan mengalikan 1
Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
atau diubah dengan VBA.
wasalamualaikum warahmatullah.
Kenang Agus
On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Assalamu'alaikum.
>
> Mohon bantuan pada para master semua. Saya punya kasus tetang membandingkan
> Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
> kecil dari batas maka akan keluar pesan.
> Saya mencoba dengan 2 cara (sama2 dengan Macro),
> 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang diharapkan.
>
> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
> tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
>
> Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang saya
> hadapi di
> Yahoo! Groups
>
> | |
> | | | | | | | |
> | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya untuk
> membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
> punya kendala. |
> | |
> | View on groups.yahoo.com | Preview by Yahoo |
> | |
> | |
>
>
> setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para master
> semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
> berlimpahan kebaikan dan kemudahan segala urusan. Amin
>
> Salam
> Haris
>
#yiv3349854375 #yiv3349854375 -- #yiv3349854375ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3349854375 #yiv3349854375ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3349854375 #yiv3349854375ygrp-mkp #yiv3349854375hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3349854375 #yiv3349854375ygrp-mkp #yiv3349854375ads {margin-bottom:10px;}#yiv3349854375 #yiv3349854375ygrp-mkp .yiv3349854375ad {padding:0 0;}#yiv3349854375 #yiv3349854375ygrp-mkp .yiv3349854375ad p {margin:0;}#yiv3349854375 #yiv3349854375ygrp-mkp .yiv3349854375ad a {color:#0000ff;text-decoration:none;}#yiv3349854375 #yiv3349854375ygrp-sponsor #yiv3349854375ygrp-lc {font-family:Arial;}#yiv3349854375 #yiv3349854375ygrp-sponsor #yiv3349854375ygrp-lc #yiv3349854375hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3349854375 #yiv3349854375ygrp-sponsor #yiv3349854375ygrp-lc .yiv3349854375ad {margin-bottom:10px;padding:0 0;}#yiv3349854375 #yiv3349854375actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3349854375 #yiv3349854375activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3349854375 #yiv3349854375activity span {font-weight:700;}#yiv3349854375 #yiv3349854375activity span:first-child {text-transform:uppercase;}#yiv3349854375 #yiv3349854375activity span a {color:#5085b6;text-decoration:none;}#yiv3349854375 #yiv3349854375activity span span {color:#ff7900;}#yiv3349854375 #yiv3349854375activity span .yiv3349854375underline {text-decoration:underline;}#yiv3349854375 .yiv3349854375attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3349854375 .yiv3349854375attach div a {text-decoration:none;}#yiv3349854375 .yiv3349854375attach img {border:none;padding-right:5px;}#yiv3349854375 .yiv3349854375attach label {display:block;margin-bottom:5px;}#yiv3349854375 .yiv3349854375attach label a {text-decoration:none;}#yiv3349854375 blockquote {margin:0 0 0 4px;}#yiv3349854375 .yiv3349854375bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3349854375 .yiv3349854375bold a {text-decoration:none;}#yiv3349854375 dd.yiv3349854375last p a {font-family:Verdana;font-weight:700;}#yiv3349854375 dd.yiv3349854375last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3349854375 dd.yiv3349854375last p span.yiv3349854375yshortcuts {margin-right:0;}#yiv3349854375 div.yiv3349854375attach-table div div a {text-decoration:none;}#yiv3349854375 div.yiv3349854375attach-table {width:400px;}#yiv3349854375 div.yiv3349854375file-title a, #yiv3349854375 div.yiv3349854375file-title a:active, #yiv3349854375 div.yiv3349854375file-title a:hover, #yiv3349854375 div.yiv3349854375file-title a:visited {text-decoration:none;}#yiv3349854375 div.yiv3349854375photo-title a, #yiv3349854375 div.yiv3349854375photo-title a:active, #yiv3349854375 div.yiv3349854375photo-title a:hover, #yiv3349854375 div.yiv3349854375photo-title a:visited {text-decoration:none;}#yiv3349854375 div#yiv3349854375ygrp-mlmsg #yiv3349854375ygrp-msg p a span.yiv3349854375yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3349854375 .yiv3349854375green {color:#628c2a;}#yiv3349854375 .yiv3349854375MsoNormal {margin:0 0 0 0;}#yiv3349854375 o {font-size:0;}#yiv3349854375 #yiv3349854375photos div {float:left;width:72px;}#yiv3349854375 #yiv3349854375photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3349854375 #yiv3349854375photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3349854375 #yiv3349854375reco-category {font-size:77%;}#yiv3349854375 #yiv3349854375reco-desc {font-size:77%;}#yiv3349854375 .yiv3349854375replbq {margin:4px;}#yiv3349854375 #yiv3349854375ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3349854375 #yiv3349854375ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3349854375 #yiv3349854375ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3349854375 #yiv3349854375ygrp-mlmsg select, #yiv3349854375 input, #yiv3349854375 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3349854375 #yiv3349854375ygrp-mlmsg pre, #yiv3349854375 code {font:115% monospace;}#yiv3349854375 #yiv3349854375ygrp-mlmsg * {line-height:1.22em;}#yiv3349854375 #yiv3349854375ygrp-mlmsg #yiv3349854375logo {padding-bottom:10px;}#yiv3349854375 #yiv3349854375ygrp-msg p a {font-family:Verdana;}#yiv3349854375 #yiv3349854375ygrp-msg p#yiv3349854375attach-count span {color:#1E66AE;font-weight:700;}#yiv3349854375 #yiv3349854375ygrp-reco #yiv3349854375reco-head {color:#ff7900;font-weight:700;}#yiv3349854375 #yiv3349854375ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3349854375 #yiv3349854375ygrp-sponsor #yiv3349854375ov li a {font-size:130%;text-decoration:none;}#yiv3349854375 #yiv3349854375ygrp-sponsor #yiv3349854375ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3349854375 #yiv3349854375ygrp-sponsor #yiv3349854375ov ul {margin:0;padding:0 0 0 8px;}#yiv3349854375 #yiv3349854375ygrp-text {font-family:Georgia;}#yiv3349854375 #yiv3349854375ygrp-text p {margin:0 0 1em 0;}#yiv3349854375 #yiv3349854375ygrp-text tt {font-size:120%;}#yiv3349854375 #yiv3349854375ygrp-vital ul li:last-child {border-right:none !important;}#yiv3349854375
Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing saya dalam merubah text menjadi numerik.
yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
Semoga masih sabar membantu saya...
SalamHaris
On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
hmmm....
i c...
pinjem cekrip copasan mas Nang...
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
dan beberapa info terkait.
Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan data bertipe numerik. Plis... sempatkan belajar dan memahami datatype... plis ya...
Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas juga boleh) :
"Min "0
lalu tekan OK
Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
diganti dengan :
Sheets("Sheet1").Range("B1").ValueLalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat lain)
Jadi nanti bentuknya, kalau pakai IF di VBA :
if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat cell lainnya disini").value then
'baris kode proses ketika B1 > cells lain
else
'baris kode proses ketika B1<= cells lain
endif
Dengan demikian, regional setting apapun akan diproses dengan benar karena nilai yang disimpan cells bertipe numerik.
Tentang :
2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
>> Asumsi : Textbox untuk inputan user untuk nilai yang akan diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas tadi.
>> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text milik si range, bunyinya begini (misal di Label bernama lblBatas)
lblBatas.caption=sheets("sheet1").range("b1").text
>> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari sheet 'Sheet1'
*** Misal textbox bernama txtInput
'misal proses validasi input agar pasti berisi numerik disini
'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi bertipe numerik
if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
'baris kode proses ketika B1 > isian di textbox
else
'baris kode proses ketika B1<= isian di textbox
endif
Wassalamu'alaikum wr wb
Kid
2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Walaikumsalam warahmatullah
Dear Haris,
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)
menghasilkan data type text yang nilainya 12.0, sehingga berapapun
angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
1. mengubah text tersebut menjadi angka dengan mengalikan 1
Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
atau diubah dengan VBA.
wasalamualaikum warahmatullah.
Kenang Agus
On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Assalamu'
>
> Mohon bantuan pada para master semua. Saya punya kasus tetang membandingkan
> Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
> kecil dari batas maka akan keluar pesan.
> Saya mencoba dengan 2 cara (sama2 dengan Macro),
> 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang diharapkan.
>
> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
> tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
>
> Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang saya
> hadapi di
> Yahoo! Groups
>
> | |
> | | | | | | | |
> | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya untuk
> membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
> punya kendala. |
> | |
> | View on groups.yahoo.
> | |
> | |
>
>
> setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para master
> semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
> berlimpahan kebaikan dan kemudahan segala urusan. Amin
>
> Salam
> Haris
>
#yiv3349854375 #yiv3349854375 -- #yiv3349854375ygrp-
Sun Dec 13, 2015 10:31 pm (PST) . Posted by:
"Nang Agus"
Boleh ya mas Kid saya ikut jawab?
Cdbl adalah fungsi yang mengubah type data text menjadi type data double
coba baca pesanya microsoft di sini
<https://msdn.microsoft.com/en-us/library/ftekwwt0%28v=vs.84%29.aspx>
sekali lagi saya mohon maaf mas Kid karena lancang menjawab yang bukan
kapasitasnya... (khan yang ditanya mas Kid) ... :D
salam
On Mon, Dec 14, 2015 at 1:07 PM, ris ha har1sn.excel@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Terima kasih pak Kenang Agus dan Mr. Kid
>
> Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya
> bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing
> saya dalam merubah text menjadi numerik.
>
> yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
>
> Semoga masih sabar membantu saya...
>
> Salam
> Haris
>
>
>
> On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> hmmm....
>
> i c...
> pinjem cekrip copasan mas Nang...
>
> Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
> Len(Sheets("Sheet1").Range("B1").Value) - 4)
>
> dan beberapa info terkait.
>
> Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan
> cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan
> data bertipe numerik. Plis... sempatkan belajar dan memahami datatype...
> plis ya...
>
> Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number
> -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas
> juga boleh) :
> "Min "0
> lalu tekan OK
>
> Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
> Right(Sheets("Sheet1").Range("B1").Value,
> Len(Sheets("Sheet1").Range("B1").Value) - 4)
> diganti dengan :
> Sheets("Sheet1").Range("B1").Value
> Lalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan
> cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat
> lain)
> Jadi nanti bentuknya, kalau pakai IF di VBA :
> if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat
> cell lainnya disini").value then
> 'baris kode proses ketika B1 > cells lain
> else
> 'baris kode proses ketika B1<= cells lain
> endif
>
> Dengan demikian, regional setting apapun akan diproses dengan benar karena
> nilai yang disimpan cells bertipe numerik.
>
>
> Tentang :
> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
> >> Asumsi : Textbox untuk inputan user untuk nilai yang akan
> diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas
> tadi.
> >> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text
> milik si range, bunyinya begini (misal di Label bernama lblBatas)
> lblBatas.caption=sheets("sheet1").range("b1").text
> >> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe
> text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari
> sheet 'Sheet1'
> *** Misal textbox bernama txtInput
> 'misal proses validasi input agar pasti berisi numerik disini
> 'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi
> bertipe numerik
> if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
> 'baris kode proses ketika B1 > isian di textbox
> else
> 'baris kode proses ketika B1<= isian di textbox
> endif
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Walaikumsalam warahmatullah
> Dear Haris,
>
> Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
> Len(Sheets("Sheet1").Range("B1").Value) - 4)
> menghasilkan data type text yang nilainya 12.0, sehingga berapapun
> angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
> kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
> 1. mengubah text tersebut menjadi angka dengan mengalikan 1
> Right(Sheets("Sheet1").Range("B1").Value,
> Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
> 2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
> dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
> atau diubah dengan VBA.
>
> wasalamualaikum warahmatullah.
> Kenang Agus
>
> On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
> > Assalamu'alaikum.
> >
> > Mohon bantuan pada para master semua. Saya punya kasus tetang
> membandingkan
> > Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
> > kecil dari batas maka akan keluar pesan.
> > Saya mencoba dengan 2 cara (sama2 dengan Macro),
> > 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang
> diharapkan.
> >
> > 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada
> UserForm,
> > tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
> >
> > Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang
> saya
> > hadapi di
> > Yahoo! Groups
> >
> > | |
> > | | | | | | | |
> > | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya untuk
> > membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
> > punya kendala. |
> > | |
> > | View on groups.yahoo.com
> <http://groups.yahoo.com/?soc_src=mail&soc_trk=ma> | Preview by Yahoo |
> > | |
> > | |
> >
> >
> > setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para
> master
> > semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
> > berlimpahan kebaikan dan kemudahan segala urusan. Amin
> >
> > Salam
> > Haris
> >
>
>
>
>
>
>
Cdbl adalah fungsi yang mengubah type data text menjadi type data double
coba baca pesanya microsoft di sini
<https://msdn.microsoft.com/en-us/library/ftekwwt0%28v=vs.84%29.aspx>
sekali lagi saya mohon maaf mas Kid karena lancang menjawab yang bukan
kapasitasnya... (khan yang ditanya mas Kid) ... :D
salam
On Mon, Dec 14, 2015 at 1:07 PM, ris ha har1sn.excel@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Terima kasih pak Kenang Agus dan Mr. Kid
>
> Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya
> bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing
> saya dalam merubah text menjadi numerik.
>
> yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
>
> Semoga masih sabar membantu saya...
>
> Salam
> Haris
>
>
>
> On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> hmmm....
>
> i c...
> pinjem cekrip copasan mas Nang...
>
> Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
> Len(Sheets("Sheet1").Range("B1").Value) - 4)
>
> dan beberapa info terkait.
>
> Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan
> cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan
> data bertipe numerik. Plis... sempatkan belajar dan memahami datatype...
> plis ya...
>
> Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number
> -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas
> juga boleh) :
> "Min "0
> lalu tekan OK
>
> Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
> Right(Sheets("Sheet1").Range("B1").Value,
> Len(Sheets("Sheet1").Range("B1").Value) - 4)
> diganti dengan :
> Sheets("Sheet1").Range("B1").Value
> Lalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan
> cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat
> lain)
> Jadi nanti bentuknya, kalau pakai IF di VBA :
> if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat
> cell lainnya disini").value then
> 'baris kode proses ketika B1 > cells lain
> else
> 'baris kode proses ketika B1<= cells lain
> endif
>
> Dengan demikian, regional setting apapun akan diproses dengan benar karena
> nilai yang disimpan cells bertipe numerik.
>
>
> Tentang :
> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
> >> Asumsi : Textbox untuk inputan user untuk nilai yang akan
> diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas
> tadi.
> >> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text
> milik si range, bunyinya begini (misal di Label bernama lblBatas)
> lblBatas.caption=sheets("sheet1").range("b1").text
> >> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe
> text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari
> sheet 'Sheet1'
> *** Misal textbox bernama txtInput
> 'misal proses validasi input agar pasti berisi numerik disini
> 'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi
> bertipe numerik
> if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
> 'baris kode proses ketika B1 > isian di textbox
> else
> 'baris kode proses ketika B1<= isian di textbox
> endif
>
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
> 2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Walaikumsalam warahmatullah
> Dear Haris,
>
> Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
> Len(Sheets("Sheet1").Range("B1").Value) - 4)
> menghasilkan data type text yang nilainya 12.0, sehingga berapapun
> angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
> kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
> 1. mengubah text tersebut menjadi angka dengan mengalikan 1
> Right(Sheets("Sheet1").Range("B1").Value,
> Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
> 2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
> dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
> atau diubah dengan VBA.
>
> wasalamualaikum warahmatullah.
> Kenang Agus
>
> On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
> > Assalamu'alaikum.
> >
> > Mohon bantuan pada para master semua. Saya punya kasus tetang
> membandingkan
> > Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
> > kecil dari batas maka akan keluar pesan.
> > Saya mencoba dengan 2 cara (sama2 dengan Macro),
> > 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang
> diharapkan.
> >
> > 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada
> UserForm,
> > tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
> >
> > Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang
> saya
> > hadapi di
> > Yahoo! Groups
> >
> > | |
> > | | | | | | | |
> > | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya untuk
> > membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
> > punya kendala. |
> > | |
> > | View on groups.yahoo.com
> <http://groups.yahoo.com/?soc_src=mail&soc_trk=ma> | Preview by Yahoo |
> > | |
> > | |
> >
> >
> > setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para
> master
> > semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
> > berlimpahan kebaikan dan kemudahan segala urusan. Amin
> >
> > Salam
> > Haris
> >
>
>
>
>
>
>
Sun Dec 13, 2015 10:45 pm (PST) . Posted by:
"ris ha" har1sn.excel
Terima kasih pak Agus, kl CLng itu penjelasannya gmn ya?
SalamHaris
On Monday, December 14, 2015 1:31 PM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Boleh ya mas Kid saya ikut jawab?
Cdbl adalah fungsi yang mengubah type data text menjadi type data double
coba baca pesanya microsoft di sini
sekali lagi saya mohon maaf mas Kid karena lancang menjawab yang bukan kapasitasnya... (khan yang ditanya mas Kid) ... :D
salam
On Mon, Dec 14, 2015 at 1:07 PM, ris ha har1sn.excel@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Terima kasih pak Kenang Agus dan Mr. Kid
Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing saya dalam merubah text menjadi numerik.
yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
Semoga masih sabar membantu saya...
SalamHaris
On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
hmmm....
i c...
pinjem cekrip copasan mas Nang...
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
dan beberapa info terkait.
Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan data bertipe numerik. Plis... sempatkan belajar dan memahami datatype... plis ya...
Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas juga boleh) :
"Min "0
lalu tekan OK
Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
diganti dengan :
Sheets("Sheet1").Range("B1").ValueLalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat lain)
Jadi nanti bentuknya, kalau pakai IF di VBA :
if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat cell lainnya disini").value then
'baris kode proses ketika B1 > cells lain
else
'baris kode proses ketika B1<= cells lain
endif
Dengan demikian, regional setting apapun akan diproses dengan benar karena nilai yang disimpan cells bertipe numerik.
Tentang :
2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
>> Asumsi : Textbox untuk inputan user untuk nilai yang akan diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas tadi.
>> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text milik si range, bunyinya begini (misal di Label bernama lblBatas)
lblBatas.caption=sheets("sheet1").range("b1").text
>> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari sheet 'Sheet1'
*** Misal textbox bernama txtInput
'misal proses validasi input agar pasti berisi numerik disini
'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi bertipe numerik
if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
'baris kode proses ketika B1 > isian di textbox
else
'baris kode proses ketika B1<= isian di textbox
endif
Wassalamu'alaikum wr wb
Kid
2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Walaikumsalam warahmatullah
Dear Haris,
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)
menghasilkan data type text yang nilainya 12.0, sehingga berapapun
angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
1. mengubah text tersebut menjadi angka dengan mengalikan 1
Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
atau diubah dengan VBA.
wasalamualaikum warahmatullah.
Kenang Agus
On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Assalamu'alaikum.
>
> Mohon bantuan pada para master semua. Saya punya kasus tetang membandingkan
> Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
> kecil dari batas maka akan keluar pesan.
> Saya mencoba dengan 2 cara (sama2 dengan Macro),
> 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang diharapkan.
>
> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
> tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
>
> Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang saya
> hadapi di
> Yahoo! Groups
>
> | |
> | | | | | | | |
> | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya untuk
> membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
> punya kendala. |
> | |
> | View on groups.yahoo.com | Preview by Yahoo |
> | |
> | |
>
>
> setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para master
> semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
> berlimpahan kebaikan dan kemudahan segala urusan. Amin
>
> Salam
> Haris
>
#yiv7085469619 #yiv7085469619 -- #yiv7085469619ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7085469619 #yiv7085469619ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7085469619 #yiv7085469619ygrp-mkp #yiv7085469619hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7085469619 #yiv7085469619ygrp-mkp #yiv7085469619ads {margin-bottom:10px;}#yiv7085469619 #yiv7085469619ygrp-mkp .yiv7085469619ad {padding:0 0;}#yiv7085469619 #yiv7085469619ygrp-mkp .yiv7085469619ad p {margin:0;}#yiv7085469619 #yiv7085469619ygrp-mkp .yiv7085469619ad a {color:#0000ff;text-decoration:none;}#yiv7085469619 #yiv7085469619ygrp-sponsor #yiv7085469619ygrp-lc {font-family:Arial;}#yiv7085469619 #yiv7085469619ygrp-sponsor #yiv7085469619ygrp-lc #yiv7085469619hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7085469619 #yiv7085469619ygrp-sponsor #yiv7085469619ygrp-lc .yiv7085469619ad {margin-bottom:10px;padding:0 0;}#yiv7085469619 #yiv7085469619actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7085469619 #yiv7085469619activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7085469619 #yiv7085469619activity span {font-weight:700;}#yiv7085469619 #yiv7085469619activity span:first-child {text-transform:uppercase;}#yiv7085469619 #yiv7085469619activity span a {color:#5085b6;text-decoration:none;}#yiv7085469619 #yiv7085469619activity span span {color:#ff7900;}#yiv7085469619 #yiv7085469619activity span .yiv7085469619underline {text-decoration:underline;}#yiv7085469619 .yiv7085469619attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7085469619 .yiv7085469619attach div a {text-decoration:none;}#yiv7085469619 .yiv7085469619attach img {border:none;padding-right:5px;}#yiv7085469619 .yiv7085469619attach label {display:block;margin-bottom:5px;}#yiv7085469619 .yiv7085469619attach label a {text-decoration:none;}#yiv7085469619 blockquote {margin:0 0 0 4px;}#yiv7085469619 .yiv7085469619bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7085469619 .yiv7085469619bold a {text-decoration:none;}#yiv7085469619 dd.yiv7085469619last p a {font-family:Verdana;font-weight:700;}#yiv7085469619 dd.yiv7085469619last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7085469619 dd.yiv7085469619last p span.yiv7085469619yshortcuts {margin-right:0;}#yiv7085469619 div.yiv7085469619attach-table div div a {text-decoration:none;}#yiv7085469619 div.yiv7085469619attach-table {width:400px;}#yiv7085469619 div.yiv7085469619file-title a, #yiv7085469619 div.yiv7085469619file-title a:active, #yiv7085469619 div.yiv7085469619file-title a:hover, #yiv7085469619 div.yiv7085469619file-title a:visited {text-decoration:none;}#yiv7085469619 div.yiv7085469619photo-title a, #yiv7085469619 div.yiv7085469619photo-title a:active, #yiv7085469619 div.yiv7085469619photo-title a:hover, #yiv7085469619 div.yiv7085469619photo-title a:visited {text-decoration:none;}#yiv7085469619 div#yiv7085469619ygrp-mlmsg #yiv7085469619ygrp-msg p a span.yiv7085469619yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7085469619 .yiv7085469619green {color:#628c2a;}#yiv7085469619 .yiv7085469619MsoNormal {margin:0 0 0 0;}#yiv7085469619 o {font-size:0;}#yiv7085469619 #yiv7085469619photos div {float:left;width:72px;}#yiv7085469619 #yiv7085469619photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7085469619 #yiv7085469619photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7085469619 #yiv7085469619reco-category {font-size:77%;}#yiv7085469619 #yiv7085469619reco-desc {font-size:77%;}#yiv7085469619 .yiv7085469619replbq {margin:4px;}#yiv7085469619 #yiv7085469619ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7085469619 #yiv7085469619ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7085469619 #yiv7085469619ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7085469619 #yiv7085469619ygrp-mlmsg select, #yiv7085469619 input, #yiv7085469619 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7085469619 #yiv7085469619ygrp-mlmsg pre, #yiv7085469619 code {font:115% monospace;}#yiv7085469619 #yiv7085469619ygrp-mlmsg * {line-height:1.22em;}#yiv7085469619 #yiv7085469619ygrp-mlmsg #yiv7085469619logo {padding-bottom:10px;}#yiv7085469619 #yiv7085469619ygrp-msg p a {font-family:Verdana;}#yiv7085469619 #yiv7085469619ygrp-msg p#yiv7085469619attach-count span {color:#1E66AE;font-weight:700;}#yiv7085469619 #yiv7085469619ygrp-reco #yiv7085469619reco-head {color:#ff7900;font-weight:700;}#yiv7085469619 #yiv7085469619ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7085469619 #yiv7085469619ygrp-sponsor #yiv7085469619ov li a {font-size:130%;text-decoration:none;}#yiv7085469619 #yiv7085469619ygrp-sponsor #yiv7085469619ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7085469619 #yiv7085469619ygrp-sponsor #yiv7085469619ov ul {margin:0;padding:0 0 0 8px;}#yiv7085469619 #yiv7085469619ygrp-text {font-family:Georgia;}#yiv7085469619 #yiv7085469619ygrp-text p {margin:0 0 1em 0;}#yiv7085469619 #yiv7085469619ygrp-text tt {font-size:120%;}#yiv7085469619 #yiv7085469619ygrp-vital ul li:last-child {border-right:none !important;}#yiv7085469619
SalamHaris
On Monday, December 14, 2015 1:31 PM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Boleh ya mas Kid saya ikut jawab?
Cdbl adalah fungsi yang mengubah type data text menjadi type data double
coba baca pesanya microsoft di sini
sekali lagi saya mohon maaf mas Kid karena lancang menjawab yang bukan kapasitasnya... (khan yang ditanya mas Kid) ... :D
salam
On Mon, Dec 14, 2015 at 1:07 PM, ris ha har1sn.excel@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Terima kasih pak Kenang Agus dan Mr. Kid
Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing saya dalam merubah text menjadi numerik.
yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
Semoga masih sabar membantu saya...
SalamHaris
On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
hmmm....
i c...
pinjem cekrip copasan mas Nang...
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
dan beberapa info terkait.
Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan data bertipe numerik. Plis... sempatkan belajar dan memahami datatype... plis ya...
Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas juga boleh) :
"Min "0
lalu tekan OK
Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
diganti dengan :
Sheets("Sheet1").Range("B1").ValueLalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat lain)
Jadi nanti bentuknya, kalau pakai IF di VBA :
if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat cell lainnya disini").value then
'baris kode proses ketika B1 > cells lain
else
'baris kode proses ketika B1<= cells lain
endif
Dengan demikian, regional setting apapun akan diproses dengan benar karena nilai yang disimpan cells bertipe numerik.
Tentang :
2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
>> Asumsi : Textbox untuk inputan user untuk nilai yang akan diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas tadi.
>> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text milik si range, bunyinya begini (misal di Label bernama lblBatas)
lblBatas.caption=sheets("sheet1").range("b1").text
>> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari sheet 'Sheet1'
*** Misal textbox bernama txtInput
'misal proses validasi input agar pasti berisi numerik disini
'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi bertipe numerik
if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
'baris kode proses ketika B1 > isian di textbox
else
'baris kode proses ketika B1<= isian di textbox
endif
Wassalamu'alaikum wr wb
Kid
2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Walaikumsalam warahmatullah
Dear Haris,
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)
menghasilkan data type text yang nilainya 12.0, sehingga berapapun
angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
1. mengubah text tersebut menjadi angka dengan mengalikan 1
Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
atau diubah dengan VBA.
wasalamualaikum warahmatullah.
Kenang Agus
On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Assalamu'
>
> Mohon bantuan pada para master semua. Saya punya kasus tetang membandingkan
> Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
> kecil dari batas maka akan keluar pesan.
> Saya mencoba dengan 2 cara (sama2 dengan Macro),
> 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang diharapkan.
>
> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
> tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
>
> Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang saya
> hadapi di
> Yahoo! Groups
>
> | |
> | | | | | | | |
> | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya untuk
> membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
> punya kendala. |
> | |
> | View on groups.yahoo.
> | |
> | |
>
>
> setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para master
> semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
> berlimpahan kebaikan dan kemudahan segala urusan. Amin
>
> Salam
> Haris
>
#yiv7085469619 #yiv7085469619 -- #yiv7085469619ygrp-
Sun Dec 13, 2015 10:46 pm (PST) . Posted by:
"ris ha" har1sn.excel
Eee maaf, udh ada didalam artikel yg dikasing pak Agus. makasih
Salam
On Monday, December 14, 2015 1:42 PM, ris ha <har1sn.excel@yahoo.com> wrote:
Terima kasih pak Agus, kl CLng itu penjelasannya gmn ya?
SalamHaris
On Monday, December 14, 2015 1:31 PM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Boleh ya mas Kid saya ikut jawab?
Cdbl adalah fungsi yang mengubah type data text menjadi type data double
coba baca pesanya microsoft di sini
sekali lagi saya mohon maaf mas Kid karena lancang menjawab yang bukan kapasitasnya... (khan yang ditanya mas Kid) ... :D
salam
On Mon, Dec 14, 2015 at 1:07 PM, ris ha har1sn.excel@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Terima kasih pak Kenang Agus dan Mr. Kid
Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing saya dalam merubah text menjadi numerik.
yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
Semoga masih sabar membantu saya...
SalamHaris
On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
hmmm....
i c...
pinjem cekrip copasan mas Nang...
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
dan beberapa info terkait.
Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan data bertipe numerik. Plis... sempatkan belajar dan memahami datatype... plis ya...
Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas juga boleh) :
"Min "0
lalu tekan OK
Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
diganti dengan :
Sheets("Sheet1").Range("B1").ValueLalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat lain)
Jadi nanti bentuknya, kalau pakai IF di VBA :
if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat cell lainnya disini").value then
'baris kode proses ketika B1 > cells lain
else
'baris kode proses ketika B1<= cells lain
endif
Dengan demikian, regional setting apapun akan diproses dengan benar karena nilai yang disimpan cells bertipe numerik.
Tentang :
2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
>> Asumsi : Textbox untuk inputan user untuk nilai yang akan diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas tadi.
>> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text milik si range, bunyinya begini (misal di Label bernama lblBatas)
lblBatas.caption=sheets("sheet1").range("b1").text
>> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari sheet 'Sheet1'
*** Misal textbox bernama txtInput
'misal proses validasi input agar pasti berisi numerik disini
'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi bertipe numerik
if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
'baris kode proses ketika B1 > isian di textbox
else
'baris kode proses ketika B1<= isian di textbox
endif
Wassalamu'alaikum wr wb
Kid
2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Walaikumsalam warahmatullah
Dear Haris,
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)
menghasilkan data type text yang nilainya 12.0, sehingga berapapun
angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
1. mengubah text tersebut menjadi angka dengan mengalikan 1
Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
atau diubah dengan VBA.
wasalamualaikum warahmatullah.
Kenang Agus
On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Assalamu'alaikum.
>
> Mohon bantuan pada para master semua. Saya punya kasus tetang membandingkan
> Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
> kecil dari batas maka akan keluar pesan.
> Saya mencoba dengan 2 cara (sama2 dengan Macro),
> 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang diharapkan.
>
> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
> tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
>
> Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang saya
> hadapi di
> Yahoo! Groups
>
> | |
> | | | | | | | |
> | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya untuk
> membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
> punya kendala. |
> | |
> | View on groups.yahoo.com | Preview by Yahoo |
> | |
> | |
>
>
> setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para master
> semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
> berlimpahan kebaikan dan kemudahan segala urusan. Amin
>
> Salam
> Haris
>
#yiv9539872475 -- #yiv9539872475ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9539872475 #yiv9539872475ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9539872475 #yiv9539872475ygrp-mkp #yiv9539872475hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9539872475 #yiv9539872475ygrp-mkp #yiv9539872475ads {margin-bottom:10px;}#yiv9539872475 #yiv9539872475ygrp-mkp .yiv9539872475ad {padding:0 0;}#yiv9539872475 #yiv9539872475ygrp-mkp .yiv9539872475ad p {margin:0;}#yiv9539872475 #yiv9539872475ygrp-mkp .yiv9539872475ad a {color:#0000ff;text-decoration:none;}#yiv9539872475 #yiv9539872475ygrp-sponsor #yiv9539872475ygrp-lc {font-family:Arial;}#yiv9539872475 #yiv9539872475ygrp-sponsor #yiv9539872475ygrp-lc #yiv9539872475hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9539872475 #yiv9539872475ygrp-sponsor #yiv9539872475ygrp-lc .yiv9539872475ad {margin-bottom:10px;padding:0 0;}#yiv9539872475 #yiv9539872475actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9539872475 #yiv9539872475activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9539872475 #yiv9539872475activity span {font-weight:700;}#yiv9539872475 #yiv9539872475activity span:first-child {text-transform:uppercase;}#yiv9539872475 #yiv9539872475activity span a {color:#5085b6;text-decoration:none;}#yiv9539872475 #yiv9539872475activity span span {color:#ff7900;}#yiv9539872475 #yiv9539872475activity span .yiv9539872475underline {text-decoration:underline;}#yiv9539872475 .yiv9539872475attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9539872475 .yiv9539872475attach div a {text-decoration:none;}#yiv9539872475 .yiv9539872475attach img {border:none;padding-right:5px;}#yiv9539872475 .yiv9539872475attach label {display:block;margin-bottom:5px;}#yiv9539872475 .yiv9539872475attach label a {text-decoration:none;}#yiv9539872475 blockquote {margin:0 0 0 4px;}#yiv9539872475 .yiv9539872475bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9539872475 .yiv9539872475bold a {text-decoration:none;}#yiv9539872475 dd.yiv9539872475last p a {font-family:Verdana;font-weight:700;}#yiv9539872475 dd.yiv9539872475last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9539872475 dd.yiv9539872475last p span.yiv9539872475yshortcuts {margin-right:0;}#yiv9539872475 div.yiv9539872475attach-table div div a {text-decoration:none;}#yiv9539872475 div.yiv9539872475attach-table {width:400px;}#yiv9539872475 div.yiv9539872475file-title a, #yiv9539872475 div.yiv9539872475file-title a:active, #yiv9539872475 div.yiv9539872475file-title a:hover, #yiv9539872475 div.yiv9539872475file-title a:visited {text-decoration:none;}#yiv9539872475 div.yiv9539872475photo-title a, #yiv9539872475 div.yiv9539872475photo-title a:active, #yiv9539872475 div.yiv9539872475photo-title a:hover, #yiv9539872475 div.yiv9539872475photo-title a:visited {text-decoration:none;}#yiv9539872475 div#yiv9539872475ygrp-mlmsg #yiv9539872475ygrp-msg p a span.yiv9539872475yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9539872475 .yiv9539872475green {color:#628c2a;}#yiv9539872475 .yiv9539872475MsoNormal {margin:0 0 0 0;}#yiv9539872475 o {font-size:0;}#yiv9539872475 #yiv9539872475photos div {float:left;width:72px;}#yiv9539872475 #yiv9539872475photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9539872475 #yiv9539872475photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9539872475 #yiv9539872475reco-category {font-size:77%;}#yiv9539872475 #yiv9539872475reco-desc {font-size:77%;}#yiv9539872475 .yiv9539872475replbq {margin:4px;}#yiv9539872475 #yiv9539872475ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9539872475 #yiv9539872475ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9539872475 #yiv9539872475ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9539872475 #yiv9539872475ygrp-mlmsg select, #yiv9539872475 input, #yiv9539872475 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9539872475 #yiv9539872475ygrp-mlmsg pre, #yiv9539872475 code {font:115% monospace;}#yiv9539872475 #yiv9539872475ygrp-mlmsg * {line-height:1.22em;}#yiv9539872475 #yiv9539872475ygrp-mlmsg #yiv9539872475logo {padding-bottom:10px;}#yiv9539872475 #yiv9539872475ygrp-msg p a {font-family:Verdana;}#yiv9539872475 #yiv9539872475ygrp-msg p#yiv9539872475attach-count span {color:#1E66AE;font-weight:700;}#yiv9539872475 #yiv9539872475ygrp-reco #yiv9539872475reco-head {color:#ff7900;font-weight:700;}#yiv9539872475 #yiv9539872475ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9539872475 #yiv9539872475ygrp-sponsor #yiv9539872475ov li a {font-size:130%;text-decoration:none;}#yiv9539872475 #yiv9539872475ygrp-sponsor #yiv9539872475ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9539872475 #yiv9539872475ygrp-sponsor #yiv9539872475ov ul {margin:0;padding:0 0 0 8px;}#yiv9539872475 #yiv9539872475ygrp-text {font-family:Georgia;}#yiv9539872475 #yiv9539872475ygrp-text p {margin:0 0 1em 0;}#yiv9539872475 #yiv9539872475ygrp-text tt {font-size:120%;}#yiv9539872475 #yiv9539872475ygrp-vital ul li:last-child {border-right:none !important;}#yiv9539872475
Salam
On Monday, December 14, 2015 1:42 PM, ris ha <har1sn.excel@yahoo.com> wrote:
Terima kasih pak Agus, kl CLng itu penjelasannya gmn ya?
SalamHaris
On Monday, December 14, 2015 1:31 PM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Boleh ya mas Kid saya ikut jawab?
Cdbl adalah fungsi yang mengubah type data text menjadi type data double
coba baca pesanya microsoft di sini
sekali lagi saya mohon maaf mas Kid karena lancang menjawab yang bukan kapasitasnya... (khan yang ditanya mas Kid) ... :D
salam
On Mon, Dec 14, 2015 at 1:07 PM, ris ha har1sn.excel@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Terima kasih pak Kenang Agus dan Mr. Kid
Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing saya dalam merubah text menjadi numerik.
yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
Semoga masih sabar membantu saya...
SalamHaris
On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Wa'alaikumussalam wr wb
hmmm....
i c...
pinjem cekrip copasan mas Nang...
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
dan beberapa info terkait.
Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan data bertipe numerik. Plis... sempatkan belajar dan memahami datatype... plis ya...
Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas juga boleh) :
"Min "0
lalu tekan OK
Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
Right(Sheets("Sheet1").Range("B1").Value, Len(Sheets("Sheet1").Range("B1").Value) - 4)
diganti dengan :
Sheets("Sheet1").Range("B1").ValueLalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat lain)
Jadi nanti bentuknya, kalau pakai IF di VBA :
if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat cell lainnya disini").value then
'baris kode proses ketika B1 > cells lain
else
'baris kode proses ketika B1<= cells lain
endif
Dengan demikian, regional setting apapun akan diproses dengan benar karena nilai yang disimpan cells bertipe numerik.
Tentang :
2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
>> Asumsi : Textbox untuk inputan user untuk nilai yang akan diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas tadi.
>> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text milik si range, bunyinya begini (misal di Label bernama lblBatas)
lblBatas.caption=sheets("sheet1").range("b1").text
>> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari sheet 'Sheet1'
*** Misal textbox bernama txtInput
'misal proses validasi input agar pasti berisi numerik disini
'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi bertipe numerik
if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
'baris kode proses ketika B1 > isian di textbox
else
'baris kode proses ketika B1<= isian di textbox
endif
Wassalamu'alaikum wr wb
Kid
2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
Walaikumsalam warahmatullah
Dear Haris,
Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)
menghasilkan data type text yang nilainya 12.0, sehingga berapapun
angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
1. mengubah text tersebut menjadi angka dengan mengalikan 1
Right(Sheets("Sheet1").Range("B1").Value,
Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
atau diubah dengan VBA.
wasalamualaikum warahmatullah.
Kenang Agus
On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Assalamu'
>
> Mohon bantuan pada para master semua. Saya punya kasus tetang membandingkan
> Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
> kecil dari batas maka akan keluar pesan.
> Saya mencoba dengan 2 cara (sama2 dengan Macro),
> 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang diharapkan.
>
> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada UserForm,
> tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
>
> Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang saya
> hadapi di
> Yahoo! Groups
>
> | |
> | | | | | | | |
> | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya untuk
> membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
> punya kendala. |
> | |
> | View on groups.yahoo.
> | |
> | |
>
>
> setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para master
> semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
> berlimpahan kebaikan dan kemudahan segala urusan. Amin
>
> Salam
> Haris
>
#yiv9539872475 -- #yiv9539872475ygrp-
Sun Dec 13, 2015 10:52 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wakakaka...
pokoke kalau bisa, langsung ikutan aja...
2015-12-14 13:31 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Boleh ya mas Kid saya ikut jawab?
> Cdbl adalah fungsi yang mengubah type data text menjadi type data double
> coba baca pesanya microsoft di sini
> <https://msdn.microsoft.com/en-us/library/ftekwwt0%28v=vs.84%29.aspx>
> sekali lagi saya mohon maaf mas Kid karena lancang menjawab yang bukan
> kapasitasnya... (khan yang ditanya mas Kid) ... :D
> salam
>
> On Mon, Dec 14, 2015 at 1:07 PM, ris ha har1sn.excel@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Terima kasih pak Kenang Agus dan Mr. Kid
>>
>> Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya
>> bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing
>> saya dalam merubah text menjadi numerik.
>>
>> yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
>>
>> Semoga masih sabar membantu saya...
>>
>> Salam
>> Haris
>>
>>
>>
>> On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>>
>>
>>
>> Wa'alaikumussalam wr wb
>>
>> hmmm....
>>
>> i c...
>> pinjem cekrip copasan mas Nang...
>>
>> Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
>> Len(Sheets("Sheet1").Range("B1").Value) - 4)
>>
>> dan beberapa info terkait.
>>
>> Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan
>> cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan
>> data bertipe numerik. Plis... sempatkan belajar dan memahami datatype...
>> plis ya...
>>
>> Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number
>> -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas
>> juga boleh) :
>> "Min "0
>> lalu tekan OK
>>
>> Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
>> Right(Sheets("Sheet1").Range("B1").Value,
>> Len(Sheets("Sheet1").Range("B1").Value) - 4)
>> diganti dengan :
>> Sheets("Sheet1").Range("B1").Value
>> Lalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan
>> cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat
>> lain)
>> Jadi nanti bentuknya, kalau pakai IF di VBA :
>> if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat
>> cell lainnya disini").value then
>> 'baris kode proses ketika B1 > cells lain
>> else
>> 'baris kode proses ketika B1<= cells lain
>> endif
>>
>> Dengan demikian, regional setting apapun akan diproses dengan benar
>> karena nilai yang disimpan cells bertipe numerik.
>>
>>
>> Tentang :
>> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada
>> UserForm,
>> >> Asumsi : Textbox untuk inputan user untuk nilai yang akan
>> diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas
>> tadi.
>> >> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text
>> milik si range, bunyinya begini (misal di Label bernama lblBatas)
>> lblBatas.caption=sheets("sheet1").range("b1").text
>> >> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe
>> text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari
>> sheet 'Sheet1'
>> *** Misal textbox bernama txtInput
>> 'misal proses validasi input agar pasti berisi numerik disini
>> 'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi
>> bertipe numerik
>> if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
>> 'baris kode proses ketika B1 > isian di textbox
>> else
>> 'baris kode proses ketika B1<= isian di textbox
>> endif
>>
>>
>> Wassalamu'alaikum wr wb
>> Kid
>>
>>
>>
>> 2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>
>> Walaikumsalam warahmatullah
>> Dear Haris,
>>
>> Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
>> Len(Sheets("Sheet1").Range("B1").Value) - 4)
>> menghasilkan data type text yang nilainya 12.0, sehingga berapapun
>> angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
>> kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
>> 1. mengubah text tersebut menjadi angka dengan mengalikan 1
>> Right(Sheets("Sheet1").Range("B1").Value,
>> Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
>> 2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
>> dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
>> atau diubah dengan VBA.
>>
>> wasalamualaikum warahmatullah.
>> Kenang Agus
>>
>> On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
>> <belajar-excel@yahoogroups.com> wrote:
>> > Assalamu'alaikum.
>> >
>> > Mohon bantuan pada para master semua. Saya punya kasus tetang
>> membandingkan
>> > Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
>> > kecil dari batas maka akan keluar pesan.
>> > Saya mencoba dengan 2 cara (sama2 dengan Macro),
>> > 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang
>> diharapkan.
>> >
>> > 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada
>> UserForm,
>> > tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
>> >
>> > Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang
>> saya
>> > hadapi di
>> > Yahoo! Groups
>> >
>> > | |
>> > | | | | | | | |
>> > | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya
>> untuk
>> > membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
>> > punya kendala. |
>> > | |
>> > | View on groups.yahoo.com
>> <http://groups.yahoo.com/?soc_src=mail&soc_trk=ma> | Preview by Yahoo |
>> > | |
>> > | |
>> >
>> >
>> > setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para
>> master
>> > semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
>> > berlimpahan kebaikan dan kemudahan segala urusan. Amin
>> >
>> > Salam
>> > Haris
>> >
>>
>>
>>
>>
>>
>
>
pokoke kalau bisa, langsung ikutan aja...
2015-12-14 13:31 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Boleh ya mas Kid saya ikut jawab?
> Cdbl adalah fungsi yang mengubah type data text menjadi type data double
> coba baca pesanya microsoft di sini
> <https://msdn.microsoft.com/en-us/library/ftekwwt0%28v=vs.84%29.aspx>
> sekali lagi saya mohon maaf mas Kid karena lancang menjawab yang bukan
> kapasitasnya... (khan yang ditanya mas Kid) ... :D
> salam
>
> On Mon, Dec 14, 2015 at 1:07 PM, ris ha har1sn.excel@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Terima kasih pak Kenang Agus dan Mr. Kid
>>
>> Saya sedang merubah database yang menjadi rujukan. Awalnya database hanya
>> bertuliskan Min, Max atau NilaiKecil-NilaiBesar, sehingga membuat pusing
>> saya dalam merubah text menjadi numerik.
>>
>> yang saya mau tanyakan adalah CDbl itu penjelasannya gmn ya Mr. Kid?
>>
>> Semoga masih sabar membantu saya...
>>
>> Salam
>> Haris
>>
>>
>>
>> On Tuesday, December 8, 2015 6:24 PM, "'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>>
>>
>>
>> Wa'alaikumussalam wr wb
>>
>> hmmm....
>>
>> i c...
>> pinjem cekrip copasan mas Nang...
>>
>> Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
>> Len(Sheets("Sheet1").Range("B1").Value) - 4)
>>
>> dan beberapa info terkait.
>>
>> Sebaiknya di sheet bernama 'Sheet1' pada cells B1 diisi 12 saja, dengan
>> cara ketik angka 1 lalu angka 2 lalu tekan ENTER, supaya cells menyipan
>> data bertipe numerik. Plis... sempatkan belajar dan memahami datatype...
>> plis ya...
>>
>> Kemudian, cells B1 di klik kanan -> pilih Format Cells -> klik tab Number
>> -> pilih opsi Custom -> di Textbox formatnya ditulis lengkap begini (copas
>> juga boleh) :
>> "Min "0
>> lalu tekan OK
>>
>> Sekarang, cekrip yang bunyinya seperti di atas sana, yang bunyi begini :
>> Right(Sheets("Sheet1").Range("B1").Value,
>> Len(Sheets("Sheet1").Range("B1").Value) - 4)
>> diganti dengan :
>> Sheets("Sheet1").Range("B1").Value
>> Lalu, cells lain yang diperbandingkan dengan B1 ini, juga diambil dengan
>> cara yang sama, tapi disesuaikan alamat cells nya (ganti B1 dengan alamat
>> lain)
>> Jadi nanti bentuknya, kalau pakai IF di VBA :
>> if sheets("sheet1").range("b1").value > sheets("sheet1").range("alamat
>> cell lainnya disini").value then
>> 'baris kode proses ketika B1 > cells lain
>> else
>> 'baris kode proses ketika B1<= cells lain
>> endif
>>
>> Dengan demikian, regional setting apapun akan diproses dengan benar
>> karena nilai yang disimpan cells bertipe numerik.
>>
>>
>> Tentang :
>> 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada
>> UserForm,
>> >> Asumsi : Textbox untuk inputan user untuk nilai yang akan
>> diperbandingkan, dan Label untuk menampilkan isi B1 yang dibahas di atas
>> tadi.
>> >> di UserForm, baris untuk mengisi label nya memanfaatkan properti Text
>> milik si range, bunyinya begini (misal di Label bernama lblBatas)
>> lblBatas.caption=sheets("sheet1").range("b1").text
>> >> proses perbandingannya kalau pakai IF, adalah antara nilai (bertipe
>> text yang dikonversi menjadi bertipe numerik) dari textbox vs nilai B1 dari
>> sheet 'Sheet1'
>> *** Misal textbox bernama txtInput
>> 'misal proses validasi input agar pasti berisi numerik disini
>> 'jadi mulai baris ini, sudah pasti isi textbox bisa dikonversi menjadi
>> bertipe numerik
>> if sheets("sheet1").range("b1").value > cdbl( txtinput.text ) then
>> 'baris kode proses ketika B1 > isian di textbox
>> else
>> 'baris kode proses ketika B1<= isian di textbox
>> endif
>>
>>
>> Wassalamu'alaikum wr wb
>> Kid
>>
>>
>>
>> 2015-12-08 7:48 GMT+07:00 Nang Agus nangagus@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>
>> Walaikumsalam warahmatullah
>> Dear Haris,
>>
>> Cekrip yang bunyinya: Right(Sheets("Sheet1").Range("B1").Value,
>> Len(Sheets("Sheet1").Range("B1").Value) - 4)
>> menghasilkan data type text yang nilainya 12.0, sehingga berapapun
>> angka yang dimasukkan dibandingkan degan text 12.0 akan selalu lebih
>> kecil. untuk menyelesaikan masalah tersebut dapat dilakukan:
>> 1. mengubah text tersebut menjadi angka dengan mengalikan 1
>> Right(Sheets("Sheet1").Range("B1").Value,
>> Len(Sheets("Sheet1").Range("B1").Value) - 4)*1
>> 2. namun hasil dari perkalian di atas adalah 120, agar menjadi 12,0
>> dapat dilakukan dengan mengubah isi cell B1 menjadi 12,0 di cellnya
>> atau diubah dengan VBA.
>>
>> wasalamualaikum warahmatullah.
>> Kenang Agus
>>
>> On 12/7/15, ris ha har1sn.excel@yahoo.com [belajar-excel]
>> <belajar-excel@yahoogroups.com> wrote:
>> > Assalamu'alaikum.
>> >
>> > Mohon bantuan pada para master semua. Saya punya kasus tetang
>> membandingkan
>> > Nilai. Misal Nilai dibatasi Min 10.0 dengan batas itu, jika nilai lebih
>> > kecil dari batas maka akan keluar pesan.
>> > Saya mencoba dengan 2 cara (sama2 dengan Macro),
>> > 1. Saya membandingkan angka pada Cell dan hasilnya seperti yang
>> diharapkan.
>> >
>> > 2. Kemudian saya mencoba dengan menggunakan TexBox dan Label pada
>> UserForm,
>> > tetapi hasilnya tidak sama dengan tes yg pertama. File terlampir
>> >
>> > Saya sudah mencari, alhamdulillah ada yang mendekati seperti kasus yang
>> saya
>> > hadapi di
>> > Yahoo! Groups
>> >
>> > | |
>> > | | | | | | | |
>> > | Yahoo! GroupsDear Be-Excel, Saya memiliki script dimana fungsinya
>> untuk
>> > membandingkan nilai/angka pada jumlah pembelian dengan stok barang, tapi
>> > punya kendala. |
>> > | |
>> > | View on groups.yahoo.com
>> <http://groups.yahoo.com/?soc_src=mail&soc_trk=ma> | Preview by Yahoo |
>> > | |
>> > | |
>> >
>> >
>> > setelah saya utak utik seharian, g bisa. Mohon bantuannya kepada para
>> master
>> > semua atas solusi yang diberikan, semoga Allah Swt membalas dengan
>> > berlimpahan kebaikan dan kemudahan segala urusan. Amin
>> >
>> > Salam
>> > Haris
>> >
>>
>>
>>
>>
>>
>
>
Sun Dec 13, 2015 10:53 pm (PST) . Posted by:
agungraziqi
dear para master mohon pencerahan dari kasus saya berikut
saya kesulitan untuk menentukan kapan selesai dari target pekerjaan yang akan saya planning kan karena saya tidak bisa merubah waktu pengerjaan hasil perhitungan ke dalam format jam atau menit,
mohon pencerahannya
saya kesulitan untuk menentukan kapan selesai dari target pekerjaan yang akan saya planning kan karena saya tidak bisa merubah waktu pengerjaan hasil perhitungan ke dalam format jam atau menit,
mohon pencerahannya
Sun Dec 13, 2015 11:40 pm (PST) . Posted by:
"odong nando"
yoo agung,
= ( ROUNDDOWN ( E3 / 60 ; 0 ) & " : " & MOD ( E3 ; 60 ) ) + F3
ganti titik koma ";" dengan koma "," bila kompi setempat berigional english. br,
odong nando
Pada Senin, 14 Desember 2015 13:53, "agungraziqi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
dear para master mohon pencerahan dari kasus saya berikutsaya kesulitan untuk menentukan kapan selesai dari target pekerjaan yang akan saya planning kan karena saya tidak bisa merubah waktu pengerjaan hasil perhitungan ke dalam format jam atau menit,mohon pencerahannya #yiv3538041164 #yiv3538041164 -- #yiv3538041164ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3538041164 #yiv3538041164ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3538041164 #yiv3538041164ygrp-mkp #yiv3538041164hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3538041164 #yiv3538041164ygrp-mkp #yiv3538041164ads {margin-bottom:10px;}#yiv3538041164 #yiv3538041164ygrp-mkp .yiv3538041164ad {padding:0 0;}#yiv3538041164 #yiv3538041164ygrp-mkp .yiv3538041164ad p {margin:0;}#yiv3538041164 #yiv3538041164ygrp-mkp .yiv3538041164ad a {color:#0000ff;text-decoration:none;}#yiv3538041164 #yiv3538041164ygrp-sponsor #yiv3538041164ygrp-lc {font-family:Arial;}#yiv3538041164 #yiv3538041164ygrp-sponsor #yiv3538041164ygrp-lc #yiv3538041164hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3538041164 #yiv3538041164ygrp-sponsor #yiv3538041164ygrp-lc .yiv3538041164ad {margin-bottom:10px;padding:0 0;}#yiv3538041164 #yiv3538041164actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3538041164 #yiv3538041164activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3538041164 #yiv3538041164activity span {font-weight:700;}#yiv3538041164 #yiv3538041164activity span:first-child {text-transform:uppercase;}#yiv3538041164 #yiv3538041164activity span a {color:#5085b6;text-decoration:none;}#yiv3538041164 #yiv3538041164activity span span {color:#ff7900;}#yiv3538041164 #yiv3538041164activity span .yiv3538041164underline {text-decoration:underline;}#yiv3538041164 .yiv3538041164attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3538041164 .yiv3538041164attach div a {text-decoration:none;}#yiv3538041164 .yiv3538041164attach img {border:none;padding-right:5px;}#yiv3538041164 .yiv3538041164attach label {display:block;margin-bottom:5px;}#yiv3538041164 .yiv3538041164attach label a {text-decoration:none;}#yiv3538041164 blockquote {margin:0 0 0 4px;}#yiv3538041164 .yiv3538041164bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3538041164 .yiv3538041164bold a {text-decoration:none;}#yiv3538041164 dd.yiv3538041164last p a {font-family:Verdana;font-weight:700;}#yiv3538041164 dd.yiv3538041164last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3538041164 dd.yiv3538041164last p span.yiv3538041164yshortcuts {margin-right:0;}#yiv3538041164 div.yiv3538041164attach-table div div a {text-decoration:none;}#yiv3538041164 div.yiv3538041164attach-table {width:400px;}#yiv3538041164 div.yiv3538041164file-title a, #yiv3538041164 div.yiv3538041164file-title a:active, #yiv3538041164 div.yiv3538041164file-title a:hover, #yiv3538041164 div.yiv3538041164file-title a:visited {text-decoration:none;}#yiv3538041164 div.yiv3538041164photo-title a, #yiv3538041164 div.yiv3538041164photo-title a:active, #yiv3538041164 div.yiv3538041164photo-title a:hover, #yiv3538041164 div.yiv3538041164photo-title a:visited {text-decoration:none;}#yiv3538041164 div#yiv3538041164ygrp-mlmsg #yiv3538041164ygrp-msg p a span.yiv3538041164yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3538041164 .yiv3538041164green {color:#628c2a;}#yiv3538041164 .yiv3538041164MsoNormal {margin:0 0 0 0;}#yiv3538041164 o {font-size:0;}#yiv3538041164 #yiv3538041164photos div {float:left;width:72px;}#yiv3538041164 #yiv3538041164photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3538041164 #yiv3538041164photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3538041164 #yiv3538041164reco-category {font-size:77%;}#yiv3538041164 #yiv3538041164reco-desc {font-size:77%;}#yiv3538041164 .yiv3538041164replbq {margin:4px;}#yiv3538041164 #yiv3538041164ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3538041164 #yiv3538041164ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3538041164 #yiv3538041164ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3538041164 #yiv3538041164ygrp-mlmsg select, #yiv3538041164 input, #yiv3538041164 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3538041164 #yiv3538041164ygrp-mlmsg pre, #yiv3538041164 code {font:115% monospace;}#yiv3538041164 #yiv3538041164ygrp-mlmsg * {line-height:1.22em;}#yiv3538041164 #yiv3538041164ygrp-mlmsg #yiv3538041164logo {padding-bottom:10px;}#yiv3538041164 #yiv3538041164ygrp-msg p a {font-family:Verdana;}#yiv3538041164 #yiv3538041164ygrp-msg p#yiv3538041164attach-count span {color:#1E66AE;font-weight:700;}#yiv3538041164 #yiv3538041164ygrp-reco #yiv3538041164reco-head {color:#ff7900;font-weight:700;}#yiv3538041164 #yiv3538041164ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3538041164 #yiv3538041164ygrp-sponsor #yiv3538041164ov li a {font-size:130%;text-decoration:none;}#yiv3538041164 #yiv3538041164ygrp-sponsor #yiv3538041164ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3538041164 #yiv3538041164ygrp-sponsor #yiv3538041164ov ul {margin:0;padding:0 0 0 8px;}#yiv3538041164 #yiv3538041164ygrp-text {font-family:Georgia;}#yiv3538041164 #yiv3538041164ygrp-text p {margin:0 0 1em 0;}#yiv3538041164 #yiv3538041164ygrp-text tt {font-size:120%;}#yiv3538041164 #yiv3538041164ygrp-vital ul li:last-child {border-right:none !important;}#yiv3538041164
= ( ROUNDDOWN ( E3 / 60 ; 0 ) & " : " & MOD ( E3 ; 60 ) ) + F3
ganti titik koma ";" dengan koma "," bila kompi setempat berigional english. br,
odong nando
Pada Senin, 14 Desember 2015 13:53, "agungraziqi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
dear para master mohon pencerahan dari kasus saya berikutsaya kesulitan untuk menentukan kapan selesai dari target pekerjaan yang akan saya planning kan karena saya tidak bisa merubah waktu pengerjaan hasil perhitungan ke dalam format jam atau menit,mohon pencerahannya #yiv3538041164 #yiv3538041164 -- #yiv3538041164ygrp-
Mon Dec 14, 2015 12:03 am (PST) . Posted by:
"Nang Agus"
Dear agung;
Pakai formula yang ini juga boleh:
=E3/1440+F3
angka yang 100 menit dibagi dengan 1440 baru ditambahkan dengan start.
1440 = 24 jam * 60 menit
salam
On Mon, Dec 14, 2015 at 2:39 PM, odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> yoo agung,
>
> = ( ROUNDDOWN ( E3 / 60 ; 0 ) & " : " & MOD ( E3 ; 60 ) ) + F3
>
> ganti titik koma ";" dengan koma "," bila kompi setempat berigional
> english.
>
> br,
>
> odong nando
>
>
>
> Pada Senin, 14 Desember 2015 13:53, "agungraziqi@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> dear para master mohon pencerahan dari kasus saya berikut
> saya kesulitan untuk menentukan kapan selesai dari target pekerjaan yang
> akan saya planning kan karena saya tidak bisa merubah waktu pengerjaan
> hasil perhitungan ke dalam format jam atau menit,
> mohon pencerahannya
>
>
>
>
Pakai formula yang ini juga boleh:
=E3/1440+F3
angka yang 100 menit dibagi dengan 1440 baru ditambahkan dengan start.
1440 = 24 jam * 60 menit
salam
On Mon, Dec 14, 2015 at 2:39 PM, odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> yoo agung,
>
> = ( ROUNDDOWN ( E3 / 60 ; 0 ) & " : " & MOD ( E3 ; 60 ) ) + F3
>
> ganti titik koma ";" dengan koma "," bila kompi setempat berigional
> english.
>
> br,
>
> odong nando
>
>
>
> Pada Senin, 14 Desember 2015 13:53, "agungraziqi@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> dear para master mohon pencerahan dari kasus saya berikut
> saya kesulitan untuk menentukan kapan selesai dari target pekerjaan yang
> akan saya planning kan karena saya tidak bisa merubah waktu pengerjaan
> hasil perhitungan ke dalam format jam atau menit,
> mohon pencerahannya
>
>
>
>
============================================================
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
---------------------------------------------------------------------
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