Eee maaf, udh ada didalam artikel yg dikasing pak Agus. makasih
Salam
On Monday, December 14, 2015 1:42 PM, ris ha <[email protected]> wrote:
Terima kasih pak Agus, kl CLng itu penjelasannya gmn ya?
SalamHaris
On Monday, December 14, 2015 1:31 PM, "Nang Agus [email protected]
[belajar-excel]" <[email protected]> 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 [email protected] [belajar-excel]
<[email protected]> 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' [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
>
#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
