Tybrightsoftware

Download Movie | Download Game

Select Menu
  • Home
  • Blogging
    • Tutorial Blogspot
    • CSS
    • jQuery
    • Widget
  • Tools
    • Font Awesome
    • HTML Editor
    • HTML Encrypter
    • Code Color
    • Responsive Cek
  • Sitemap
  • Static Page
  • Error Page
Home » Teknolog Computer » Cara Membuat Add In Terbilang Untuk Microsoft Word 2007

Cara Membuat Add In Terbilang Untuk Microsoft Word 2007

Add Comment
Teknolog Computer


Bagaimana membuat membuat Add In terbilang (menterjemahkan angka menjadi kata-kata ) pada Microsoft Excel 2007. Bagi anda yang sering membuat tanda terima pembayaran tentunya sering kali anda harus menterjemahkan angka-angka menjadi kata-kata, misal Rp. 1000,- diterjemahkan menjadi "Seribu Rupiah", tentu akan sangat melelahkan jika hal ini harus dikerjakan secara manual, dimana anda harus mengeja setiap angka pada transaksi anda untuk kemudian anda ketik. Tujuan Add In ini saya berharap akan bisa membantu mempermudah pekerjaan dalam membuat tanda terima dan mempersingkat proses.

Langkah-langkahnya sebagai berikut :
1. Pilih tab View - Macros - View Macros
2. Muncul popup Macros lalu tulis nama macro pada kolom "Macro name" (tanpa spasi)
3. Lalu pilih "Create"
4. Maka muncul "Microsoft visual basic for applications"
5. Pada folder "Modules" klik kanan pada "New Macros - View Code" (delete semua perintah yang ada sebelumnya)
6. Copy paste perintah berikut ini :
Option Explicit
Sub ctvTerbilang()
Dim Number As Variant, Kata As String, sText As String
Const Ttel As String = “Terbilang Max 18 digit saja loh!”sText = Replace(Selection, Chr(10), “”)
Selection = sText
If IsNumeric(Selection) Then
Number = CDec(Selection)
With Selection
.Copy
.EndKey Unit:=wdLine
.TypeParagraph
End WithSelect Case Number
Case 0
Kata = “Zero”
Case 0.001 To 1E+18
Kata = TERBILANG(Number)
Case Else
MsgBox “Bilangan Terlalu besar!”, 48, Ttel
End Select
Else
MsgBox “Tidak ada bilangan di dalam selection!!”, 48, Ttel
End If
Selection = Kata
End SubPrivate Function TERBILANG(Nnum As Variant) As String
Dim nUtuh As Variant, nDesi As Variant
Dim sUtuh As String, sDesi As String
Nnum = CDec(Round(Nnum, 2))
nUtuh = CDec(Int(Nnum))
nDesi = CDec(Round((Nnum – nUtuh) * 100, 0))
sUtuh = TransX(nUtuh)
If nDesi = 0 Then
sDesi = “”
Else
sDesi = “dan ” & TransX(nDesi) & ” per seratus”
End If
TERBILANG = Trim(sUtuh & ” ” & sDesi)
End FunctionPrivate Function TransX(Bilangan As Variant) As String
Dim TxtBil As String, Teks As String, i As Integer, Pos As Integer
Dim Angka(19) As String, Puluh(9) As String, Letak(4) As String
Dim DwiDigit As Byte, TriD1 As Byte, TriD2 As Byte, TriD3 As Byte
Angka(1) = “satu”: Angka(2) = “dua”: Angka(3) = “tiga”
Angka(4) = “empat”: Angka(5) = “lima”: Angka(6) = “enam”
Angka(7) = “tujuh”: Angka(8) = “delapan”: Angka(9) = “sembilan”:
Angka(10) = “sepuluh”: Angka(11) = “sebelas”: Angka(12) = “dua belas”
Angka(13) = “tiga belas”: Angka(14) = “empat belas”: Angka(15) = “lima belas”
Angka(16) = “enam belas”: Angka(17) = “tujuh belas”: Angka(18) = “delapan belas”
Angka(19) = “sembilan belas”
Puluh(0) = “”: Puluh(2) = “dua puluh”: Puluh(3) = “tiga puluh”
Puluh(4) = “empat puluh”: Puluh(5) = “lima puluh”: Puluh(6) = “enam puluh”
Puluh(7) = “tujuh puluh”: Puluh(8) = “delapan puluh”: Puluh(9) = “sembilan puluh”
Letak(0) = “ribu”: Letak(1) = “juta”
Letak(2) = “milyar”: Letak(3) = “triliun”: Letak(4) = “kuadriliun”
Bilangan = CDec(Bilangan)
TxtBil = Trim(Str(Round(Abs(Bilangan), 0)))
If CDec(TxtBil) = 0 Then
Teks = “nol ”
Else
i = 0
Do
TxtBil = “000? + TxtBil
DwiDigit = CByte(Right(TxtBil, 2))
If (DwiDigit > 0) And (DwiDigit < 20) Then
Teks = IIf((Bilangan < 2000 And i = 1), “se”, Angka(DwiDigit) + ” “) + Teks Else TriD3 = CByte(Right(TxtBil, 1)) If (TriD3 > 0) Then Teks = Angka(TriD3) + ” ” + Teks
TriD2 = CByte(Left(Right(TxtBil, 2), 1))
If (TriD2 > 0) Then Teks = Puluh(TriD2) + ” ” + Teks
End If
TriD1 = CByte(Left(Right(TxtBil, 3), 1))
If (TriD1 = 1) Then Teks = “seratus ” + Teks
If (TriD1 > 1) Then Teks = Angka(TriD1) + ” ratus ” + Teks
TxtBil = Left(TxtBil, Len(TxtBil) – 3)
If (CDec(TxtBil) > 0) Then
Teks = IIf(CInt(Right(TxtBil, 3)) = 0, “”, Letak(i) + ” “) + Teks
i = i + 1
End If
Loop While ((CDec(TxtBil) > 0) And (i < 6))
End If
TransX = Trim(Teks)
End Function
7. Lalu pilih File - Save normal 
8. Klik File - Close and Return to Microsoft Word
9. Pilih save as dengan type "Word Macro-Enabled Document"
10. Setelah itu coba jalankan microsoft word 2007
11. Lalu coba macro dengan pilih tab View - Macros - View Macros. Nama macro yan dibuat sebelumnya akan otomatis berubah menyesuaikan script yang ada. Lalu coba anda tulis 123426353 dan seleksi angka tersebut lalu pilih tab “View > Macros > View Macros > pilih nama macronya lalu klik "Run"

Suka Artikel? Bagikan: Facebook Twitter Google+
0 Komentar untuk "Cara Membuat Add In Terbilang Untuk Microsoft Word 2007"

Posting Lebih Baru Posting Lama Beranda
Langganan: Posting Komentar (Atom)

Entri Populer

  • Cara Membayar Tagihan Telkom dan Speedy Via ATM
    Bagi anda yang sedang menggunakan jasa Telkom untuk jaringan telepon  dan koneksi internet ada baiknya mengetahui cara pembayaran yan...
  • Cara Membuat Add In Terbilang Untuk Microsoft Excel 2007
    B agaimana membuat membuat Add In terbilang (menterjemahkan angka menjadi kata-kata ) pada Microsoft Excel 2007. Bagi anda yang sering m...
  • Download Game International Volleyball 2009 For PC
    Size Game: 189MB Tentang Game: International Volleyball 2009 is an indoor volleyball video game developed for PC. Finally you play 6 ...

Labels

  • Android
  • Antivirus
  • Aplikasi
  • Cheat Game
  • E. B indonesia
  • E. Fisika
  • E. Kimia
  • E. Matematika
  • E. PKN
  • E. Sejarah
  • E.B English
  • Ebook
  • Emulator
  • Free SSH
  • Game
  • Game Pc
  • Game Tips Dan trik
  • info dan berita
  • Inject Indosat
  • Internet
  • Kesehatan
  • Makalah
  • Movie
  • Os
  • Os Windows Vista
  • Os windows XP
  • Os windows7
  • Os windows8
  • Rubik
  • S. Browser
  • S. CD/DVD
  • S. Compres
  • S. Download Manager
  • Software
  • Teknolog Computer
  • Teknolog gadget
  • Teknolog Internet
  • Template
  • tips dan trik
  • Wallpaper

Blog Archive

  • ►  2014 (31)
    • ►  Agustus (1)
    • ►  Juli (27)
    • ►  Februari (3)
  • ▼  2013 (210)
    • ▼  Februari (210)
      • Windows Xp 8 Edisi Elite Edition
      • Komposisi Fungsi
      • matematika dan rubik 2
      • Matematika dan rubik (1)
      • Grup dalam rubik
      • Internet Download Manager v6.12 Beta build 9 | 4.0...
      • Download mananger "Gigaget" | 2.00 MB
      • Download Format Factotry v2.60
      • Alcohol 120% 2.0.2.3931 Full Crack | 10.23 MB
      • Windows Mac OS XP ​​Pro 2012 | 485 MB
      • Windows Vista Ultimate 32 Bit and 64 Bit Edition 0...
      • Download Windows 8 Developer Preview
      • Download Windows 8 Consumer Preview
      • Windows 8 Release Preview ISO images x32/x64
      • Windows 8 Enterprise RTM (x86/x64)
      • Windows 7 Proffessional AndroidRockz SP1 x86 x64
      • Makalah Geostrategi
      • Download video Youtube menggunakan Hp
      • Cara Menambahkan Emoticon / Smileys Chat di Facebook
      • Daftar Website Download Software Gratis
      • IDM Optimizer : Software Ringan Untuk Memaksimalka...
      • Cara Download File Waptrick Melalui Laptop/Komputer
      • IDM 6.12 Beta 3 Full Bhs.Indonesia Aktif Forever |...
      • Download Browser Baru Dari Mozilla Waterfox | 23.6 Mb
      • Emoticon facebook terbaru 2012
      • Code rahasia pada Hp china
      • Cara mendownload semua jenis Driver
      • 5 Website Upload Terfavorit dan Tanpa Timing Counter
      • Hot, Mencari Keyword Yang Unik
      • Gratis! Kuota 76MB dari Telkomsel
      • Cara mempercepat internet Smartfren EVDO / CDMA
      • SpeedyFox 2.0.2 | 496 KB
      • Resep Resep harvest moon BTN
      • Rumble Racing Cheat Codes
      • Code/pasword game GTA Sanandreas
      • Code Code card yugi oh
      • Cara mendapatkan semua ikan legendaris Harvest Moo...
      • Download Nitro racers
      • Download NFS Underground Portable (165 MB)
      • Download Monopoly Portable
      • Download Plants vs Zombies
      • Download Game Gear Fighter Dendoh | 37.18 MB
      • Yu-Gi-Oh! - Forbidden Memories | 197.96 MB
      • Angry Birds Rio v2.2.0 Full Version + Crack | 46.7 MB
      • Game Scooby Doo First Frights Full RIP
      • Download Game Super Mario Bros 3 Full | 14.48 Mb
      • Dead Hungry Dinner | 59.11 Mb
      • Game Pemburu Pocong | 400 Mb
      • Download Emulator Ps 1 ePSXe | 3.8 Mb
      • Download BlueStack (emulator Android) | 3,6 Mb
      • Orde Baru
      • Lahirnya Reformasi dan jatuhnya masa Orde baru
      • Rinkasan Pkn Kls XII Bab 2
      • Bermain logika dengan ilmu matematika
      • Soal Soal Trigonometri
      • Pecahkan Berbagai Soal dengan Microsoft Mathematics
      • Download Flash Fisika SMA
      • Kumpulan Buku Kimia Sma kls 12
      • Kumpulan Rumus Fisika SMA
      • Ensiklopedia Matematika +1000 Kata
      • Puisi Kemerdekaan (17 Agustus)
      • Rumus 16 Tense beserta contohnya
      • Cepat menguasai passive Voice
      • Makalah Geostrategi
      • Download Majalah pulsa Edisi 240 | 95Mb
      • Kumpulan Rumus Matemtika SMA & Umum
      • Majalah PULSA edisi khusus Agustus | 60 Mb
      • Novel Surat kecil untuk tuhan
      • Download Flash matematika SMA
      • Harga Baterai BlackBerry Original Terbaru
      • Harga Laptop Murah September 2012
      • Harga terbaru HP Nokia bulan September 2012
      • Harga Terbaru iPhone 5
      • 5 Ponsel Terpopuler di Indonesia
      • Netbook Acer Murah,Lebih Kencang dan Irit
      • APLIKASI AL QUR'AN UNTUK Blackberry DAN HP DENGAN ...
      • Tarif Hemat Untuk Jamaah Haji
      • Harga Laptop Acer Bulan Oktober 2012
      • Harga Laptop dan Netbook Toshiba Bulan Oktober 2012
      • Harga Blackberry Bulan Oktober 2012
      • Harga Laptop Acer Bulan Oktober 2012
      • Tips agar blackberry tidak lemot
      • Download Gratis Aplikasi Kamus Inggris-Indonesia U...
      • Cara mudah membuat Charger HP di sepeda motor
      • Daftar Harga Laptop HASEE Bulan November 2012
      • Daftar Harga Laptop dan Netbook Acer Bulan Novembe...
      • Harga Terbaru Laptop Asus, Fujitsu, HP, dan Lenovo...
      • Daftar Harga Laptop dan Netbook Toshiba Bulan Nove...
      • Daftar Harga Blackberry Terbaru
      • Daftar Harga HP Merek Cross Bulan November 2012
      • Dftar Harga samsung galxy Terbaru 2014
      • Daftar Harga Kamera digital November 2012
      • Inilah Tips dan Trik Mempercepat Kinerja Perangkat...
      • Inilah Beberapa Kelemahan iPhone
      • TIPS Penting Sebelum Anda Membeli Kamera Digital
      • Inilah 15 Aplikasi Yang Wajib Ada di Blackberry
      • Inilah Harga iPhone 5
      • Cara Mudah Mengetahui Nomer HP Milik Sendiri
      • Perbandingan Blackberry Storm 9500 dan Blackberry ...
      • Membuat Yahoo! Messenger Bisa Login Dengan Banyak ID

Labels

Android Antivirus Aplikasi Cheat Game E. B indonesia E. Fisika E. Kimia E. Matematika E. PKN E. Sejarah E.B English Ebook Emulator Free SSH Game Game Pc Game Tips Dan trik info dan berita Inject Indosat Internet Kesehatan Makalah Movie Os Os Windows Vista Os windows XP Os windows7 Os windows8 Rubik S. Browser S. CD/DVD S. Compres S. Download Manager Software Teknolog Computer Teknolog gadget Teknolog Internet Template tips dan trik Wallpaper

Site Info

About Me

Unknown
Lihat profil lengkapku or visit on

© Tybrightsoftware powered by Pengertian Pendidikan.
All Right Reserved.