Pernahkah Anda kesulitan ketika ingin membulatkan sebuah angka ke dalam kelipatan seratus ke atas berikutnya? Contoh: Anda memiliki angka 729, dan Anda ingin membulatkan angka tersebut ke kelipatan seratus ke atas sehingga menjadi 800. Sedangkan jika angkanya tepat kelipatan seratus, proses pembulatan akan diabaikan. Untuk mengatasi hal ini, Anda bisa menggunakan fungsi khusus yang saya buat. Fungsi ini bahkan bisa juga Anda gunakan melalui fitur Macro di Microsoft Excel. Berikut ini code selengkapnya.
Deskripsi:
Deskripsi:
Membulatkan angka ke dalam kelipatan seratus berikutnya
Contoh:
Anda memiliki angka 101, maka jika dibulatkan
ke dalam kelipatan seratus berikutnya, hasilnya adalah 200.
Contoh:
Anda memiliki angka 101, maka jika dibulatkan
ke dalam kelipatan seratus berikutnya, hasilnya adalah 200.
Persiapan:
1. Buat sebuah project standard exe dengan satu form.
2. Tambahkan satu CommandButton ke atas form.
3. Copy-paste code berikut ke editor form yang bertalian.
2. Tambahkan satu CommandButton ke atas form.
3. Copy-paste code berikut ke editor form yang bertalian.
Public Function BulatkanAngka(lngAngka As Long) As Long
If lngAngka Mod 100 > 0 Then
Dim lngHasil As Long
lngHasil = lngAngka \ 100
BulatkanAngka = (lngHasil * 100) + 100
Else
BulatkanAngka = lngAngka
End If
End Function
Private Sub Command1_Click()
Ulangi:
Dim lngAngka As Long
If lngAngka = 0 Then lngAngka = 729
lngAngka = InputBox("Masukkan sebuah angka!", "Angka", lngAngka)
MsgBox "Angka " & lngAngka & " setelah dibulatkan ke dalam " & vbCrLf & _
"kelipatan seratus berikutnya adalah: " & BulatkanAngka(lngAngka)
If MsgBox("Ulangi lagi?", vbQuestion + vbYesNo, "Ulangi?") = vbNo Then
Exit Sub
Else
GoTo Ulangi
End If
End Sub
If lngAngka Mod 100 > 0 Then
Dim lngHasil As Long
lngHasil = lngAngka \ 100
BulatkanAngka = (lngHasil * 100) + 100
Else
BulatkanAngka = lngAngka
End If
End Function
Private Sub Command1_Click()
Ulangi:
Dim lngAngka As Long
If lngAngka = 0 Then lngAngka = 729
lngAngka = InputBox("Masukkan sebuah angka!", "Angka", lngAngka)
MsgBox "Angka " & lngAngka & " setelah dibulatkan ke dalam " & vbCrLf & _
"kelipatan seratus berikutnya adalah: " & BulatkanAngka(lngAngka)
If MsgBox("Ulangi lagi?", vbQuestion + vbYesNo, "Ulangi?") = vbNo Then
Exit Sub
Else
GoTo Ulangi
End If
End Sub
0 komentar:
Posting Komentar