Window 8 Aktivator Window 8 Aktivator

Window 8 Aktivator
Window 8 Serial
Window 8 Crack
Window 8 Full Version

Read More --►

Membuat Formula Terbilang di Excel Membuat Formula Terbilang di Excel

Beberapa waktu yang lalu yang lalu, yang "KATAYA" seorang pakar dalam menyusun anggaran dan saya sendiri tidak tau apakah dia mengetes atau memang tidak tau, tapi yang jelas dia bertanya tentang formula untuk mengubah sebuah angka menjadi teks dalam dengan menggunakan Ms.Excel. Dengan pasti orang tersebut bilang "Gmana cara merubah angka 145 di dalam excel menjadi seratus empat puluh lima.? seperti tulisan “terbilang” yang banyak digunakan untuk membuat faktur, nota atau kwitansi."

Dengan dia bertanya saya jadi ingat formula tentang hal ini. Sebenarnya, awalnya formula ini untuk teks berbahasa Inggris tapi dengan sedikit utak utek kemudian saya mengubahnya menjadi berbahasa Indonesia. Karena adanya perbedaan struktur bahasa, tentu saja perubahan ini menjadi tidak sekadar hanya menerjemahkan. Langkah-langkahnya cukup mudah kok untuk mengurai angka menjadi text. Are you ready.!!!

    Buka Ms.Excel anda atau buat file baru Ms.Excel, buka Microsoft Visual Basic Editor dari menu Tools > Macro > Visual Basic Editor atau langsung tekan tombol Alt + F11.
    Buat sebuah module baru dengan cara klik menu Insert > Module kemudian tambahkan script berikut. :

Option Explicit
Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg
ReDim Place(9) As String
Place(2) = "ribu "
Place(3) = "juta "
Place(4) = "milyar "
Place(5) = "trilyun "
'Pengubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))
'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If
'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupiah
Case ""
Rupiah = "nol rupiah"
Case Else
Rupiah = Rupiah & "rupiah"
End Select
Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen & "sen"
End Select
If IsNeg = True Then
Terbilang = "minus " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If
End Function
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "se"
Exit Function
End If
'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "seratus "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "ratus "
End If
End If
'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If
Ratusan = Result
End Function
Function Puluhan(TeksPuluhan)
Dim Result As String
Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "sepuluh "
Case 11: Result = "sebelas "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "belas "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "puluh "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "satu "
Case 2: Satuan = "dua "
Case 3: Satuan = "tiga "
Case 4: Satuan = "empat "
Case 5: Satuan = "lima "
Case 6: Satuan = "enam "
Case 7: Satuan = "tujuh "
Case 8: Satuan = "delapan "
Case 9: Satuan = "sembilan "
Case Else: Satuan = ""
End Select
End Function

Simpan dan tutup kembali Visual Basis Editor lalu kembali ke lembar kerja excel, coba ketikkan angka sembarang di sembarang tempat.

Contoh : ketikkan nilai 1199 dalam cell B5 Kemudia di cell yang lain ketikkan formula =terbilang(B5)
Jika fungsi diatas ditulis dengan benar maka di cell tersebut akan muncul hasil terbilang yaitu seribu seratus sembilan puluh sembilan rupiah

Thank for read.

sumber : http://teknoringan.blogspot.com

Read More --►

Setting Gmail di outlook 2007 Setting Gmail di outlook 2007

Jika sudah ada aplikasi Microsoft Outlook 2007 di komputer kita bisa mengunduh email yang kita miliki di Gmail dengan aplikasi tersebut. Jika belum memiliki akun di Gmail dan ingin memilikinya silahkan bikin akun di www.gmail.com

Langkah-langkah setting Gmail pada MS. Outlook 2007:

1. Login ke gmail.com > Setelan> Penerusan dan POP/IMAP, tandai Aktifkan POP, tandai misal Fungsikn POP untuk semua emil (bahkan email yang telah didownoad), simpan perubahan. Tinggalkan gmail.

2. Buka aplikasi Microsoft Outlook 2007> Tools> Account setting> New>

- pastikan tandai radio button pada Microsoft Exchange, POP, IMAP, or HTTP klik Next

- biarkan kosong kolom-kolom yang ada, tandai Manually configure server settings or additional server type, klik Next

- pastikan tandai Internet E-mail klik Next

- Your name: isi dengan nama yang ingin dimunculkan

- E-mail address: isi dengan alamat gmailmu misal punyamu@gmail.com

- Account type: POP3

- Incoming mail server: pop.gmail.com

- Outgoing mail server: smtp.gmail.com

- Username: ID punyamu (otomatis teriisi jika sudah mengisi alamat email)

- Password: password gmailmu untuk login

- Tandai Require log on using secure password authentication (SPA)

- Klik More Setting

- Otomatis sudah ada nama account sesuai alamat email, bisa diganti sesuai kebutuhan, misal dengan username saja atau biarkan saja apa adanya jangan klik OK dulu lakukan setting berikutnya

- Klik Outgoing server, tandai My outgoing server (SMTP) requires authentication, tandai Use same setting as my incoming mail server, jangan klik OK dulu, lakukan setting berikutnya

- Klik Advanced , tandai This server requires an encrypted connection (SSL) maka otomatis Incomimg server (POP3): berubah nilai menjadi 995 , pada outgoing server (SMTP): ganti angka 25 menjadi 465

- Use the following type of encrypted connection: asalnya adalah None, klik lalu ganti dengan SSL

- Tandai Leave a copy of message on the server

- Klik OK

- Klik Next> klik Finish

- Close, akan kembali ke halaman awal MS Outlook

Jika memakai koneksi dial-up dan tidak selalu terhubung internet sebaiknya gunakan koneksi manual saja dengan menonaktifkan schedule otomatis untuk send/receive dengan cara:

Buka aplikasi MS outlook> Tools> Options> Mail Setup> klik tombol Send/Receive> hilangkan tanda centang pada Schedule an automatic send/receive every … minutes > Close> Apply >OK

Cara mengecek dan mendowload email yang masuk:

- Pastikan komputer telah terhubung dengn internet dan sudah bisa untuk browsing,

- buka apilkasi MS Outlook> klik ikon Send/Receive (gambar amplop dobel), tunggu sampai proses selesai. Akan tanpak pada Inbox jika ada email yang masuk.

Cara lain:

jika yang diklik tanda panah pada ikon Send/Receive:

- sorot akun email yang telah dibuat > pilih Inbox jika ingin mendowload email yang masuk

- Jika memilih Download inbox header maka hanya header saja yang didowload belum bisa melihat isinya. Untuk melihat isinya sorot header yang telah didowload, klik kanan> pilih Mark to download Message copy> lalu klik ikon Send/Receive> sorot akun email yang telah dibuat> klik Procees Marked Header.

Dengan memilih Downlod inbox header maka kita bisa memilih email mana yang ingin kita ketahui isinya tanpa harus mendownload seluruh isi email.

Read More --►

Cheat POINTBLANK Terbaru no Band... Cheat POINTBLANK Terbaru no Band...

Cheat PB Point Blank Terbaru 23 Juni 2012 SUPER HACK - Halo sobat semua, hari ini saya akan berbagi cheat pointblank terbaru 2012. Cheat ini bukan buatan saya tetapi dari para master cheat PB kita di Indonesia (sudah tahu kan siapa?). OK, kalau kamu sudah tidak sabar untuk cheat Pointblank, silahkan download cheat pointblank dibawah ini:


Fitur Cheat PB Point Blank Terbaru Juni 2012:
- All Damage Weapon
- WH
- Chams Hack
- No Smoke
- No Fog
- Speed Mode
- Terror Skill
- CT Skill
- Invisible
- Fast Respawn
- No Delay
- Dan lain-lain

Cara Penggunaan Cheat PB Point Blank Terbaru Juni 2012:

    Buka cheat pointblank
    Buka Pointblank.exe (langsung start)
    Setelah itu cheat akan mendeteksi, dan akan muncul notice
    Lalu klik OK saja setiap muncul notice
    Selamat bermain cheat


Cara download Cheat PB Point Blank Terbaru 23 Juni 2012 SUPER HACK:
Klik link dengan tulisan "Download Cheat PB Point Blank Terbaru 23 Juni 2012 SUPER HACK"
Setelah kamu akan di redirect ke Adf.ly, tunggu 5 detik sampai muncul gambar "Skip Ad"
Klik tulisan "Skip Ad", kamu akan ditujukan ke Mediafire
Setelah itu klik "Download"
Download Cheat PB Point Blank Terbaru 23 Juni 2012 SUPER HACK
Sekian dari saya tentang Cheat PB Point Blank Terbaru 23 Juni 2012 SUPER HACK, semoga kamu bisa menggunakan cheat nya dengan baik (jangan show off). TERIMAKASIH!
4.5

Read More --►

Cheat Lostsaga terbaru anti band Cheat Lostsaga terbaru anti band

Buat lu semua yang suka main Lostsaga gue punya satu cheat peso yang sampai hari ini masih bisa gue pakai, sebelum lu download gue cuma minta tolong kalo mau copas sertakan original link nya donk jangan main colong kaya maling. cheat peso lostsaga ini pertama kali di posting di nabilaberkata.blogspot.com. Oke sebelum lu download cheat nya gue kasih liat dulu screen shot chart gue biar lu tau kalo gue ga bohong, berikut screen shotnya 

 

Liat peso gue 999,999. banyak kan padahal ini chart baru gue bikin. kalo work jangan lupa add friend chart gue ya.langsung aja download cheat nya di bawah ini :

Read More --►