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.ex...@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.nm...@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 nanga...@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.ex...@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
> >
>
>
>
>
>
>
