BULATKAN ANGKA DI EXCEL

Mulai lagi dengan kegiatan posting memporsting, masih sekitar excel  ya.. tapi tidak lepas dari namanya programming, sebenarnya ini sudah kita bahas pada posting yang lalu di Visual basic, tapi saya menekankan bagaimana mengkonversi skrip VB6 ke excel, pada pastingan sebelumnya sudah diulas bagai mana menerjemahkan angka dengan huruf, jadi cara bagaimana memunculkan menu DEVELOPER tidak akan diulas lagi, bagi yang belum tau caranya, kembali ke postingan lalu dulu ya.. baru deh ikutan lagi di postingan ini. Lanjut yuk.. seperti biasa kita bikin desain dulu, biar di skrip kita bisa menentukan CELL mana yang akan kita ketik, kalo saya sih bikin desain sederhana, lihat dibawah ini:

 

Nahh.. sobat bisa mendesain sesuka hati dan mau ditempatkan dimana saja ASAL .. posisi RANGE harus sesuai dengan yang ada si skrip, tinggal merubah saja kok, kita maen di 2 CELL sebenarnya satu untuk inputan angka dan satu lagi untuk menampilkan hasil pembulatan, kali ini kita mencoba membulatkan angka ke dalam RIBUAN, seperti contoh nih.. 2.345 akan menjadi 3.000, 23.450 akan menjadi 24.000 dan seterusnya, ngerti kan?? Pasti dong yang berkunjung ke sini kan orang orang pinter hahaha..

Seperti biasa kita lari ke menu DEVELOPER lalu klik SOURCE seperti langkah di postingan sebelumnya, sehingga muncul VBA lalu kita ketikan skrip dibawah ini, KETIKAN ini perintah penulis sih kalo mau COPY PASTE ya monggo lah, tapi kl kita ngetik itu sambil belajar hehe..,

‘-----------------------SKRIP-----------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim ujung As Double

Dim bulat As Double

Dim isinya As Double

ujung = Right$(Worksheets(1).Range("C3").Value, 3)

If (ujung > 0) And (ujung < 999) Then

bulat = 1000 - ujung

isinya = bulat + CDbl(Worksheets(1).Range("C3").Value)

Worksheets(1).Range("C4").Value = isinya

End If

MsgBox "Terima kasih sudah menggunakan program ini, kunjungi www.semesta-abu.co.nr klik iklannya", vbInformation, "THANK U"

End Sub

‘----------------END SKRIP---------------------------

Dikit kan?? Ngga sampe satu jam tuh, kalo sobat mau merubah ke dalam pembulatan seratus yang perlu diganti adalah :

ujung = Right$(Worksheets(1).Range("C3").Value, 3)

If (ujung > 0) And (ujung < 999) Then

bulat = 1000 – ujung

Ket1: Right$(Worksheets(1).Range("C3").Value, 3) diganti dengan Right$(Worksheets(1).Range("C3").Value, 2), angka 2 itu kan di bawah 99 dan diatas 0 pastinya

Ket2: If (ujung > 0) And (ujung < 999) Then diganti dengan If (ujung > 0) And (ujung < 99) Then, karena angka diantara 0-99 itu akan kita bulatkan menjadi 100

Ket3: bulat = 1000 – ujung diganti dengan 100, patokan penghitungan ratusan

Kalo mau diganti angka 500 contohnya bisa, tinggal disesuaikan aja tuh angka-angkanya.

Nah kalo sudah jadi coba sobat test ya.. jangan2 ada yang salah, tapi punya saya sih jalan and hasilnya sesuai dengan yang diinginkan, sebaiknya file disimpan dengan format XLS.. tidak lupa saya unggah juga contoh yang sudah saya buat untuk tutorial ini agar pembaca bisa mengunduhnya, silahkan donlod disini

Akhir kata de sela sela kesibukan jam istirahat,* istirahat kok sibuk??? * Saya ucapkan terima kasih sudah berkunjung dan mengikuti tutorial yang saya sajikan.