Nyobain Rumus Terbilang di Excel

Sungguh merepotkan jika waktu dan keadaan sudah menuntut. jalan alternatif sudah tentu menjadi pilihan... upsss tapi dengan satu syarat alternatif itu harus benar bukan jalan pintas yang buruk... entar jadi kriminal lagi... he.... :p.
Seperti halnya dalam mempercepat mengetik kata terbilang dalam nilai rupiah. mungkin saja kita sering salah dalam menguraikan kata tersebut. apabila jika jumlah itu sampai miliaran atau triliunan rupiah. tapi jangan khawatir.. mungkin sedikit script terbilang ini bisa membantu... he.... :p
berikut langkah-langkahnya...

1.Pilih Opsi Tool - Macro - Visual Basic Editor atau tekan Alt + F11
2. Klik Kanan Pada This Workbook dan Pilih Inser Module
3. Copy Script Ini
Option Explicit

'***************
' Fungsi Utama
' Mengubah Angka Menjadi Teks
' Boro Kokokkkkk Thanks to Sri Pamungkas
'***************

Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg

ReDim Place(9) As String
Place(2) = "Ribu "
Place(3) = "Juta "
Place(4) = "Milyar "
Place(5) = "Trilyun "

'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))

'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If

'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If

Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Select Case Rupiah
Case ""
Rupiah = "Nol Rupiah"
Case Else
Rupiah = Rupiah & "Rupiah"
End Select

Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen & "sen"
End Select

If IsNeg = True Then
Terbilang = "minus " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If

End Function


'**************************************
' Mengubah angka 100-999 menjadi teks *
'**************************************
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp

If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)

'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "se"
Exit Function
End If

'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "Seratus "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "Ratus "
End If
End If

'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If

Ratusan = Result

End Function


'*******************
' Mengubah puluhan *
'*******************
Function Puluhan(TeksPuluhan)
Dim Result As String

Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "Sepuluh "
Case 11: Result = "Sebelas "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "Belas "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "Puluh "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function


'********************************
' Mengubah satuan menjadi teks. *
'********************************
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "Satu "
Case 2: Satuan = "Dua "
Case 3: Satuan = "Tiga "
Case 4: Satuan = "Empat "
Case 5: Satuan = "Lima "
Case 6: Satuan = "Enam "
Case 7: Satuan = "Tujuh "
Case 8: Satuan = "Delapan "
Case 9: Satuan = "Sembilan "
Case Else: Satuan = ""
End Select
End Function

4. Close and Return to Excel ( Alt+Q)
5. Cobain deh pake =terbilang(cell angkanya)

Memaknai Kehidupan ( Why Your Living )

"Sebaik-baik manusia adalah orang yang diberi umur panjang dan baik amalnya. Sebaliknya sejelek-jelk manusia adalah orang yang diberi umur panjang namun jelek amalnya"

Hidup merupakan ruang gerak bagi manusia. Jika manusia tidak bergerak, akan tampak seperti mayat. Begitu juga dengan khidupan, jika tidak ada kehidupan, alam ini hanya dihiasi dengan kesunyian. Namun, permasalannya bagaimana manusia menjalani kehidupan dengan baik, menjalani kehidupan yang penuh dengan onak dan cabaran, menghadapi gagap gempitnya kehidupan, sehingga berbuah manfaat di dunia dan akhirat.

Menurut islam, hidup bagi manusia bukan suat yang sia-sia. Hidup adalah titipan ilahi untuk memberi kesempatan, lalu dapat diketahui siapa diantara manusia yang paling baik amalnya. Lantas, apa tujuan hidup kita yang sebenarnya?

Tujuan kita hidup didunia ( Our aim lives in the world ) adalah untuk hidup. Maksudnya, hidup kita didunia merupakan perbendaharaan untuk hidup kita diakhirat kelak. Jika kita hidup di dunia dengan menaruh benih kebaikan, maka di kehidupan selanjutnya (di akhirat) kita akan menuai kebaikan pula. Begitupun sebaliknya, jika kita hidup di dunia dengan menaruh benih keburukan, maka keburukan pula yang akan kita dapatkan di kehidupan selanjutnya. Manusia diberi kehidupan di dunia untuk dipertanggung jawabkan setelah kematian.

Suatu ketika, khalifah Sulaiman bin Abdul Malik mengajukan dua petanyaan kepada Abu Hazm, " Mengapa kita begitu betah hidup di dunia yang penuh dengan cobaan dan ujian, padahal panas dan perubahan fisik manusia dari masa ke masa pada hakikatnya adalh langkah langkah ajal menuju liang kubur?" Abu Hazm menjawab, " karena kita terlalu berminat membangun istana di dunia dan lupa membangun istan di akhirat. "

Pertanyaan yang kedua, " Tebakalah nasibku di akhirat? " Abu Hazm menjawab,"Bercerminlah pada Al-Quran, renungkanlah perintah-perintah yang telah Baginda lakukan dan larangan-larangan yang telah Baginda hindari, disana nasib Baginda akan terjawab.

Ada kata bijak dari Ibnu Talmiyah, " Bila di hatimu tak ada kelezatan yang bisa kamu dapatkan dari amal yang kamu lakukan, maka curigailah hatimu, "Semoga kita dapat menjalani hidup ini dengan hati yang tawakal"

Hikmah oleh Muhammad Shofwan.