'Fungsi Terbilang dengan VBA untuk MS Office
'Ditulis oleh Bocah Brumbung
'Fungsi penterjemahan masing-masing angka
Private Function KeKata(Nomor)
TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan")
KeKata = TrjKata(Nomor)
End Function
'Mulai penulisan Fungsi Terbilang
Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional Satuan = "")
Angka = Fix(Abs(Nilai_Angka))
'Desimal dibelakang koma
des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)
des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)
If des2 = "" Then
If des1 = "" Or des1 = "0" Then
Koma = ""
Else
Koma = " koma " & KeKata(des1)
End If
ElseIf des2 = "0" Then
If des1 = "0" Then
Koma = ""
ElseIf des1 = "1" Then
Koma = " koma sepuluh"
Else
Koma = " koma " & KeKata(des1) & " puluh"
End If
Else
If des1 = "0" Then
Koma = " koma nol " & KeKata(des2)
ElseIf des1 = "1" Then
If des2 = "1" Then
Koma = " koma sebelas"
Else
Koma = " koma " & KeKata(des2) & " belas"
End If
Else
Koma = " koma " & KeKata(des1) & " puluh " & KeKata(des2)
End If
End If
'Misahin Angka
No1 = Left(Right(Angka, 1), 1)
No2 = Left(Right(Angka, 2), 1)
No3 = Left(Right(Angka, 3), 1)
No4 = Left(Right(Angka, 4), 1)
No5 = Left(Right(Angka, 5), 1)
No6 = Left(Right(Angka, 6), 1)
No7 = Left(Right(Angka, 7), 1)
No8 = Left(Right(Angka, 8), 1)
No9 = Left(Right(Angka, 9), 1)
No10 = Left(Right(Angka, 10), 1)
No11 = Left(Right(Angka, 11), 1)
No12 = Left(Right(Angka, 12), 1)
No13 = Left(Right(Angka, 13), 1)
No14 = Left(Right(Angka, 14), 1)
No15 = Left(Right(Angka, 15), 1)
'Satuan
If Len(Angka) >= 1 Then
If Len(Angka) = 1 And No1 = 1 Then
Nomor1 = "satu"
ElseIf Len(Angka) = 1 And No1 = 0 Then
Nomor1 = "Nol"
ElseIf No2 = "1" Then
If No1 = "1" Then
Nomor1 = "sebelas"
ElseIf No1 = "0" Then
Nomor1 = "sepuluh"
Else
Nomor1 = KeKata(No1) & " belas"
End If
Else
Nomor1 = KeKata(No1)
End If
Else
Nomor1 = ""
End If
'Puluhan
If Len(Angka) >= 2 Then
If No2 = 1 Or No2 = "0" Then
Nomor2 = ""
Else
Nomor2 = KeKata(No2) & " puluh "
End If
Else
Nomor2 = ""
End If
'Ratusan
If Len(Angka) >= 3 Then
If No3 = "1" Then
Nomor3 = "seratus "
ElseIf No3 = "0" Then
Nomor3 = ""
Else
Nomor3 = KeKata(No3) & " ratus "
End If
Else
Nomor3 = ""
End If
'Ribuan
If Len(Angka) >= 4 Then
If No6 = "0" And No5 = "0" And No4 = "0" Then
Nomor4 = ""
ElseIf (No4 = "1" And Len(Angka) = 4) Or (No6 = "0" And No5 = "0" And No4 = "1") Then
Nomor4 = "seribu "
ElseIf No5 = "1" Then
If No4 = "1" Then
Nomor4 = "sebelas ribu "
ElseIf No4 = "0" Then
Nomor4 = "sepuluh ribu "
Else
Nomor4 = KeKata(No4) & " belas ribu "
End If
Else
Nomor4 = KeKata(No4) & " ribu "
End If
Else
Nomor4 = ""
End If
'Puluhan ribu
If Len(Angka) >= 5 Then
If No5 = "1" Or No5 = "0" Then
Nomor5 = ""
Else
Nomor5 = KeKata(No5) & " puluh "
End If
Else
Nomor5 = ""
End If
'Ratusan Ribu
If Len(Angka) >= 6 Then
If No6 = "1" Then
Nomor6 = "seratus "
ElseIf No6 = "0" Then
Nomor6 = ""
Else
Nomor6 = KeKata(No6) & " ratus "
End If
Else
Nomor6 = ""
End If
'Jutaan
If Len(Angka) >= 7 Then
If No9 = "0" And No8 = "0" And No7 = "0" Then
Nomor7 = ""
ElseIf No7 = "1" And Len(Angka) = 7 Then
Nomor7 = "satu juta "
ElseIf No8 = "1" Then
If No7 = "1" Then
Nomor7 = "sebelas juta "
ElseIf No7 = "0" Then
Nomor7 = "sepuluh juta "
Else
Nomor7 = KeKata(No7) & " belas juta "
End If
Else
Nomor7 = KeKata(No7) & " juta "
End If
Else
Nomor7 = ""
End If
'Puluhan juta
If Len(Angka) >= 8 Then
If No8 = "1" Or No8 = "0" Then
Nomor8 = ""
Else
Nomor8 = KeKata(No8) & " puluh "
End If
Else
Nomor8 = ""
End If
'Ratusan juta
If Len(Angka) >= 9 Then
If No9 = "1" Then
Nomor9 = "seratus "
ElseIf No9 = "0" Then
Nomor9 = ""
Else
Nomor9 = KeKata(No9) & " ratus "
End If
Else
Nomor9 = ""
End If
'Milyar
If Len(Angka) >= 10 Then
If No12 = "0" And No11 = "0" And No10 = "0" Then
Nomor10 = ""
ElseIf No10 = "1" And Len(Angka) = 10 Then
Nomor10 = "satu milyar "
ElseIf No11 = "1" Then
If No10 = "1" Then
Nomor10 = "sebelas milyar "
ElseIf No10 = "0" Then
Nomor10 = "sepuluh milyar "
Else
Nomor10 = KeKata(No10) & " belas milyar "
End If
Else
Nomor10 = KeKata(No10) & " milyar "
End If
Else
Nomor10 = ""
End If
'Puluhan Milyar
If Len(Angka) >= 11 Then
If No11 = "1" Or No11 = "0" Then
Nomor11 = ""
Else
Nomor11 = KeKata(No11) & " puluh "
End If
Else
Nomor11 = ""
End If
'Ratusan Milyar
If Len(Angka) >= 12 Then
If No12 = "1" Then
Nomor12 = "seratus "
ElseIf No12 = "0" Then
Nomor12 = ""
Else
Nomor12 = KeKata(No12) & " ratus "
End If
Else
Nomor12 = ""
End If
'Triliun
If Len(Angka) >= 13 Then
If No15 = "0" And No14 = "0" And No13 = "0" Then
Nomor13 = ""
ElseIf No13 = "1" And Len(Angka) = 13 Then
Nomor13 = "satu triliun "
ElseIf No14 = "1" Then
If No13 = "1" Then
Nomor13 = "sebelas triliun "
ElseIf No13 = "0" Then
Nomor13 = "sepuluh triliun "
Else
Nomor13 = KeKata(No13) & " belas triliun "
End If
Else
Nomor13 = KeKata(No13) & " triliun "
End If
Else
Nomor13 = ""
End If
'Puluhan triliun
If Len(Angka) >= 14 Then
If No14 = "1" Or No14 = "0" Then
Nomor14 = ""
Else
Nomor14 = KeKata(No14) & " puluh "
End If
Else
Nomor14 = ""
End If
'Ratusan triliun
If Len(Angka) >= 15 Then
If No15 = "1" Then
Nomor15 = "seratus "
ElseIf No15 = "0" Then
Nomor15 = ""
Else
Nomor15 = KeKata(No15) & " ratus "
End If
Else
Nomor15 = ""
End If
If Len(Angka) > 15 Then
bilang = "Digit Angka Terlalu Banyak"
Else
If IsNull(Nilai_Angka) Then
bilang = ""
ElseIf Nilai_Angka < 0 Then
bilang = "minus " & Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _
& Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " & Satuan)
Else
bilang = Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _
& Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " & Satuan)
End If
End If
If Style = 4 Then
terbilang = StrConv(Left(bilang, 1), 1) & StrConv(Mid(bilang, 2, 1000), 2)
Else
terbilang = StrConv(bilang, Style)
End If
terbilang = Replace(terbilang, " ", " ", 1, 1000, vbTextCompare)
End Function
Sub Macro2()
'
' Macro2 Macro
'
'
Application.Goto Reference:="Macro2"
End Sub
Materi Pembelajaran Masalah Pertumbuhan Hewan Dan Tanaman
Mata Pelajaran IPA Kelas II Semester I
SK : 2. Pertumbuhan Hewan dan Tanaman
KD : 2.4. Mengenal Pertumbuhan pada Hewan dan Tanaman
A. Pertumbuhan pada Hewan
Setiap hewan akan mengalami pertumbuhan dari kecil sampai besar dan dapat tumbuh karena makan dan minum.
Contohnya pada hewan berkaki dua yaitu ayam.
Ayam merupakan hewan yang berkembang biak dengan bertelur. Ayam betina dapat menghasilkan 1 telur setiap hari. Telur yang dapat dihasilkan berkisar 7 hingga 12 telur. Setelah masa bertelur, ayam akan mengerami telurnya. Ayam mengerami telurnya selama 21 hari. Telur ayam menetas menjadi anak ayam. Anak ayam masih memiliki ukuran tubuh yang kecil. Bulu-bulu di tubuhnya masih halus. Anak ayam belum memiliki ekor. Di bagian kepalanya belum tumbuh jengger. Gerakannya lambat suaranya kecil saat menciap. Anak ayam tersebut makan dan minum setiap hari. Ukuran tubuhnya pun bertambah besar sampai menjadi dewasa. Gerakannya mulai lincah. Bagian ekor dan jenggernya turut tumbuh. Bulu-bulunya membesar dan agak kasar. Ayam jantan memiliki ekor yang lebih panjang daripada ekor betina.
Ayam merupakan hewan yang berkembang biak dengan bertelur. Ayam betina dapat menghasilkan 1 telur setiap hari. Telur yang dapat dihasilkan berkisar 7 hingga 12 telur. Setelah masa bertelur, ayam akan mengerami telurnya. Ayam mengerami telurnya selama 21 hari. Telur ayam menetas menjadi anak ayam. Anak ayam masih memiliki ukuran tubuh yang kecil. Bulu-bulu di tubuhnya masih halus. Anak ayam belum memiliki ekor. Di bagian kepalanya belum tumbuh jengger. Gerakannya lambat suaranya kecil saat menciap. Anak ayam tersebut makan dan minum setiap hari. Ukuran tubuhnya pun bertambah besar sampai menjadi dewasa. Gerakannya mulai lincah. Bagian ekor dan jenggernya turut tumbuh. Bulu-bulunya membesar dan agak kasar. Ayam jantan memiliki ekor yang lebih panjang daripada ekor betina.
Pertumbuhan juga terjadi pada hewan berkaki empat yaitu kambing.
Anak kambing yang baru lahir tubuhnya kecil. Tubuh anak kambing masih lemah. Gerakannya masih lambat. Anak kambing menyusu pada induknya. Anak kambing mengalami pertumbuhan. Tubuh kambing bertambah besar dan tinggi, berat badannya bertambah. Kakinya semakin panjang dan besar. Gerakannyabertambah lincah dan cepat. Suaranya bertambah besar. Kambing jantan dewasa tumbuh tanduknya. Tanduk untuk membela diri.
Anak kambing yang baru lahir tubuhnya kecil. Tubuh anak kambing masih lemah. Gerakannya masih lambat. Anak kambing menyusu pada induknya. Anak kambing mengalami pertumbuhan. Tubuh kambing bertambah besar dan tinggi, berat badannya bertambah. Kakinya semakin panjang dan besar. Gerakannyabertambah lincah dan cepat. Suaranya bertambah besar. Kambing jantan dewasa tumbuh tanduknya. Tanduk untuk membela diri.
B. Pertumbuhan pada Tanaman
Tidak hanya hewan, tumbuhan pun mengalami pertumbuhan. Baik itu pertumbuhan besar, tinggi, ataupun kelengkapan bagian tubuhnya. Ada tumbuhan yang berasal dari biji. Contohnya jambu, mangga, manggis dan rambutan. Sekarang kalian akan belajar pertumbuhan tanaman kacang merah. Tumbuhan kacang merah dapat tumbuh dari bijinya. Biji yang dapat tumbuh ialah biji yang tua. Tandanya, biji sudah mulai kering dan agak keras. Biji tersebut disimpan di tanah. Lama kelamaan akan tumbuh akar dan tunas. Akar dan tunas itu disebut kecambah. Akhirnya, batang kacang merah akan bertambah tinggi. Daunnya bertambah lebar dan bertambah jumlahnya. Akarnya bertambah panjang dan bijinya semakin kecil.
Tumbuhan kacang merah tumbuh bukan hanya karena ada air. Akan tetapi, karena ada makanan dari biji. Bagaimana jika bijinya sudah habis? Jika biji telah habis tanaman yang tumbuh sudah memiliki daun. Melalui daun, tanaman dapat membuat makanan sendiri. Oleh karena itu, masih tetap hidup, meskipun bijinya telah habis. Akar berfungsi untuk menyerap air dari tanah. Akar juga berfungsi untuk menyerap bahan-bahan dari tanah, air dan bahan-bahan tersebut berguna untuk tumbuh.
Ada juga tumbuhan yang berasal dari batang. Contohnya pohon singkong. Batang singkong dapat ditanam. Dari batang akan tumbuh tunas. Tunas tumbuh menjadi batang dan daun. Semakin lama batang semakin tinggi. Semakin lama daun bertambah banyak, akhirnya tumbuhan menjadi besar.
Pertumbuhan pada tanaman ditandai oleh batang bertambah tinggi dan besar, daun bertambah banyak dan lebar dan ranting bertambah banyak.
Awalnya anak kecil ini diajak bermain dengan kakaknya, entah kenapa saat dia melihat kucing eh malah pergi dan mengejar kucing tersebut. setelahnya dia menghampiri kucing itu aku kira mau di suruh keluar dari rumah, eh ternyata malah di ajak bermain, bercanda gurau hingga kakaknya pun tak bisa menahan ketawa karena melihat tingkah laku adiknya saat bermain dengan kucing hitam.
ini cerita adek ku, mana cerita adekmu .......??
ABOUT AUTHOR
Follow us
POPULAR POSTS
-
YAYASAN WALI SEMBILAN TAMAN PENDIDIKAN AL-QUR’AN (TPQ) " AN - NUR" NSPQ : 111.1.11.11.1111 Jl. Sunan Kalijaga No....
-
Sinopsis : Boruto adalah putra atau anak dari Uzumaki Naruto, sang Hokage Ketujuh yang begitu dihormati karena jasanya dalam menyelamat...
-
Assalamualaikum, Wr. Wb. Selamat pagi sobat sekalian, kali ini admin mau berbagi info tentang UNBK tahun 2018 yang mana telah dilaksa...
-
Surat Pengantar Mohon SKCK adalah surat yang dikeluarkan dari Desa/Kelurahan, surat ini digunakan/dikeluarkan untuk melengkapi persyaratan ...
-
BAB III III. KELAS MAYA A. Deskripsi Pembelajaran dengan memanfaatkan kelas maya (cyber class) merupakan sebuah upaya untuk mendorong...
-
Materi Pembelajaran Masalah Pertumbuhan Hewan Dan Tanaman Mata Pelajaran IPA Kelas II Semester I SK : 2. Pertumbuhan Hewan dan Tan...
-
Awalnya anak kecil ini diajak bermain dengan kakaknya, entah kenapa saat dia melihat kucing eh malah pergi dan mengejar kucing tersebut. se...
-
Assalamualaikum sobaat ...!! Berjumpa lagi dengan si Bocah Brumbung, kali ini saya mau berbagi ilmu yaa walaupun di internet sih sudah ba...
-
Sinopsis Boruto: Naruto Next Generations: Boruto adalah putra atau anak dari Uzumaki Naruto, sang Hokage Ketujuh yang begitu dihormati k...
Categories
- Artikel 3
- Berita 17
- Cerita 3
- Cerita Sejarah 1
- Contoh Makalah 1
- Contoh Surat 4
- Dapodik Paud 4
- Dapopaudni 2
- Fasting 1
- Gallery 1
- Kitab 1
- Materi Pelajaran SD/ MI Kelas 2 1
- Musik 1
- Simpatika 2
- Software 1
- Tips & Trik 1
- Tutorial 6
- Video Boruto 2