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
>
