wakakaka... pokoke kalau bisa, langsung ikutan aja...
2015-12-14 13:31 GMT+07:00 Nang Agus [email protected] [belajar-excel] < [email protected]>: > > > 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 [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... >> >> Salam >> Haris >> >> >> >> 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").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 [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 >> <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 >> > >> >> >> >> >> > >
