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 | 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
> >
>
>
