Selasa, 03 Juli 2007

MacroWord

Bikin menu baru pada word yuk!

Kali ini kita akan belajar meangaktifkan macroword. Masih tetap pada fungsi terbilang.
Caranya :
WORD

1. menjalankan Macro

Tools|Macro|Security|Low

WORD

2. Untuk mengaktifkan / membuat Makro

Tools|Macro|Visual Basic Editor (semuanya langsung Alt+F11)

WORD

Di Normal (klik + menjadi - ), kemudian Insert|Module

WORD

Copy kan, Module terbilang dari Excell, kedalam Module1

Modifikasi beberapa Statement

Excel :

Function TERBILANG(Angka As Double) As String

……

Dim Panjang As Integer

Dim AngkaI(15) As Integer

Dim Nomor(9), Hurufke(15) As String

Dim StrAngka, Temp As String


'Inisialisasi

……..

……..

…….

TERBILANG = ""

For i = 1 To 15

TERBILANG = TERBILANG + Hurufke(16 - i)

Next i

End function



Word:

Sub TERBILANG()

…….

Dim Panjang As Integer

Dim AngkaI(15) As Integer

Dim Nomor(9), Hurufke(15) As String

Dim StrAngka, Temp As String

D

TAK ADA DI EXCEL

im Angka As Currency

Dim Terbil As String


Angka = Val(Selection.Text)

'Inisialisasi

………

………


T

BEDA DENGAN EXCEL

erbil = ""

For i = 1 To 15

Terbil = Terbil + Hurufke(16 - i)

Next i

TAK ADA DI EXCEL


Selection.Text = Str(Angka) & " ( " & Terbil & " ) "


End Sub

WORD

3. Buat MENU baru

Tools|Customize|Command|New Menu (kamu tarik sejajar menu file,edit dll)

WORD

Pada posisi yang sama (Tools|Customize|Command), klik kanan pada New Menu, di Name : ganti New Menu dengan Terbilang

WORD

Isi Terbilang dengan Macro, (juga pada kondisi Tools|Customize), Caranya sama dengan membuat menu baru tapi taruh dibawah menu baru ya..!

WORD

Untuk menjalankan Program :

Tulis angka di WORD, kemudian di blok, dilanjutkan dengan mengklik menu Terbilang, dan pilih Terbilang (Indonesia), maka akan berubah menjadi terbilang dengan angka,


Contoh :


Tulis : 123456789012

WORD

Klik Menu : Terbilang|Terbilang (Indonesia)

Hasil : 123456789012 ( seratus dua puluh tiga miliar empat ratus lima puluh enam juta tujuh ratus delapan puluh sembilan ribu dua belas )

Klik Menu : Terbilang|Sayword (English)

Hasil : 123456789012 ( one hundred twenty three billion four hundred fifty six million seven hundred eighty nine thousand twelve )


Silakan di coba ya.....!




3 komentar:

  1. ASS....Nyoba' tuk....tp kpn2 diisi foto2 yg menarik gt loh..biar seger yg ngeliatnya

    BalasHapus
  2. numpang lewat :_)

    hmcahyo.wordpress.com

    BalasHapus
  3. Terima kasih atas sharing ilmunya...

    BalasHapus

Tukeran link yukk!!!

Logo aq disini...
Host Gambar Gratis