"Fungsi terbilang di Excel"

Berikut ini langkah-langkah pembuatannya:

* Langkah pertama yaitu bukalah program Microsoft Excel
* Langkah kedua yaitu klik menu Tool, Macro, Security
* Berikutnya pilih Medium atau Low kemudian lalu klik OK dan tutup program Microsoft Excel
* Buka kembali program Microsoft Excel-nya
* Lalu klik menu Tool, Macro, Visual Basic Editor atau bisa langsung tekan tombol Alt+F11
* Setelah muncul jendelanya, klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri
* Maka akan muncul menu, dari menu tersebut pilihlah Insert, Module
* Selanjutnya ketik script di bawah ini pada kotak isian modul tersebut (”Book1 - Module1 (Code)”) atau anda tinggal blok/select lalu copy dan paste pada kotak isian modul.

Option Explicit

Public Function TERBILANG(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean

Dim letak(5)
letak(1) = “RIBU “
letak(2) = “JUTA “
letak(3) = “MILYAR “
letak(4) = “TRILYUN “

If (x < 0) Then
TERBILANG = “”
Exit Function
End If

If (x = 0) Then
TERBILANG = “NOL”
Exit Function
End If

If (x < 2000) Then
tanda = True
End If
teks = “”

If (x >= 1E+15) Then
TERBILANG = “NILAI TERLALU BESAR”
Exit Function
End If

For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next

teks = teks & ratusan(x, False)
TERBILANG = teks
End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer

Dim angka(9)
angka(1) = “SE”
angka(2) = “DUA “
angka(3) = “TIGA “
angka(4) = “EMPAT “
angka(5) = “LIMA “
angka(6) = “ENAM “
angka(7) = “TUJUH “
angka(8) = “DELAPAN “
angka(9) = “SEMBILAN “

Dim posisi(2)
posisi(1) = “PULUH “
posisi(2) = “RATUS “

bilang = “”
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = “BELAS “
Else
angka(y) = “SE”
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next

If (flag = False) Then
angka(1) = “SATU “
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function

Setelah script di atas diketik, lalu simpan file lembar kerja Excel tersebut dengan nama file “TERBILANG.XLS”. Maka sudah siap deh lembar kerja tersebut dipakai. Cara menggunakannya tinggal anda ketik fungsinya yaitu ucapangka. Sebagai contoh coba anda isikan 1974 pada sel A1, lalu pada sel B1 tuliskan “=TERBILANG(A1)” maka setelah anda menekan enter akan muncul tulisan “SERIBU SEMBILAN RATUS TUJUH PULUH EMPAT” pada sel B1.
Mudah bukan? Langkah di atas sudah saya coba dan berhasil, kalau masih tidak muncul atau muncul pesan kesalahan error berarti macro masil belum benar, coba periksa kembali langkah-langkahnya atau biasanya kesalahan terjadi pada tanda kutip, coba rubah/ganti secara manual tanda kutipnya.

Selamat mencoba semoga bermanfaat.

Nb : Ambil tetetangga sebelah
thanks banget ye...

"PERTANDA SI DIA ‘JODOH’"

Dua manusia yang merasa saling berjodoh pasti memiliki
ikatan emosional, spiritual dan fisik antara keduanya. Hanya
dengan menatap matanya, kita akan merasakan getaran dan seolah ingin
terus bersamanya. Benarkah seperti itu? Lalu, apakah
ada penanda lainnya agar seseorang bisa merasakan bahwa si dia jodoh kita atau bukan?
Nah, agar Anda tak terus penasaran, berikut ini pakar
relationship sekaligus penulis buku 21 Ways to Attract Your Soul
Mate, Arian Sarris memberikan rahasianya:
Pertanda 1
Rahasia sepasang kekasih agar bisa memiliki umur hubungan yang panjang
adalah adanya saling berbagi. Anda dan dia selalu bisa saling membantu,
entah itu pekerjaan sepele atau besar. Paling penting adalah Anda berdua selalu bisa menikmati segala aspek kehidupan secara bersama-sama. Dan semuanya terasa amat menyenangkan meskipun tanpa harus melibatkan orang lain. Nah, apakah Anda sudah merasakan hal tersebut? Jika ya, selamat berarti ada harapan bahwa dia adalah calon pendamping hidup Anda!
Pertanda 2
Salah satu kriteria yang menentukan cocok tidaknya dia itu jodoh Anda atau bukan adalah
kemampuannya bersikap santai di depan Anda. Coba sekarang perhatikan, apakah gerak geriknya, caranya berpakaian, gaya rambutnya, caranya berbicara serta tertawanya mengesankan apa adanya? Apakah setiap ucapannya selalu tampak spontan dan tidak dibuat-buat? Jika tidak, (maaf) kemungkinan besar dia bukan jodoh Anda.
Pertanda 3
Adanya kontak bathin membuat hati Anda berdua bisa selalu saling tahu.
Dan bila Anda atau si dia bisa saling membaca pikiran dan menduga reaksi serta perasaanya satu sama lainnya pada situasi tertentu.
Selamat! Mungkin sebenarnya dialah belahan jiwa Anda yang tersimpan...
Pertanda 4
Bersamanya bisa membuat perasaan Anda menjadi santai, nyaman tanpa perasaan tertekan. Berjam-jam bersamanya, setiap waktu dan setiap hari tak membuat Anda merasa bosan.. Ini bisa sebagai pertanda bahwa Anda berdua kelak bisa saling terikat.
Pertanda 5
Dia selalu ada untuk Anda dalam situasi apapun. Dan dia selalu bisa memahami cuaca dalam hati Anda baik dalam suka dan duka. Percayalah pasangan yang berjodoh pasti tak takut mengalami pasang surut saat bersama. Sekarang, ingat-ingat kembali. Apakah dia orang pertama yang datang memberi bantuan tatkala Anda dirundung musibah? Dia selalu paham saat PMS Anda datang menyerang? Dia tau keadaan waktu anda sakit.........Jika ya, tak salah lagi. Dialah orangnya...
Pertanda 6
Dia tak terlalu peduli dengan masa lalu keluarga Anda, dia tak peduli dengan masa lalu Anda saat bersama kekasih terdahulu. Dia juga tak malu-malu menceritakan masa lalunya.. Nah, kalau begitu ini bisa berarti dia sudah siap menerima Anda apa adanya..
Pertanda 7
Setiap orang pasti memiliki kekurangan, dan Anda tak malu-malu
memperlihatkannya pada si dia. Bahkan pada saat Anda tampil 'buruk' di depannya sekalipun, misalnya saat Anda bangun tidur atau saat Anda sakit dan tak mandi selama dua hari.
Pertanda 8
Bila Anda merasa rahasia Anda bisa lebih aman di tangannya daripada di
tangan sahabat-sahabat Anda. Atau Anda merasa sudah tak bisa lagi menyimpan rahasia apapun darinya, maka berbahagialah! Karena ini bisa berarti pasangan sejati telah Anda temukan!

Nb : dapat dari tetangga sebelah lagi :D

"MENCINTAI ITU KEPUTUSAN"

Sebab cinta adalah kata lain dari memberi.
sebab memberi adalah pekerjaan..
sebab pekerjaan cinta dalam siklus memperhatikan,
menumbuhkan, merawat dan melindungi… dan itu berat.
sebab pekerjaan berat itu harus ditunaikan dalam
waktu lama.
sebab pekerjaan berat dalam waktu lama begitu hanya mungkin dilakukan oleh mereka yang memiliki
kepribadian kuat dan tangguh.

maka setiap orang hendaklah berhati-hati saat ia
mengatakan, "Aku mencintaimu" . Kepada siapapun!
Sebab itu adalah keputusan besar. Ada taruhan
kepribadian disitu.

Aku mencintaimu, adalah ungkapan lain dari Aku ingin
memberimu sesuatu.Yang terakhir ini juga adalah
ungkapan lain dari, "Aku akan memperhatikan dirimu
dan semua situasimu untuk mengetahui apa yang kamu
butuhkan untuk tumbuh menjadi lebih baik dan bahagia..."
"aku akan bekerja keras untuk memfasilitasi dirimu
agar bisa tumbuh semaksimal mungkin..."
"aku akan merawat dengan segenap kasih sayangku
proses pertumbuhan dirimu melalui kebajikan harian
yang akan kulakukan padamu ..."
"aku juga akan melindungi dirimu dari segala sesuatu
yang dapat merusak dirimu...."

Dan proses pertumbuhan itu taruhannya adalah
kepercayaan orang yang kita cintai terhadap
integritas kepribadian kita. Sekali kamu mengatakan
kepada seseorang, "Aku mencintaimu" , kamu harus
membuktikan ucapan itu. Itu deklarasi jiwa bukan
saja tentang rasa suka dan ketertarikan, tapi
terutama tentang kesiapan dan kemampuan memberi,
kesiapan dan kemampuan berkorban, kesiapan dan
kemampuan pekerjaan-pekerjaan cinta : memperhatikan,
menumbuhkan, merawat dan melindungi.

Sekali deklarasi cinta tidak terbukti, kepercayaan
hilang lenyap.Tidak ada cinta tanpa kepercayaan.
Begitulah bersama waktu suami atau istri kehilangan
kepercayaan kepada pasangannya. Atau anak kehilangan
kepercayaan kepada orang tuanya. Atau sahabat
kehilangan kepercayaan kepada kawannya. Atau rakyat
kehilangan kepercayaan kepada pemimpinnya.

Semua dalam satu situasi : cinta yang tidak
terbukti. Ini yang menjelaskan mengapa cinta yang
terasa begitu panas membara diawal hubungan lantas
jadi redup dan padam pada tahun kedua, ketiga,
keempat dan seterusnya. Dan tiba-tiba saja
perkawinan bubar, persahabatan berakhir, keluarga
berantakan, atau pemimpin jatuh karena tidak
dipercaya rakyatnya.

Jalan hidup kita biasanya tidak linear. Tidak juga
seterusnya pendakian atau penurunan. Karena itu,
konteks di mana pekerjaan-pekerjaan cinta dilakukan
tidak selalu kondusif secara emosional.Tapi
disitulah tantangannya : membuktikan ketulusan di
tengah situasi-situasi yang sulit.

Di situ konsistensi teruji. Di situ juga integritas
terbukti. Sebab mereka yang bisa mengejawantahkan
cinta di tengah situasi yang sulit, jauh lebih bisa
membuktikannya dalam waktu yang longgar. Mereka yang dicintai dengan cara begitu, biasanya mengatakan
bahwa hati dan jiwanya penuh seluruh.
Bahagia sebahagia-bahagiany a. Puas sepuas-puasnya.
Sampai tak ada tempat bagi yang lain. ...

Nb : Dapat dari tetangga sebelah juga :D

"Did I Marry The Right Person?"

Cerita di bawah ini sangat bagus, bagi yang masih single maupun yang sudah menikah.
Bagi mereka yang masih single bisa mengambil pelajaran dari cerita ini,
dan bagi yang sudah menikah cerita ini bisa jadi guideline untuk meningkatkan ikatan pernikahan yang udah dijalani.

"Apakah saya menikah dengan orang yang tepat?"

Dalam sebuah seminar rumah tangga, seseorang audience tiba-tiba melontarkan pertanyaan yang sangat lumrah,
"Bagaimana saya tahu kalo saya menikah dengan orang yang tepat?"

Saya melihat ada seorang lelaki bertubuh besar duduk di sebelahnya jadi saya menjawab
"Ya.. tergantung. Apakah pria disebelah anda itu suami anda?"

Dengan sangat serius dia balik bertanya
"Bagaimana anda tahu?!"
"Biarkan saya jawab pertanyaan yang sangat membebani ini."

Inilah jawabannya SETIAP ikatan memiliki siklus.
Pada saat-saat awal sebuah hubungan, anda merasakan jatuh cinta dengan pasangan anda.
Telpon darinya selalu ditunggu-tunggu, begitu merindukan belaian sayangnya,
dan begitu menyukai perubahan sikap-sikapnya yang bersemangat begitu menyenangkan.

Jatuh cinta kepada pasangan bukanlah hal yang sulit.
Jatuh cinta merupakan hal yang sangat alami dan pengalaman yang begitu spontan.
Nggak perlu berbuat apapun. Makanya dikatakan "jatuh" cinta

Orang yang sedang kasmaran kadang mengatakan "aku mabuk cinta".
Bayangkan ekspresi tersebut!
Seakan-akan anda sedang berdiri tanpa melakukan apapun lalu tiba-tiba sesuatu datang dan terjadi begitu saja pada anda.

Jatuh cinta itu mudah.
Sesuatu yang pasif dan spontan.
Tapi setelah beberapa tahun perkawinan, gempita cinta itu pun akan pudar.
Perubahan ini merupakan siklus alamiah dan terjadi pada SEMUA ikatan.
Perlahan tapi pasti.. telpon darinya menjadi hal yang merepotkan, belaiannya nggak selalu diharapkan dan sikap-sikapnya yang besemangat bukannya jadi hal yang manis tapi malah nambahin penat yang ada.

Gejala-gejala pada tahapan ini bervariasi pada masing-masing individu.
Namun bila anda memikirkan tentang rumah tangga anda,
anda akan mendapati perbedaaan yang dramatis antara tahap awal ikatan,
pada saat anda jatuh cinta, dengan kepenatan-kepenatan bahkan kemarahan pada tahapan-tahapan selanjutnya.

Dan pada situasi inilah pertanyaan "Did I marry the right person?" mulai muncul,
baik dari anda atau dari pasangan anda, atau dari keduanya.. Nah Lho!

Dan ketika anda maupun pasangan anda mencoba merefleksikan eforia cinta yang pernah terjadi,
anda mungkin mulai berhasrat menyelami eforia-eforia cinta itu dengan orang lain.

Dan ketika pernikahan itu akhirnya kandas.
Masing-masing sibuk menyalahkan pasangannya atas ketidak bahagiaan itu dan mencari pelampiasan di luar.
Berbagai macam cara, bentuk dan ukuran untuk pelampiasan ini, menginkari kesetiaan merupakan hal yang paling jelas.
Sebagian orang memilih untuk menyibukan diri dengan pekerjaannya, hobinya, pertemanannya, nonton TV hingga merasa bosan, ataupun hal-hal yang menyolok lainnya.

Tapi tahu tidak?!
Bahwa jawaban atas dilema ini tidak ada di luar, justru jawaban ini hanya ada di dalam pernikahan itu sendiri.

Selingkuh?? Ya mungkin itu jawabannya.
Saya tidak mengatakan kalau anda tidak boleh ataupun tidak bisa selingkuh.
Anda bisa! Bisa saja ataupun boleh saja anda selingkuh dan pada saat itu anda akan merasa lebih baik.
Tapi itu bersifat temporer, karena setelah beberapa tahun anda akan mengalami kondisi yang sama
(seperti sebelumnya pada perkawinan anda).

Karena (pahamilah dengan seksama hal ini)
KUNCI SUKSES PERNIKAHAN BUKANLAH MENEMUKAN ORANG YANG TEPAT,
NAMUN KUNCINYA ADALAH BAGAIMANA BELAJAR MENCINTAI ORANG YANG ANDA TEMUKAN, DAN TERUS MENERUS..!

Cinta bukanlah hal yang PASIF ataupun pengalaman yang spontan.
Cinta TIDAK AKAN PERNAH begitu saja terjadi.
Kita tidak akan bisa MENEMUKAN cinta yang selamanya,
tapi kita harus MENGUSAHAKANNYA dari hari ke hari.

Benar juga ungkapan "diperbudak cinta" Karena cinta itu BUTUH waktu, usaha, dan energi.
Dan yang paling penting, cinta itu butuh sikap BIJAK.
Kita harus tahu benar APA YANG HARUS DILAKUKAN agar rumah tangga berjalan dengan baik.
Jangan membuat kesalahan untuk hal yang satu ini. Cinta bukanlah MISTERI.

Ada beberapa hal spesifik yang bisa dilakukan (dengan ataupun tanpa pasangan anda) agar rumah tangga berjalan lancar.
Sama halnya dengan hukum alam pada ilmu fisika (seperti gaya Gravitasi), dalam suatu ikatan rumah tangga juga ada hukumnya.
Sama halnya dengan diet yang tepat dan olahraga yang benar dapat membuat tubuh kita lebih kuat.
Beberapa kebiasaan dalam hubungan rumah tangga juga DAPAT membuat rumah tangga itu lebih kuat.
Ini merupakan reaksi sebab akibat.
Jika kita tahu dan mau menerapkan hukum-hukum tersebut, tentulah kita bisa "MEMBUAT" cinta bukan "JATUH".
Karena cinta dalam pernikahan sesungguhnya merupakan sebuah DECISION, dan bukan cuma PERASAAN..!

Kita ada di dunia bukan untuk mencari seseorang yang sempurna untuk dicintai TETAPI untuk belajar mencintai orang yang tidak sempurna dengan cara yang sempurna.

NB:Dapat dari tetangga sebelah :D