1. Pastikan browser yang anda adalah Mozilla Firefox, (karena kita akan memakai addonsGreaseMonkey). Jika belum ada, silahkan cari atau  download disini addonsnya.
2. Kemudian instal script Facebook Chat Emoticons bar. (Pilih Instal)
3. Restart browser anda dan lihat perubahan pada aplikasi chat facebook anda

Sumber : Diambil dari berbagai sumber di internet …

Contoh yang saya buat untuk rumus kelulusan tingkat SMP, jadi untuk jenjang lain silahkan lakukan perubahan seperlunya.

supaya anda tidak bingung, saya sertakan pula filenya

ambil disini

sumber : diambil dari berbagai situs pembelajaran di internet …^_^

number = adalah sebuah bilangan yang ingin diketahui rangking-nya

ref = adalah range yang berisi nilai-nilai yang akan diranking

order = diisi 0 untuk descending (urutan Descending, atau selain 0 untuk pengurutan Ascending)

Biasanya nomor urut otomatis di excel kita buat dengan memasukkan angka “1″ pada sel di baris pertama, lalu angka “2″ dibaris berikutnya, kemudian dicopy (drag).

Pembuatan nomor urut pada excel bisa juga menggunakan cara lain yaitu dengan memasukkan angka “1″ pada baris pertama, lalu di baris berikutnya menggunakan formula “=A2+1″.

Atau dengan cara memasukkan rumus =IF, dengan cara =IF(Cell>=n;1;Cell+1), n = adalah bilangan terbesar yang digunakan untuk penomoran akhir yang kita inginkan. Jika kita menginginkan nomor urut terakhir sampai 5, maka n kita tulis 5, kemudian untuk memulai dari no 1 kembali, kita gunakan rumus yang kita buat tadi.

sumber : diambil dari berbagai situs d internet

Plug-in ini menambahkan  Menu Office 2003 ke Menu Office 2007 (khususnya di Word, Excel, dan PowerPoint). Ketika di-klik, Ribbon pada Office 2007 akan menampilkan menu klasik Office 2003, lengkap dengan tombol-tombol menu yang biasa Anda gunakan sebelumnya .

Office 2007 memiliki tampilan yang lain dan berbeda dengan office sebelumnya. Dengan kata lain, anda diharuskan untuk mempelajari kembali tampilan-tampilan pada Office ini. Yang semula berupa teks, sekarang digantikan oleh icon-icon. Dan bagi yang tidak terbiasa tentu akan mengalami kesulitan dalam mencari format – format yang telah ada di Office sebelumnya.

Oleh karena itu, saya memberikan sedikit solusi untuk membantu rekan-rekan untuk dapat menggunakan Office 2007 semudah menggunakan Office 2003. Semoga bisa membantu.

saya sertakan juga Plug In UbitMenuUk tersebut.

Nb : “Jangan lupa untuk tetap belajar menggunakan Ribbon pada Office 2007, sekalian belajar begitu ^_^ “

sumber : diambil dari berbagai situs di internet

Bagaimana membuat membuat AddIns Terbilang (menterjemahkan angka menjadi kata-kata ) untuk Microsoft Excel seperti contoh gambar di atas.

Dengan Add In ini saya berharap akan bisa membantu pekerjaan anda dalam membuat tanda terima, penyebutan bilangan atau yang lainnya. Untuk mempersingkat proses, saya tidak menjelaskan apa itu Add In, anda bisa pelajari sendiri dari Microsoft Excel help.

Berikut Kode Untuk Fungsi Terbilang :

Public Function Terbilang(x As Currency)

Dim triliun As Currency

Dim milyar As Currency

Dim juta As Currency

Dim ribu As Currency

Dim satu As Currency

Dim sen As Currency

Dim baca As String

If x > 1E+15 Then

Terbilang = “”

Exit Function

End If

‘jika x adalan 0, maka dibaca sebagai 0

If x = 0 Then

baca = angka(0, 1)

Else

‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus

triliun = Int(x / 1000 ^ 4)

milyar = Int((x – triliun * 1000 ^ 4) / 1000 ^ 3)

juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)

ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)

satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)

sen = Int((x – Int(x)) * 100)

‘triliun = Int(x / 1000 ^ 4)

‘milyar = Int((x – triliun * 1000 ^ 4) * 0.001 ^ 3)

‘juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)

‘ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)

‘satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)

‘sen = Int((x – Int(x)) * 100)

‘baca bagian triliun dan ditambah akhiran trilliun

If triliun > 0 Then

baca = Ratus(triliun, 5) + “triliun “

End If

‘baca bagian milyar dan ditambah akhiran milyar

If milyar > 0 Then

baca = baca + Ratus(milyar, 4) + “milyar “

End If

‘baca bagian juta dan ditambah akhiran juta

If juta > 0 Then

baca = baca + Ratus(juta, 3) + “juta “

End If

‘baca bagian ribu dan ditambah akhiran ribu

If ribu > 0 Then

If ribu = 1 Then

baca = baca + “Seribu “

Else

baca = baca + Ratus(ribu, 2) + “ribu “

End If

End If

‘baca bagian rupiah dan ditambah akhiran rupiah

If satu > 0 Then

baca = baca + Ratus(satu, 1)

End If

‘baca bagian sen dan ditambah akhiran sen

If sen > 0 Then

baca = baca + “koma ” + Ratus(sen, 0) + “per seratus “

End If

End If

Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))

End Function

Public Function TerbilangRp(x As Currency)

Dim triliun As Currency

Dim milyar As Currency

Dim juta As Currency

Dim ribu As Currency

Dim satu As Currency

Dim sen As Currency

Dim baca As String

If x > 1E+15 Then

TerbilangRp = “”

Exit Function

End If

‘jika x adalah 0, maka dibaca sebagai 0

If x = 0 Then

baca = angka(0, 1)

Else

‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan sen

triliun = Int(x / 1000 ^ 4)

milyar = Int((x – triliun * 1000 ^ 4) * 0.001 ^ 3)

juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)

ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)

satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)

sen = Int((x – Int(x)) * 100)

‘baca bagian triliun dan ditambah akhiran trilliun

If triliun > 0 Then

baca = Ratus(triliun, 5) + “triliun “

End If

‘baca bagian milyar dan ditambah akhiran milyar

If milyar > 0 Then

baca = baca + Ratus(milyar, 4) + “milyar “

End If

‘baca bagian juta dan ditambah akhiran juta

If juta > 0 Then

baca = baca + Ratus(juta, 3) + “juta “

End If

‘baca bagian ribu dan ditambah akhiran ribu

If ribu > 0 Then

If ribu = 1 Then

baca = baca + “Seribu “

Else

baca = baca + Ratus(ribu, 2) + “ribu “

End If

End If

‘baca bagian rupiah dan ditambah akhiran rupiah

If satu > 0 Then

baca = baca + Ratus(satu, 1) + “”

End If

‘sebelum bagian sen

baca = baca & “rupiah “

‘baca bagian sen dan ditambah akhiran sen

If sen > 0 Then

baca = baca + Ratus(sen, 0) + “sen “

End If

End If

TerbilangRp = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))

End Function

Function Ratus(x As Currency, Posisi As Integer) As String

Dim a100 As Integer, a10 As Integer, a1 As Integer

Dim baca As String

a100 = Int(x * 0.01)

a10 = Int((x – a100 * 100) * 0.1)

a1 = Int(x – a100 * 100 – a10 * 10)

If a100 = 1 Then

baca = “Seratus “

Else

If a100 > 0 Then

baca = angka(a100, Posisi) + “ratus “

End If

End If

‘baca bagian puluhan dan satuan

If a10 = 1 Then

baca = baca + angka(a10 * 10 + a1, Posisi)

Else

If a10 > 0 Then

baca = baca + angka(a10, Posisi) + “puluh “

End If

If a1 > 0 Then

baca = baca + angka(a1, Posisi)

End If

End If

Ratus = baca

End Function

Function angka(x As Integer, Posisi As Integer)

Select Case x

Case 0: angka = “Nol”

Case 1:

If Posisi <= 2 Or Posisi > 2 Then

angka = “Satu “

Else

angka = “Se”

End If

Case 2: angka = “Dua “

Case 3: angka = “Tiga “

Case 4: angka = “Empat “

Case 5: angka = “Lima “

Case 6: angka = “Enam “

Case 7: angka = “Tujuh “

Case 8: angka = “Delapan “

Case 9: angka = “Sembilan “

Case 10: angka = “Sepuluh “

Case 11: angka = “Sebelas “

Case 12: angka = “Duabelas “

Case 13: angka = “Tigabelas “

Case 14: angka = “Empatbelas “

Case 15: angka = “Limabelas “

Case 16: angka = “Enambelas “

Case 17: angka = “Tujuhbelas “

Case 18: angka = “Delapanbelas “

Case 19: angka = “Sembilanbelas “

End Select

End Function

Public Function TerbilangSen(x As Currency)

Dim triliun As Currency

Dim milyar As Currency

Dim juta As Currency

Dim ribu As Currency

Dim satu As Currency

Dim sen As Currency

Dim baca As String

If x > 1E+15 Then

TerbilangSen = “”

Exit Function

End If

x = Round(x, 2)

‘jika x adalan 0, maka dibaca sebagai 0

If x = 0 Then

baca = angka(0, 1)

Else

‘Pisah masing-masing bagian untuk triliun, milyard, juta, ribu, rupiah dan per seratus

triliun = Int(x / 1000 ^ 4)

milyar = Int((x – triliun * 1000 ^ 4) / 1000 ^ 3)

juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)

ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)

satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)

sen = Int((x – Int(x)) * 100)

‘triliun = Int(x / 1000 ^ 4)

‘milyar = Int((x – triliun * 1000 ^ 4) * 0.001 ^ 3)

‘juta = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3) / 1000 ^ 2)

‘ribu = Int((x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2) / 1000)

‘satu = Int(x – triliun * 1000 ^ 4 – milyar * 1000 ^ 3 – juta * 1000 ^ 2 – ribu * 1000)

‘sen = Int((x – Int(x)) * 100)

‘baca bagian triliun dan ditambah akhiran trilliun

If triliun > 0 Then

baca = Ratus(triliun, 5) + “triliun “

End If

‘baca bagian milyar dan ditambah akhiran milyar

If milyar > 0 Then

baca = baca + Ratus(milyar, 4) + “milyar “

End If

‘baca bagian juta dan ditambah akhiran juta

If juta > 0 Then

baca = baca + Ratus(juta, 3) + “juta “

End If

‘baca bagian ribu dan ditambah akhiran ribu

If ribu > 0 Then

If ribu = 1 Then

baca = baca + “Seribu “

Else

baca = baca + Ratus(ribu, 2) + “ribu “

End If

End If

‘baca bagian rupiah dan ditambah akhiran rupiah

If satu > 0 Then

baca = baca + Ratus(satu, 1)

End If

‘baca bagian sen dan ditambah akhiran sen

If sen > 0 Then

baca = baca + “koma ” + angka(Left(sen, 1), 1) + angka(Right(sen, 1), 1)

End If

End If

TerbilangSen = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))

End Function

Panjang banget ya…, tidak masalah, yang penting fungsi yang akan digunakan nanti.

Membuat Module

Langkah pertama yang perlu dilakukan adalah membuat modul, caranya :

Buka Microsoft Excel Anda

Klik Pada Menu Tools – Macro – Visual Basic Editor (Alt+F11)

Setelah tampil jendela Visual Basic Editor, langkah selanjutnya adalah menambahkan module baru dengan cara Klik menu Insert – Module

Dari Proses ini akan terbentuk satu modul baru dengan nama Module1.

Masukkan fungsi terbilang yang sudah anda siapkan kedalam module1

Sampai disini proses sudah setengah jadi, pindahkan jendela aktif lembar kerja excel, coba anda tuliskan pada cell B2 dengan 1000 dan pada cell B3 tuliskan dengan =terbilang(B2), apa yang terjadi?, kalau pada cell B3 tampil Seribu rupiah, anda boleh melanjutkan ke langkah berikutnya, tapi kalau tampil #NAME,#VALUE atau yang lain selain Seribu rupiah anda harus perbaiki fungsi terbilang anda pada Module1 terlebih dahulu. Sampai disini proses pembuatan module telah selesai, kita lanjutkan ke langkah berikutnya.

Membuat deskripsi dan mengamankan kode anda

Langkah selanjutnya adalah memberi deskripsi dan mengamankan kode VBA anda, langkahnya adalah sebagai berikut:

Pada lembar kerja Excel anda, klik menu Tools – Macros

Ketikkan nama fungsi terbilang anda dan pastikan tombol Option menjadi enable (menyala), kalau tidak, bisa dipastikan anda salah menuliskan nama fungsi terbilangnya.

Klik Option, dan ketikkan Deskripsi fungsi terbilang anda dalam kotak Description. Akhiri proses dengan klik tombol OK dan berikutnya Klik Tombol Cancel untuk menutup Macro dialog.

Untuk memberi password kode VBA anda, pindahkan jendela aktif ke jendela Visual Basic, Klik kanan pada VBAProject (Book1) – pilih VBAProject Properties, selanjutnya akan ditampilkan dialog VBAProject Properties , aktifkan Tab protection, masukkan password pada kotak password dan konfirmasi pada kotak Confirm Password.

“Bila anda ingin memberikannya secara gratis, lebih baik tidak perlu diberi password, supaya orang lain dapat melihat module yang anda buat, dan mungkin bahkan dikembangkan dan disebarluaskan lagi”

Membuat Add Ins

Setelah semua langkah kita lakukan, selanjutnya adalah proses packing Add In, adapun langkahnya adalah sebagai berikut.

Tutup Visual basic Editor anda. Simpan Dokumen excel anda dengan klik menu File – Save As.

Ubah Save As Type menjadi Microsoft Excel Add In (*.xla), dan spesifikasikan tempat penyimpanannya.

Beri nama bebas, misal terbilang.xla dan tutup dokumen excel anda boleh disimpan boleh tidak.

Pembuatan Add In telah selesai, dan anda bisa mendistribusikan file terbilang.xla untuk teman anda atau siapa saja yang membutuhkannya.

Apakah pekerjaan sudah selesai?   Belum, kita lanjutkan ke pekerjaan terakhir.

Menginstall Add In

Setelah kita membuat, selanjutnya adalah menginstall Add In yang sudah kita buat pada Microsoft Excel kita atau teman anda. Langkahnya sebagai berikut:

Siapkan File Add In (terbilang.xla)

Buka Microsoft Excel anda, Klik Menu Tools – Add Ins

Klik Browse dan arahkan ke tempat penyimpanan file Add In Anda (terbilang.xla) dan klik OK.  Pastikan “terbilang” tampil dalam list dan dalam kondisi aktif

Nah… pekerjaan telah selesai, dan sekarang anda bisa menggunakan fungsi terbilang di cell manapun dan file manapun (selama Add In aktif tentunya).

Saya sertakan juga  AddIns Terbilang agar anda tidak susah-susah mengetik modulnya nanti ^_^ .

Sumber : Diambil dari berbagai sumber