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' [email protected]
[belajar-excel]" <[email protected]> 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 [email protected] [belajar-excel]
<[email protected]>:
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 [email protected] [belajar-excel]
<[email protected]> 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
