BLOGGOA

SEO(Search Engine Optimization) merupakan sebuah metode / cara agar Search Engine selalu mengindex website kita diinternet agar setiap proses pencarian dengan keyword melalui search engine dapat ditampilkan pada halaman utama. Bahkan ada yang menyatakan bahwa SEO adalah proses yang sangat khusus dalam membangun sebuah website yang berhasil alasannya karena sebuah website komersial tidak dikatakan berhasil jika tidak dapat ditemukan dalam Search Engine Utama ini untuk mengoptimalkan sebuah website dengan cara memperbaiki struktur tag-tag HTML tertentu pada halaman web.

Pada kenyataannya bahwa hampir 90 % pengunjung-pengunjung baru menemukan sebuah website dari hasil Search Engine dan Search Directory dengan keyword tertentu, nah disinilah menariknya belajar seo karena mereka datang dengan keyword atau key phrase tertentu sehingga dapat menemukan situs yang relevan dengan kata kunci yang diketikkan.

dari beberapa prinsip SEO tersebut dan saya belum bisa apa apa dan masih newbie dalam dunia per SEO an. Akhirnya saya mencoba mengikuti kontes ini,hanya untuk menjajal seberapa kah kemampuan saya dalam SEO dengan mengikuti kontes yang diadakan oleh ayomaju.com dalam Belajar SEO Para Pemula (Kontes SEO Untuk Para Pemula)

Dibawah ini peraturan dari kontes SEO yang diadakan:

Peserta adalah pemula, jika anda mengikuti kontes ini maka anda harus rela disebut sebagai pemula.
Link dimesin pencari harus ke artikel bukan ke halaman utama blog, karena yang dilombakan halaman artikel.
Hasil pencarian menggunakan Google.co.id
Masa berlaku kontes 3 bulan (biar banyak waktu belajar bagi para pemula) yaitu mulai 17 mei 2009 sampai dengan 17 Agustus 2009.  
Menjadi followers (google friend connect) blog ayomaju.com (widget disidebar) dan mem-favorite-kan ayomaju.com di technorati (Gunakan Link Ini untuk melakukannya, tentunya login dulu). Ini untuk membedakan peserta dengan blogger yang hanya mengacau SERP karena merasa sok master. Selain itu menjalin persahabatan. 
Artikel yang diikutkan kontes ini harus melinkback ke halaman utama ayomaju.com dan ke artikel ini (Belajar SEO Para Pemula (Kontes SEO Untuk Para Pemula)). Ini juga untuk membedakan peserta dengan blogger yang hanya mengacau SERP karena merasa sok master. 
Keyword yang dilombakan adalah "Belajar SEO Para Pemula"

buat teman2 dukung aku yach dalam kontes seo pemula dengan keyword "Belajar SEO Para Pemula " semoga saya bisa mengasah kemampuan saya dalm dunia per "SEO" an ayo semua komment disini biar halaman ini bisa terindeks ma "om google"

Belajar SEO Para Pemula

ataw yang ini.....

Belajar SEO Para Pemula

Dari perhitungan konversi huruf2 silahkan disimak

Jika, nilai huruf-huruf ini kita anggap sbb:
- A - B - C - D - E - F - G - H - I - J - K - L - M
1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13


- N - O - P - Q - R -- S - T- U - V - W - X - Y - Z
14 - 15- 16- 17- 18 - 19 - 20- 21- 22- 23 -24 - 25- 26



Hitung bareng-bareng:
Bahasa Inggris (dipercaya oleh orang America )
Kalau kita bekerja dengan modal angka tersebut dibawah, maka hasilnya adalah...

- H - A - R - D - W - O - R - K (kerjakeras)
8 1 18 4 23 15 18 11 = 98% Only

- K - N - O - W - L - E - D - G - E (pengetahuan)
11 14 15 23 12 5 4 7 5 = 96% Only

- L - O - B - B - Y - I - N - G (pendekatan)
12 15 2 2 25 9 14 7 = 86% Only

- L - U - C - K (keberuntungan)
12 21 3 11 = 47% Only

Ternyata ... semua nilai dari usaha-usaha kita diatas nggak bisa mengalahkan yang satu ini:

- A - T - T - I - T - U - D - E (sikap/tingkah laku)
1 20 20 9 20 21 4 5 = 100%


Tapi ini rumus yang berlaku di luar negeri, he..he..he.. .

Lebih hebat di Indonesia , itungannya menjadi begini:

- G - I - G - I - H (Hardwork)
7 9 7 9 8 = 40% saja

- I - L - M - U (Knowledge)
9 12 13 21 = 55% saja

- L - O - B - I (Lobbying)
12 15 2 9 = 38% saja

- M - U - J - U - R (Luck)
13 21 10 21 18 = 83% saja

- S - I - K - A - P (Attitude)
19 9 11 1 16 = 46% saja

- K - O - R - U - P - S - I
11 15 18 21 16 19 9 = 109%

Ternyata yg ditekuni orang-orang INDONESIA , yaitu "KORUPSI", mempunyai kadar mencapai keberhasilan lebih dari 100%...

tidak perlu ikut menjadi aktivis Greenpeace atau apapun itu demi menjadi seorang pecinta lingkungan.

Di saat pemanasan global kian menggila, polusi merajalela, cuaca tak beraturan seperti sekarang, memang selayaknya setiap orang menjadi pecinta lingkungan.

Bagaimana caranya? Mudah saja. Berikut LiveScience memberi 10 tips melindungi bumi dari kehancuran. Semuanya adalah cara-cara sederhana yang dapat kita mulai dari hari ini. Apa saja itu?

1. Gunakan bola lampu jenis flurosen alias Fluorescent Lights (CFLs).

Lampu ini memang lebih mahal ketimbang lampu bohlam biasa. Tapi daya tahannya 10 kali lipat lebih lama dan yang pasti lebih hemat energi. Ini bukan iklan. Studi membuktikan bila lampu CFL menyerap energi 75 persen lebih sedikit daripada nola lampu kuning terang benderang biasa. Dalam setahun CFL mampu mengurangi produksi karbon dioksida hingga 500 pon. Ini setara dengan polusi yang dihasilkan 17 mobil di jalan raya selama satu tahun!

2. Hemat listrik di rumah.

Petuah klasik yang tak pernah ketinggalan zaman. Justru kian lama petuah ini kian dibutuhkan realisasinya, bukan sekadar teori. Padamkan lampu di siang hari. Matikan AC saat ruangan tak dihuni. Asal tahu saja rata-rata setiap rumah menghasilkan emisi gas rumah kaca dua kali lipat dari yang diproduksi sebuah mobil. Jadi jangan karena tidak mengeluarkan asap hitam dari knalpot mobil Anda maka Anda sudah merasa sebagai pahlawan lingkungan.

3. Jangan Gunakan plastik.

Sebisa mungkin hindari pemakaian plastik. Tas plastik memang banyak dipakai pasar swalayan maupun tradisional dalam mengemas belanjaan. Ada baiknya kita membawa tas kain atau kertas sendiri dari rumah dan menolak dengan halus tas plastik dari penjual. Mengapa? Plastik bukan bahan yang dapat hancur dengan sendirinya di pembuangan sampah. Sejumlah kandungan dalam bahan tersebut justru merusak kesuburan hayati tanah.

4. Maksimalkan penggunaan komputer.

Memang di era kini sudah jarang orang berkirim surat melalui pos. Tapi jangan salah, masih banyak perkantoran maupun pribadi yang lebih suka menyimpan dokumen atau surat-surat secara tradisional, yakni dengan dicetak di atas kertas. Memang ada beberapa surat berharga yang tak bias tergantikan dengan surat elektronik. Namun selama sebuah dokumen dapat disimpan secara elektronik di komputer, usahakan lakukan itu. Asal tahu saja, kertas yang kita pakai telah sukses menggunduli hutan akibat perusahaan kertas telah menebang pohon-pohon sebagai bahan dasarnya.

5. Beli produk lokal.

Hentikan membeli produk pangan impor. Dengan mengonsumsi apa yang ada di dekat kita, maka kita berperan dalam mengurangi polusi dan pemborosan energi. Mengapa harus mengimpor daging sapi dari Australia jika sapi lokal tak kalah lezatnya. Bayangkan berapa energi dihasbiskan dan polusi dihasilkan dari sekadar mendatangkan sosis Eropa atau keju Belanda ke meja makan Anda. Sebagai informasi, anggur dari Napa Valley harus mengarungi jarak sejauh 2.143 mil demi berada di pasar swalayan Chicago .

6. Praktikan prinsip 3 R

Reduce, Reuse, Recycle. Kurangi konsumsi, gunakan kembali barang bekas yang masih bisa dimanfaatkan, dan daur ulang bahan tertentu. Mengucapkannya memang mudah, tapi tidak menjalankannya. Hanya sekali memulai, kita akan terbiasa.

Agak sulit memang jika tak didukung dengan ketersediaan produk dan infrastruktur. Tapi bukan berarti tak mungkin. Kalau ada pilihan dimana kita bias menikmati listrik dengan sumber sinar matahatri atau angin, mengapa tidak? Lebih bersih dan hemat energi.

8. Bunuh produk penghisap listrik

Tanpa disadari, kita terus menerus membeli dan mengngunakan produk yang menghamburkan energi. Televisi (TV) adalah salah satunya. Tanpa sadar sebuah keluarga kerap menyalakan TV tanpa henti 24 jam walau tidak ditonton. Begitu juga komputer, DVD player dan charger ponsel yang terus terhubung ke colokan listrik.

9. Kurangi pemakaian bahan kimia.

Bahan kimia bukanlah bahan alami. Seperti bahan buatan lainnya, bahan ini tak dapat lebur dengan sendirinya dan meninggalkan efek buruk pada kehidupan. Pestisida, obat nyamuk dan sejumlah bahan pembersih ruangan mengandung aneka komponen kimia yang tanpa sadar ikut kita hirup seumur hidup kita. Bahkan pangan sayur dan buah pun ikut membawanya ke dalam tubuh kita. Cara mengatasinya? Maksimalkan konsumsi bahan-bahan alami, termasuk sayuran organik.

10. Hijaukan rumah Anda!

Banyak di antara kita yang mengaku cinta lingkungan, cinta penghijauan, namun faktanya nyaris tak pernah menanam apapun di halaman rumahnya. Oke jika Anda tak punya halaman rumah. Setidaknya usahakan Anda memberi kesempatan bagi tumbuhan untuk hidup di sekitar. Tanaman gantung atau hidroponik cukup membantu bagi Anda yang tinggal di apartemen, rumah susun atau kos.

Allah SWT berfirman, "Sesungguhnya Sholat itu menjauhkan seseorang dari perbuatan keji dan mungkar".

Dalam ayat yang satu ini Allah berjanji di dalam Alquran  bahwa siapa saja yang melaksanakan ibadah ritual ini, maka Allah SWT sendiri menjamin bahwa manusia tersebut akan terjauh dari perbuatan-perbuatan keji dan mungkar. Namun, apa yang terjadi sekarang? Banyak orang yang shalat , toch.., tetap aja melakukan hal-hal yang di luar dari ajaran agama. Banyak Koruptor beragama Islam (yang notabene sholat lima kalinya rutin dijalankan) sebagai bukti dari Allah sudah ingkar kepada hambanya. 

Apakah Allah SWT berbohong? Apakah isi Alquran  adalah sebuah kebohongan besar?
Hmm..hmm.. Ada yang aneh dari pernyataan di atas bukan? Sebagai umat Islam (Muslim sejati, katanya) pastilah merasa dubrak..dubrak membaca pernyataan di atas. Gimana, yach? Mau dikatakan salah… Contohnya dah ada, fakta lagi!! Mau dikatakan benar..Woi, Muslim gak sech kamu nganggap ini benar. Mau masuk neraka yach?

Yakinlah bahwa pernyataan itu SALAH BESAR. Untuk menguatkan iman kita simaklah wacana ini…!
Shalat adalah tiang agama . Siapa yang gak shalat maka gak ada bedanya dengan non muslim. Namun, perlu kita pahami bahwa shalat yang bagaimanakah yang bisa dikatakan shalat?
Shalat itu ada karena tersusun oleh tiga bagian; Gerakan Shalat, Bacaan Shalat, dan Substansi Shalat itu sendiri. Gerakan shalat…??? Tau khan yang mana dikatakan gerakan shalat. Kalo gak tau syahadat ulang dech di depan Ka’bah (segitunya!) Gerakan shalat itu yach, Berdiri, rukuk, sujud,

Trus Bacaan Shalat itu yach… gitu dech! Al Fathihah, Surah2 Pendek, doa2, shalawat, pokoknya yang diwajibkan dan disunnah kan dibaca ketika kita shalat.

Nach, 2 bagian tersebut hanyalah merupakan "pakaian shalat" saja. Layaknya manusia, manusia punya pakaian (yaiyalah, kalo gak ada telanjang dong). Bisa gak kita nilai manusia ini baik dengan melihat pakaiannya saja. Hm..Hmm.. Jangan kelamaan pikir..! Ada orang pake baju Rapi, Bersih, Harum belum tentu kepribadiannya baik. Sebaliknya Ad orang yang pake baju robek, dekil, bau (seperti yang kupake sekarang) belum tentu akhlaknya seperti pakaiannya. Begitu juga dengan shalat …, kita gak bisa menilai shalatnya berkualitas dengan melihat gerakan dan bacaannya saja.

Sayang sekali, akhir-akhir ini sebagian besar umat Islam hanya terfokus pada "pakaiannya" saja. Mereka berbondong-bondong mempercantik "pakaian shalatnya" tetapi substansi dari shalat itu sendiri (bagian ketiga dari shalat) terabaikan. Sehingga apa yang terjadi.., shalatnya hanya merupakan kegiatan rutinitas yang tidak memiliki arti apa-apa. Kok diam..? Nyentuh banget, khan?

Lalu apa sich sebenarnya Substansi dari shalat itu sendiri?
Jawabannya adalah khusyu’ dalam shalat. Sebenarnya yang Allah nilai dari shalat kita itu adalah kekhusyukan kita dalam menjalankan ibadah wajib ini. Inilah yang Allah janjikan dari shalat. Siapa yang shalatnya Khusyu’ insya Allah bakalan dijauhkan dari perbuatan keji dan mungkar..

Ingatlah orang yang shalat bagaikan memakai baju baru yang berwarna putih. Tahu gak orang yang make baju kayak gituan? Orang itu bakalan menjauhi tempat-tempat yang kotor agar bajunya tetap bersih… (Masuk akal khan?)

Sebelum saya mengakhiri tulisan ini alangkah baiknya kita merenungi kata-kata ini. Ambillah salah satu sifat shalat; mencegah dari perbuatan keji dan mungkar. Apabila ada orang yang shalat namun tak dapat mencegah perbuatan keji dan mungkar maka orang itu sesungguhnya tidak shalat. Ia hanya melakukan gerakan biasa yang terdiri dari berdiri, ruku, dan sujud. Na’udzubillah…!

Ini salah satu cara bagaimana menerjemahkan angka ke dalam kata-kata dengan Visual Basic for Application dan nantinya akan dikenali sebagai macro. Fungsi dalam list program yang dipakai nantinya sebenarnya dapat digunakan pada aplikasi MS Office atau aplikasi Visual Basic lainnya namun pada bahasan ini dibatasi pada penggunaan dalam aplikasi MS Excel karena keterbatasan pengetahuan saya. Bagi yang sudah terbiasa pada penggunaan Visual Basic Editor pada MS Excel dapat langsung ke bagian list program.

Fungsi tersebut akan berguna:

• Menerjemahkan angka ke dalam kata-kata sampai dengan 15 digit termasuk nilai desimal (ratusan trilian apabila tanpa nilai desimal). Angka 15 digit ini merupakan nilai yang dapat ditampung MS Excel sebelum dirubah ke nilai exponen.
• Desimal yang diterjemahkan sampai dengan dua angka dibelakang koma.
• Mengenal 4 Style, yaitu cara penulisan huruf besar/kecil-nya.
• Bebas menggunakan satuan yang diinginkan.

Langkah - langkahnya adalah sebagai berikut :

• Buka aplikasi MS Excel, apabila secara otomatis tidak muncul workbook baru (atau Book 1) maka bukalah Workbook baru dari File > New… (Ctrl+N);
• Pada workbook baru pada sheet mana saja pilihlah Tools > Macro > Visual Basic Editor atau dengan shortcut Alt+F11.
• Setelah itu akan muncul window baru bertitle Microsoft Visual Basic. Setelah itu, pilih Insert > Module. Pada Module 1 yang baru dibuat, letakkan kursor pada bagian Code. Apabila belum muncul atau beralih ke bagian tersebut pilih View > Code (F7).
  
• Pada lembar kosong tersebut copy paste-kan list program dibawah ini :
  

  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
   
  

• Setelah Anda selesai mengcopy pilih File > Close and Return to Microsoft Excel untuk kembali ke workbook MS Excel.
• Simpan workbook tersebut, namai misalnya terbilang.xls.
• Sekarang Anda dapat mencoba fungsi tersebut dalam sheet mana saja dalam workbook tersebut. Misalnya Anda ketikan pada cell A1 angka berapa saja. Pilih cell yang akan menampung terjemahan kata-katanya, misalnya di A2.
• Pilih Insert > Function…, maka akan muncul dialog box daftar fungsi di MS Excel.
• Dari daftar dalam Function category, pilihlah User Defined, sehingga dalam daftar di Function name muncul nama fungsi terbilang, pilih fungsi tersebut kemudian klik OK, sehingga muncul dialog box
• Isilah dialog box di atas dengan ketentuan sebagai berikut:
  Nilai_Angka Isilah dengan angka yang akan diterjemahkan, atau isi dengan nama cell yang berisi angka yang akan diterjemahkan, misalnya A1. Style Isi dengan kode 1 sampai dengan 4 untuk menentukan cara penulisannya. 1: Teks terbilang ditulis dengan huruf besar (kapital) semua (uppercase); 2: Teks terbilang ditulis dengan huruf kecil semua (lowercase); 3: Teks terbilang ditulis dengan huruf besar pada awal kata saja (title case); 4: Teks terbilang ditulis dengan huruf besar pada huruf pertama saja (sentence case). Isian style sifatnya optional, apabila tidak diisi maka defaultnya 4 (sentence case). Satuan Isi dengan satuan untuk teks terbilang, misalnya rupiah, unit atau buah. Isian satuan sifatnya optional, apabila dikosongkan maka teks terbilang ditulis tanpa satuan tertentu.
• Anda juga dapat langsung menggunakan fungsi terbilang secara langsung pada cell dengan formula:
  =terbilang(Nilai_Angka;Style;”Satuan”)
  
  Penjelasan lihat di atas. Perlu diperhatikan bahwa penulisan satuan ditulis dengan cara diapit tanda petik(”)
  
• Sekarang Anda tutup workbook tersebut. Coba buka kembali workbook tersebut, maka akan muncul peringatan seperti. Untuk dapat menggunakan fungsi terbilang diatas Anda harus memilih Enable Macros setiap kali Anda menggunakan

Pada tahapan ini Anda dapat menggunakan fungsi terbilang pada cell dan worksheet mana saja tetapi terbatas pada workbook tersebut. Setiap kali Anda membuat file MS Excel dan memerlukan fungsi terbilang Anda harus mengulangi langkah-langkah di atas atau Anda menyimpan dengan nama atau lokasi yang berbeda dengan cara File > Save As…

Ada cara lain agar setiap kali membuat file/workbook baru, Anda langsung dapat menggunakan fungsi terbilang. Langkah-langkahnya:

• Buka file yang Anda simpan di atas yang berekstensi xls. Kemudian pilih File > Save As.. Kemudian pada isian File name isi dengan nama file, misalnya terbilang. Pada isian Save as type pilih Microsoft Excel Add-In (*.xla).Secara default folder yang terbuka untuk menyimpan file type Add-In ini berada pada C:WINDOWS\Aplication Data\Microsoft\AddIns, sebaiknya Anda menyimpannya pada folder ini, meskipun Anda dapat menentukan lokasi lain. Nantinya file yang disimpan berekstensi xla.
  
• Setelah Anda menyimpannya, tutup MS Excel. Buka kembali dengan workbook baru.
  
• Pada workbook baru tersebut pilih Tools > Add-Ins… Muncul dialog box, Klik Browse… maka secara default Anda dihadapkan pada isi folder AddIns seperti disebut pada point 1, kemudian pilih file Add-In terbilang tersebut. Maka fungsi terbilang akan masuk list pada Add-Ins available. Pastikan Anda beri tanda check. Kemudian klik OK.
  
• Pada workbook baru ini, Anda sudah dapat menggunakan fungsi terbilang, begitu pula saat Anda nanti membuat file/workbook baru.
• Anda dapat menonaktifkan Add-In ini dengan menghilangkan tanda check seperti tersbut di atas.
  

Sumber : Mas Eko