Rumus Terbilang Untuk Microsoft Ecxel 2007

TERBILANG

Membuat Fungsi Terbilang :
1. Buka File Excel Anda yang akan dibuat fungsi terbilang.
2. Tekan Tombol Alt+F11 = Visual Basic Editor
3. Buat modul baru Insert => Module
4. Copy kode dibawah ini ke modul tersebut (Berhubung terbatasnya ringkasan, kode saya sambung di posting selanjutnya dengan judul yang sama.
5. Tutup dan kembali ke File Excel Anda

Cara Menggunakan :
1. Letakkan Cursor pada cell yang dibuat terjemahannya.
2. Klik Formula => Insert Function
3. Di sebelah kanan "or select category" pilih User Defined kemulian OK
4. Pada kolom Nilai_Angka masukkan cell nominal yang akan diterjemahkan
5. Pada kolom Style dikosongi saja.
6. Pada kolom Satuan ketikkan "Rupiah" atau "Dollar" kemudian OK
7. Selesei

'Fungsi Terbilang dengan VBA untuk MS Office

'Ditulis oleh maseko

'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)  + " rupiah,- "

End Function

Pedoman Penyusunan Skripsi

Terimakasih Atas kunjungan Nya,,thank you very much >>> fandy Eiste
Pedoman Penyusunan Skripsi Fandy Eiste 2012

CARA MEMBUAT TABEL

Terimakasih Atas kunjungan Nya,,thank you very much

CARA MEMBUAT TABEL DI BLOGGER

Sebuah tabel yang ditampilkan, baik pada sebuah postingan maupun pada bagian lain dari sebuah blog akan membantu memperindah blog dan kerapian dari blog itu semakin baik.
Untuk membuat tabel, kita harus mengetahui terlebih dulu kode-kode yang digunakan dalam sebuah tabel.
Anda belum tahu caranya...??, ikuti kelanjutannya.

1. Kode Utama dari tabel adalah: 

   <table border="1" align="left"><tbody>.....</table> 

2. Kode untuk row/baris adalah:

    <tr>..........</tr> 

3. Kode untu kolom/column adalah :

    <td>.........</td>

4. Kode-kode diatas, jika kita gabungkan akan menghasilkan satu baris dan satu kolom.
     Jadinya seperti ini :

   <table border="1" align="left"><tbody><tr><td>isi tabel disini</td></tr></table>

Kode-kode diatas akan terlihat seperti ini:

1. isi tabel disini

5.Jika anda ingin menambah baris dan kolom, anda hanya perlu menambahkan kode

 < <tr>...</tr> dan kode <td>...</td>

6. Contoh tabel dengan 2 baris dan dua kolom :

<table border="1" align="left"><tbody><tr><td>isi tabel disini</td><td>isi tabel disini</td></tr><tr><td>isi tabel disini</td><td>isi tabel disini</td></tr></table>

Tabel terlihat seperti ini :

1. isi tabel disini	isi tabel disini
   isi tabel disini	isi tabel disini

   
   
2. 
   

       7.Selamat mencoba....dan untuk pengaturan penampilan tabel dapat anda lihat disini.

          Tabel dapat anda tambahkan pada suatu postingan maupun pada elemen halaman, masalah penambahan jumlah kolom dan baris, tergantung dari pemahaman anda tentang tabel.
Read more: Sumber : Fandy Eiste

Menulis Tulisan Arab Di Komputer

Terimakasih Atas kunjungannya,,thank you very much

Link_link Sahabat..._

picasca sobatpc

Berbagi Berbagai Macam Link akan tertera di halaman ini.............????

Download_Drivers_TOSHIBA  KEYBOARD ARABIC


Cara setting Menu Board PC  
Bios Setting 
 Foto_FB_Saye....

Sejarah Aceh-sebelum-aceh   
CPNS Indonesia

 Blog sahabat tentang Desain Blogger_  
Membuat Gambar text flash
 cara reset printer Canon MP258
Cara-mempercepat-loading-windows-7
 Cara-mempercepat-kinerja-windows-7
 Data Pendidikan Umum + RPP Download Print PDF (dopdf)  chrome/install/1271.97/chrome_installer.exe
www.scribd.com
TV Online Piala Dunia 2014_
Teknik Informatika

http://www.stafaband.info/download/150348/rossa/hijrah_cinta/

Create avatar

Volly Ball and Foot Ball PSMS Meugit Sagoe_

Mohon maaf jika anda terlampir disini ini hanyalah kenangan belaka,,,Terima kasih atas kunjungannya semoga anda terhibur, dan penulis ucapkan terima kasih,, jika anda tidak berkenan konfirmasi by.FB _me (https://www.facebook.com/Fandy.Ajha).and (Email: fauz.mgs@gmail.com) think yu

LOGO VOLLY MGS

fandy gitu lho

Waktu santai bareng ke luar Negeri
dari kiri ke kanan
Zulfi, Polsek, Fandy, Fajr

lagi_latihan

lagi_latihan 

Foto 












Pengambilan Hadiah Juara I 

Perlombaan Bola Kaki Tanggal 19 Agustus Tahun 2009

Fz

Kepten Timnas PSMS dan Ketua Pemuda lama

Horee... pengambilan hadiah

Foto bareng

Anggota Timnas PSMS Meugit Sagoe

                              CUSTUM BAJU VOLLY

          

        Desain diatas merupakan desain jaket PACIFIC yang terbaru. dalam format merah putih, jaket ini melambangkan kecintaan dan sekaligus nasionalisme para pemain PACIFIC.

Kalau yang ini adalah desain T-shirt untuk ibu-ibu PACIFIC.
Dua desain berwarna merah dan kuning ini, merupakan desain untuk team putri SBV PACIFIC.sejarah dan permainan bola voli

         Bola voli adalah olahraga permainan yang dimainkan oleh dua grup berlawanan. Masing-masing grup memiliki enam orang pemain. Terdapat pula variasi permainan bola voli pantai yang masing-masing grup hanya memiliki dua orang pemain.

LAPANGAN PERMAINAN

Ukuran lapangan bola voli

Ukuran lapangan bola voli yang umum adalah 9 meter x 18 meter. Ukuran tinggi net putra 2,43 meter dan untuk net putri 2,24 meter. Garis batas serang untuk pemain belakang berjarak 3 meter dari garis tengah (sejajar dengan net). Garis tepi lapangan adalah 5 cm.

[SUNTING] CARA PERMAINAN

             Permainan ini dimainkan oleh 2 tim yang masing-masing terdiri dari 6 orang pemain dan berlomba-lomba mencapai angka 25 terlebih dahulu.

             Dalam sebuah tim, terdapat 4 peran penting, yaitu tosser (atausetter), spiker (smash), libero, dan defender (pemain bertahan).Tosser atau pengumpan adalah orang yang bertugas untuk mengumpankan bola kepada rekan-rekannya dan mengatur jalannya permainan. Spiker bertugas untuk memukul bola agar jatuh di daerah pertahanan lawan. Libero adalah pemain bertahan yang bisa bebas keluar dan masuk tetapi tidak boleh men-smashbola ke seberang net. Defender adalah pemain yang bertahan untuk menerima serangan dari lawan.

        Permainan voli menuntut kemampuan otak yang prima, terutamatosser. Tosser harus dapat mengatur jalannya permainan. Tosserharus memutuskan apa yang harus dia perbuat dengan bola yang dia dapat, dan semuanya itu dilakukan dalam sepersekian detik sebelum bola jatuh ke lapangan sepanjang permainan.

SEJARAH

     Pada awal penemuannya, olahraga permainan bola voli ini diberi nama Mintonette. Olahraga Mintonette ini pertama kali ditemukan oleh seorang Instruktur pendidikan jasmani (Director of Phsycal Education) yang bernama William G. Morgan di YMCA pada tanggal 9 Februari 1895, di Holyoke, Massachusetts (Amerika Serikat).

        William G. Morgan dilahirkan di Lockport, New York pada tahun 1870, dan meninggal pada tahun 1942. YMCA (Young Men’s Christian Association) merupakan sebuah organisasi yang didedikasikan untuk mengajarkan ajaran-ajaran pokok umat Kristen kepada para pemuda, seperti yang telah diajarkan oleh Yesus. Organisasi ini didirikan pada tanggal 6 Juni 1884 di London, Inggris oleh George William.

       Setelah bertemu dengan James Naismith (seorang pencipta olahraga bola basket yang lahir pada tanggal 6 November 1861, dan meninggal pada tanggal 28 November 1939), Morgan menciptakan sebuah olahraga baru yang bernama Mintonette. Sama halnya dengan James Naismith, William G. Morgan juga mendedikasikan hidupnya sebagai seorang instruktur pendidikan jasmani. William G. Morgan yang juga merupakan lulusan Springfield College of YMCA, menciptakan permainan Mintonette ini empat tahun setelah diciptakannya olahraga permainan basketball oleh James Naismith. Olahraga permainan Mintonette sebenarnya merupakan sebuah permainan yang diciptakan dengan mengkombinasikan beberapa jenis permainan. Tepatnya, permainan Mintonette diciptakan dengan mengadopsi empat macam karakter olahraga permainan menjadi satu, yaitu bola basket, baseball, tenis, dan yang terakhir adalah bola tangan (handball). Pada awalnya, permainan ini diciptakan khusus bagi anggota YMCA yang sudah tidak berusia muda lagi, sehingga permainan ini-pun dibuat tidak seaktif permainan bola basket.

        Perubahan nama Mintonette menjadi volleyball (bola voli) terjadi pada pada tahun 1896, pada demonstrasi pertandingan pertamanya di International YMCA Training School. Pada awal tahun 1896 tersebut, Dr. Luther Halsey Gulick (Director of the Professional Physical Education Training School sekaligus sebagai Executive Director of Department of Physical Education of the International Committee of YMCA) mengundang dan meminta Morgan untuk mendemonstrasikan permainan baru yang telah ia ciptakan di stadion kampus yang baru. Pada sebuah konferensi yang bertempat di kampus YMCA, Springfield tersebut juga dihadiri oleh seluruh instruktur pendidikan jasmani. Dalam kesempatan tersebut, Morgan membawa dua tim yang pada masing-masing tim beranggotakan lima orang.

            Dalam kesempatan itu, Morgan juga menjelaskan bahwa permainan tersebut adalah permainan yang dapat dimainkan di dalam maupun di luar ruangan dengan sangat leluasa. Dan menurut penjelasannya pada saat itu, permainan ini dapat juga dimainkan oleh banyak pemain. Tidak ada batasan jumlah pemain yang menjadi standar dalam permainan tersebut. Sedangkan sasaran dari permainan ini adalah mempertahankan bola agar tetap bergerak melewati net yang tinggi, dari satu wilayah ke wilayah lain (wilayah lawan).

Nama Nabi 25 Yang Wajib Kita Ketahui

NAMA NABI 25

           Mandum Nabi beutaturi wahe taulan

                                   25 yang tersebut dalam al-Qur’an
                                   Pertama phon ulon susun nabi Adam
                                  Nyan keuh intu wahe teungku mandum insan

                                                Yang kedua hai saudara nabi idris
                                                Lam syurga dalam mata neu top iblis
                                                Lhe nabi Nuh mata seupot geupeugot kapai
                                               Geupeudieng keunan bala tentara jienet bekai, Allah

                                 Peut, nabi Hud limeung saleh nam Ibrahim
                                 Nyang that murah, ngen sejahtra perangui halim
                                 Tujuh nabi Lut lapan Ishak ngen Ismail
                                  Yoh di Mina suroh Rabbi korban Neusie,,,,, Allah

                                                 Siploh Harun siblah Musa aneuk Imran
                                                 Buket tursina reh mariet dengan Tuhan
                                                 Dua blah Daut leumah lembut mangat that sue   
                                                Ie nyang ilee han jadeh le teudong laju,,,,, Allah

                                  Tema keu lheh blah ulon peugah Zulkifli
                                  Nabi Sulaiman karunia Tuhan pangkat tinggi
                                  Nabi Ilyas karunia Allah hudep jinoe
                                  Namblah Yusuf beuleuen peungeh tansam lakoe,,, Allah

                                                   That jroeh rupa nabi Yusuf hai boh hate’
                                                    Puasa di Kha peureumoh raja nanggroe Meuse
                                                    Tujuh blah Syu’ib umue katreb supoet mata
                                                    Nyang jroh tunggkat keumukjizat nabi Musa,,,,, Allah

                                 Keu lapanblah ulon peugah Zakaria
                                 Nabi Aiyub nabi Ilyasa’ nabi Yahya
                                 Duablah dua hai saudara nabi Yakop
                                 Duablah lheh nabi Yunus nyang poe engkeut

                                                     Dua ploh peut ulon seubut nabi Isa
                                                     Hana ayah karunia Allah Tuhan Esa
                                                     Duaploh limong  ban meukeuneung wahe rakan
                                                     Nabi Muhammad pang ule rasul kesudahan

                                Mandum rasul 25 hai boh hate,,,
                                Jak meureunoe beudoh jonoe bek laloe le
                                Jak meureunoe bak ulama bek le laloe
                                Gadeuh boh bang uroe malam teulah dudoe,,,2x

MY Fauzy :Menantimu


Terimakasih Atas kunjungan Nya,,thank you very much