Fungsi Merubah Angka ke Kata Untuk MS Excel

Fungsi Terbilang(…) dan TerbilangRp(…), dan TerbilangSen(…)
Pada worksheet ini kita memakai fungsi terbilang yang telah di entry pada module Terbilang
Pada module tersebut kita memiliki dua fungsi utama untuk menampilkan angka menjadi:
1. Terbilang(x) -> sekian koma sekian per seratus
2. TerbilangRp(x) -> sekian rupiah sekian sen
2. TerbilangSen(x) -> sekian koma sekian sekian

<div style=”display:none;”>

rolex replica watches  |
omega replica watches  |
longines replica watches  |
rolex replica watches  |
breitling replica watches  |
rolex replica wathces  |
omega replica watches  |
Windows 7 key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |
Windows 7 key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |
Windows 7 ultimate key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |
Office 2013 key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |
Office 2016 key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |
windows 7 Activation Key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |
windows 7 Activation Key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |
windows 7 home premium key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |
Office 2016 key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |
Windows 7 key  |
Windows 7 key  |
windows 7 professional key  |
windows 7 ultimate key  |
windows 7 home premium key  |
windows 7 Activation Key  |
windows 8 key  |
Windows 8 Enterprise key  |
Windows 8 Professional key  |
windows 8.1 professional key  |
Windows 10 key  |
windows 10 product key  |
Windows 10 serial key  |
windows 10 pro key  |
windows 10 home key  |
Office 2010 key  |
Office Professional Plus 2010 key  |
Office 2013 key  |
office professional plus 2013 key  |
Office 2016 key  |
Office Professional 2016 key  |
office professional plus 2016 key  |
Office 2016 for Mac Key  |

Penggunaannya sama dengan penggunaan fungsi-fungsi dalam excel lainnya.

Contoh 922,337,203,685,477.00

Download file terbilang.zip

Ditulis : = TerbilangRp(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh rupiah

Ditulis : = Terbilang(B9)
Hasilnya:
Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh

Sembilan ratus dua puluh dua triliun tiga ratus tiga puluh tujuh milyar dua ratus tiga juta enam ratus delapan puluh lima ribu empat ratus tujuh puluh tujuh

Memasukkan Fungsi Terbilang
Masukkan Kode dalam listing vba function dengan cara mengcopy seluruh kode
ke dalam module Vba dalam suatu worksheet.

  1. Blok/sorot A1:A163 dan Copy atau Ctrl-C pada Sheet Listing Vba Function

  2. Pilih Tool – Macro – Visual Basic Editor atau Alt-F11

  3. Insert – Module
  4. Edit – Paste atau Ctrl-V
    5 File Save … Beri nama misalnya: BacaAngka atau yang lainnya
    selesai
    anda tinggal menggunakannya.

contoh

!!!! Ingat anda harus men-setup macro security ke medium !!!!
Caranya
1 Menu Tools pilih tab Security lalu

2 Tekan tombol Macro Security pilih option Medium tekan Ok

3 Tutup Microsoft Excell dan Exit dari Excell
4 Buka Microsoft Excell
5 Mulai

LISTING

‘This Public Function for Indonesian “Numeric to string Converstion”
‘You can copy, modify or take part of this function
‘Redesign and retouch to get new rupiah function by: aurinoradjamaris@yahoo.com
‘aurinodjamaris@gmail.com
Web Site:

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
baca = baca + Ratus(ribu, 2) + “ribu ”
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
baca = baca + Ratus(ribu, 2) + “ribu ”
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
baca = baca + Ratus(ribu, 2) + “ribu ”
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

VBAExcel-Menghilangkan Duplikasi Dalam Excel

 

Berikut adalah kode VBA untuk menghapus duplikasi data serta menghilangkan item yang tidak sama.

Gambar di bawah menunjukkan dua buah kolom yang berisi data. Kita ingin menghapus duplikasi data dari kolom kedua dengan membandingkan ke isi kolom A.

Kode VBAnya adalah sebagai berikut:

Sub RemoveDuplicatesInCells()

    Dim c As Range
    Dim rCheckForDupes As Range

    Set rCheckForDupes = Range(“A1:B14”)

    With rCheckForDupes

        For Each c In .Columns(2).Cells

            If WorksheetFunction.CountIf(.Columns(1), c.Value) > 0 Then
                c.ClearContents
            End If

        Next c

    End With

    Set rCheckForDupes = Nothing

End Sub


Hasilnya adalah sebagai berikut:

Bagaimana untuk menghapus sel-sel yang kosong? Maka kita ubah kode VBA menjadi

.

Sub RemoveDuplicatesInCells2()

    Dim c As Range
    Dim rCheckForDupes As Range

    Set rCheckForDupes = Range(“A1:B14”)

    With rCheckForDupes

        For Each c In .Columns(2).Cells

            If WorksheetFunction.CountIf(.Columns(1), c.Value) > 0 Then
                c.ClearContents
            End If

        Next c

        .Columns(2).SpecialCells(xlCellTypeBlanks).Select

        Selection.Delete Shift:=xlUp

        .Cells(1).Select

    End With

    Set rCheckForDupes = Nothing

End Sub


Hasilnya adalah:.

Untuk menghapus data yang tidak sama maka, ubahlah tanda lebih besar (>) dalam “If WorksheetFunction.CountIf(.Columns(1), c.Value) > 0” menjadi tanda sama dengan (=) sign.

 

Sumber: andrewsexceltips.com.

Fungsi MsgBox

by Aurino Djamaris

 

 Excel VBA MsgBox (kotak pesan) adalah sebuah kotak dialog yang dapat digunakan dalam Excel VBA untuk menampilkan informasi kepada pengguna program Anda. Di bawah ini Anda dapat menemukan tiga contoh tentang cara mudah untuk membuat MsgBox di Excel VBA.

1. Untuk menampilkan MsgBox dengan pesan “Belajar Message Box “, menempatkan tombol perintah pada lembar kerja Anda dan hanya menambahkan baris kode berikut:

MsgBox ” Belajar Message Box ”

Secara lengkap dalam VBA adalah sebagai berikut:


Hasilnya akan muncul seperti di bawah ini Result pada saat Anda mengklik command button pada sheet1:


2. Percobaan ke dua kita akan menambah perintah lainnya pada MsgBox.

Memasukkan angka apasaja ke sel A1 (contoh disini adalah 19).

Baris perintah yang diketikkan menjadi:

MsgBox “Angka di Sel A1 adalah ” & Range(“A1”).Value

Secara lengkap dalam VBA adalah sebagai berikut:


Hasilnya akan muncul seperti di bawah ini Result pada saat Anda mengklik command button pada sheet1:


Kita menggunakan operator & untuk menggabungkan (join) dua string. Meskipun Range (“A1”). Nilai bukan string, perintah ini dapat dilakukan.

3. Untuk memulai baris baru di kotak pesan, Anda dapat menggunakan vbNewLine. Tambahkan baris kode berikut:

MsgBox “Baris 1” & vbNewLine & “Baris 2”

Secara lengkap dalam VBA adalah sebagai berikut:


Hasilnya akan muncul seperti di bawah ini Result pada saat Anda mengklik command button pada sheet1:

Macro Comments

By Aurino Djamaris

macro comment adalah bagian dari teks dalam makro yang tidak akan dieksekusi oleh Excel VBA. Hanya ada untuk memberikan informasi tentang makro. Agar VBA Excel menganggap bahwa hal itu adalah sebuah comment (komentar atau keterangan program), berilah apostrof (‘) di awal teks. Lakukan beberapa langkah berikut untuk membuat comment dalam VBA.

  1. Jalankan Visual Basic Editor.

  2. Masukkan baris: ‘Tempat kata Halo ke dalam sel A1’ sebelum baris kode. Setelah baris dimasukkan, Excel VBA warna garis hijau untuk menunjukkan bahwa itu adalah komentar. 

A macro comment is a piece of text in a macro which will not be executed by Excel VBA. It is only there to provide you information about the macro. To let Excel VBA know that it is a comment, place an apostrophe at the start of the text. Execute the following steps to place a comment.

1. Launch the Visual Basic Editor.

2. Insert the line: ‘Place the word Hello into cell A1’ before the code line. After the line is inserted, Excel VBA colors the line green to indicate that it is a comment.


Penambahan comment pada code VBA anda akan sangat bermanfaat, apalagi jika program VBA menjadi lebih besar.

Macro Security pada Excel 2010 / 2007

Macro Security pada Excel 2010 / 2007

by Aurino Djamaris

 Untuk mengatur keamanan makro di Excel 2010 atau Excel 2007, lakukan langkah-langkah berikut.

1. Klik pada Macro Security.


2. Dalam Pengaturan ini Anda memiliki empat pilihan. Pilihan pertama akan menonaktifkan semua macro. Pilihan kedua akan selalu meminta Anda untuk mengaktifkan makro. Pilihan ketiga hanya akan memungkinkan macro dengan digital signature (tanda tangan digital) untuk menjalankan. Pilihan keempat akan memungkinkan semua macro.


Saran saya adalah menggunakan tingkat keamanan kedua jika Anda banyak men-download file Excel dari internet. Dengan tingkat keamanan Anda selalu dapat menonaktifkan makro jika Anda tidak percaya kepada pemilik dari file Excel yang mengandung makro. Gunakan tingkat keamanan keempat jika Anda seorang pemula dan hanya mengetik macro Anda sendiri pada saat ini. Dengan tingkat keamanan Anda tidak harus mengaktifkan macro sepanjang waktu.

Macro Security pada Excel 2003

 Sebelum Anda mulai penggunaan makro pada Excel 2003, maka pastikan bahwa pengaturan makro Anda keamanan ditetapkan dengan tepat. Mungkin tidak akan terjadi hal-hal buruk akan terjadi pada sistem Anda, tetapi ada kemungkinan bahwa makro mengandung virus.

1. Klik pada Tools, Macro, Security.


2. Di sini Anda memiliki empat pilihan. . Very High (Sangat Tinggi) akan menonaktifkan semua macro, kecuali makro Anda yang telah disimpan dalam folder tertentu. High (Tinggi) hanya akan memungkinkan macro yang ditandai oleh sumber terpercaya diakui. Medium (Menengah) akan memungkinkan Anda untuk memutuskan apakah menjalankan makro atau tidak. Low (Rendah) akan memungkinkan semua macro.


Saran saya adalah untuk menggunakan tingkat medium jika Anda banyak men-download file Excel dari internet. Tingkat keamanan memungkinkan Anda untuk menonaktifkan makro jika Anda tidak percaya kepada sumber dari file Excel. Anda dapat menggunakan tingkat Low jika Anda hanya membuat macro Anda sendiri pada saat ini. Dengan tingkat keamanan ini Anda tidak harus mengaktifkan macro sepanjang waktu.

 

Sumber: Microsoft – http://office.microsoft.com/en-gb/excel-help/change-macro-security-settings-in-excel-HP010342232.aspx?CTT=1


 

Visual Basic Editor pada Excel 2010 / 2007

Visual Basic Editor pada Excel 2010 / 2007

Untuk menjalankan Visual Basic Editor di Excel 2010 atau Excel 2007, klik pada Visual Basic (atau tekan + (ALT – F11).


Visual Basic Editor akan muncul:


Jendela kiri yang berisi nama sheet di dalamnya disebut Project Explorer. Jika Anda tidak dapat melihat Project Explorer, klik View dan kemudian Project Explorer. Kemungkinan besar Project Explorer akan muncul sebagai sebuah kolom di sisi kiri layar. Jika tidak, jalankan tiga langkah berikut untuk mencapai hal ini.

  1. Klik kanan pada Project Explorer.
  2. Periksa Dockable (kadang perlu dilakukan hal ini).
  3. Klik pada Project – VBAProject dan geser-tarik Project Explorer dari sisi kiri layar.

Jendela Kode (Window code) dapat ditambahkan dengan mengklik salah satu nama lembar. Agar penuh satu layar, Anda dapat memaksimalkan Window Code.

Visual Basic Editor pada Excel 2003

Untuk menjalankan Visual Basic Editor di Excel 2003, klik View Code dari Control Toolbox (atau tekan + (Alt + F11). 


Visual Basic Editor muncul:


Jendela di sebelah kiri dengan nama Sheet1, Sheet2 dan Sheet3 di dalamnya disebut Project Explorer. Jika Anda tidak dapat melihat Project Explorer, Anda dapat klik pada View dan kemudian Project Explorer. Kemungkinan besar Project Explorer sudah muncul sebagai sebuah kolom di sisi kiri layar. Jika tidak, jalankan tiga langkah berikut untuk mencapai hal ini.

1. Klik kanan pada bagian putih dari Project Explorer.

2. Periksa Dockable (jika belum melakukannya).

3. Klik pada Proyek – VBAProject dan tarik ke kiri sampai kursor (tanda panah putih) menyentuh tengah sisi kiri layar.

Untuk menambahkan jendela Kode, cukup klik pada salah satu sheet. Maksimalkan jendela Kode sehingga akan menutupi seluruh layar. Setelah ini telah selesai, konfigurasi harus sesuai dengan gambar di atas.

Sumber: http://msdn.microsoft.com/en-us/library/ee814735.aspx


 

Looping Dengan For

Looping Dengan For

 

Contoh berikutnya akan memperkenalkan Anda dengan mengulang langkah dengan “for”. Sebuah untuk perulangan (loop) memungkinkan Anda untuk mengulangi tindakan yang sama sejumlah tertentu (beberapa kali). Ketik atau copy / paste baris berikut ke Editor VBA Anda, dalam Module1 Anda:

Kalau Module1 belum ada maka Anda harus menambah dengan klik pada sehingga anda memperoleh tampilan sebagai berikut:


 

Copy kan kode di bawah ini ke module1

 

Sub ContohUlang()

For x = 1 To 5

Cells(x, 3).Select

Selection.Value = x + 1

Next x

End Sub

 

 

<

p style=”text-align: center”>Gambar 1 Sub Procedure contohulang

Berikutnya menjalankan makro langsung dari Editor VB dengan meletakkan kursor Anda di . (Atau mendorong F5 pada keyboard Anda). Atau dengan cara kembali ke Excel dengan Alt + F11. (atau Klik pada dipojok kiri atas). Dan Coba jalankan pada dengan klik pada Tab Developer sehingga muncul:

Gambar 2 Kotak Dialog Makro

Pilih Contoh Ulang dan Klik

Jika kursor ada di sel A1, maka hasil yang diperoleh adalah sebagai berikut:

Gambar 3 Hasil Sub Procedur ContohUlang

Anda akan melihat nomor 2 sampai 6 di kolom C. Dalam sub procedure di atas variabel x mewakili jumlah baris dari range sel dan menggunakan “For… Next” pernyataan untuk pengulangan lima baris pertama.

 

 

 

 

 


 

BAB 5 KONSEP PEMROGRAMAN VBA

by: Aurino Djamaris & Sridhani Pamungkas

Deskripsi     :     Konsep – konsep pemrograman menggunakan elemen – elemen VBA

Tujuan Pembelajaran :    siswa mampu memahami bahasa pemrograman VBA dan mengaplikasikannya dalam proses pengambilan keputusan. Mampu membuat sebuah fungsi dan prosedur yang mampu membantu penyelesaian masalah manajerial. Mampu memahami kesalahan yang terjadi ( error ) dan memperbaikinya.

Pendahuluan Teori

 

Seperti yang telah dijelaskan di BAB 4, dalam membuat sebuah program yang dapat membantu pekerjaan seorang manajer dalam mengolah data dapat dilakukan dengan dua cara, Record macro dan VBA.

VBA merupakan salah satu bahasa pemrograman yang dapat digunakan sebagai media pembuatan program di Ms. Excel. Secara garis besar kode pemrograman dalam VBA dikelompokkan menjadi 2 macam, yakni prosedur sub dan fungsi. Prosedur sub umumnya hanya digunakan untuk mengeksekusi suatu perintah, sedangkan fungsi umumnya digunakan untuk proses perhitungan yang akan selalu memberikan nilai balik. Beberapa contoh fungsi yang terdapat pada Excel adalah SUM, AVG, MIN, MAX dan lain lain.

Prosedur Sub

Setiap prosedur sub dalam pengkodeannya selalu diawali dengan kata Sub dan diakhiri dengan kata End Sub. Dalam pembuatan suatu prosedur sub, ada beberapa aturan untuk penamaannya yang perlu diketahui sebagai berikut:

 

  1. Karakter awal harus selalu menggunakan huruf, karakter berikutnya dapat menggunakan huruf atau angka.
  2. Tidak boleh menggunakan spasi.
  3. VBA tidak membedakan penamaan menggunakan huruf besar ataupun huruf kecil.
  4. Tidak boleh menggunakan simbol-simbol sebagai berikut: #, $, %, &, @, ^, * dan !
  5. Penamaan tidak boleh lebih dari 255 karakter.

 

Selain itu, idealnya penamaan suatu prosedur harus disesuaikan dengan tugas yang akan dijalankannya. Dengan demikian, akan mempermudah pemrogram untuk mengingat prosedur yang telah dibuatnya, yang secara umum juga akan membantunya dalam pembuatan program. Untuk menjalankan suatu prosedur, ada beberapa metode yang dapat digunakan, yaitu:

  1. Dengan mengaktifkan perintah Run

Bab 4 Ms. EXCEL VISUAL BASIC OF APPLICATON

By: Aurino Djamaris & Sridhani Pamungkas

Deskripsi         : Dasar – dasar bahasa VBA, macro dalam Ms. Excel 2007 ( 2 )

Tujuan Pembelajaran : Siswa menggunakan bahasa pemrograman ( VBA ) dalam menjalankan macro pada worksheet Ms. Excel.

Pendahuluan Teori

Macro dan VBA

Macro adalah sebuah media yang dapat membantu pekerjaan manusia, mampu merekam semua perintah yang diinput dan menjalankan perintah tersebut secara otomatis . Macro merekam kejadian (perintah) secara berurutan, sehingga serangkaian perintah tersebut dapat dijalankan dengan satu langkah. Dalam pembuatan sebuah macro, kita harus menginput perintah – perintah yang dapat dipahami komputer. Sebuah bahasa pemrograman yang dapat dipahami oleh computer dalam proses penginputan makro disebut Visual basic of Application language ( Bahasa Pemrograman ).

Menu Developer Ms.Excel

Macro dalam Ms. Excel merupakan bagian dari menu developer Ms. Excel. Untuk menampilkan menu developer dalam ribbon excel ( Menu bar ), kita harus melakukan langkah – langkah sebagai berikut :

Klik Microsoft Office Button lalu pilih Excel Option yang berada pada bagian kan bawah jendela Office botton


Pilihlah menu popular, dalam menu ” Top option for working with excel”, aktifkan menu ” Developer tab in ribbon” dengan cara klik pada check box menu tersebut. Tekan ok.

Pada ribbon Ms. Excel anda sekarang telah aktif menu developer.


Dalam menu developer terdapat empat buah kategori menu, yaitu code, control, XML dan modify. Keempat menu tersebut merupakan atribut dalam pembuatan macro ms. Excel. Pembuatan macro dapat dilakukan dengan dua cara, pertama dengan merecord macro dan kedua dengan memasukan bahasa VBA ke dalam modul – modul VBA ( akan dijelaskan lebih lanjut ).

Record Macro Vs. VBA Macro

Seperti yang sudah dijelaskan sebelumnya bahwa terdapat dua cara dalam proses pembuatan macro, yaitu dengan cara record macro dan menginput secara manual VBA macro. Untuk cara pembuatan macro dengan metode recording macro dapat dilakukan dengan memilih menu “record macro” yang ada pada kategori code menu bar developer.sedangkan proses pembuatan macro dengan menginput bahasa VBA dapat dilakukan dengan cara memilih menu VBA yang juga ada pada kategori code menu bar developer.

Dalam proses record macro kita dapat merekam setiap peristiwa secara langsung ( dijelaskan selanjutnya ). Seluruh aktivitas yang kita lakukan setelah tombol ecord macro ditekan akan terekam dan proses perekaman aktivitas tersebut akan berakhir setelah kita menekan tombol “Stop record”. Sedangkan dalam proses pembuatan macro dengan Visual Basic, kita harus menginput bahasa – bahasa pemrograman dalam modul – modul dan Sheet – sheet yang ada pada jendela Visual Basic.


Kedua proses tersebut juga dapat dijalankan dengan cara pembuatan Command Button. Command Button adalah sebuah tombol yang dapat menjadi media menjalankan macro yang sudah dibuat/ diinput. Proses pembuatan Command button adalah sebagai berikut :

Pada menu developer kategori control, klik Insertà pilih Button pada form control.


Setelah memilih Button, sorot worksheet yang masih aktif untuk membentuk button pada worksheet. Setelah Button terbentuk, maka jendela ” Assign Macro ” akan muncul. Assign Macro adalah jendela yang berisi informasi mengenai pilihan macro yang akan dijalankan oleh button yang kita buat. Secara otomatis VBA yang berada pada macro yang terpilih akan masuk kedalam VBA button tersebut. Maka apabila button tersebut ditekan, segala aktivitas yang direkam oleh macro terpilih akan jalan.


Setelah memilih macro yang akan dijalankan oleh button, klik OK. Apabila kita menekan button maka aktivitas pada macro yang terpilih akan jalan.

Aplikasi Teori

Membuat Macro dengan cara record macro yang berisi perintah pembuatan chart dari data tabel.

Langkah – langkah pembuatan macro :

Input data tabel yang akan dibuat chart dalam worksheet yang aktif.


Pilih menu developer à record Macro. Jendela Record macro akan muncul ( Masukan Macro name sesuai dengan keinginan anda ) à OK


Lakukan langkah – langkah pembuatan chart ( Sudah dijelaskan sebelumnya )sampai selesai. Klik Stop record.

Pilihlah menu developer à Insert à Button. Assign macro “chart” untuk button tersebut.Ketika Button ditekan maka proses pembuatan chart akan berjalan secara otomatis.


Pemantapan Teori

Soal – soal latihan :

Soal 1.

Buatlah sebuah macro yang berisi perintah pembuatan pivot table menggunakan data Sales : Sales Analysis – TDI – Batam.xls ( metode record macro )

Soal 2.

Ringkas data pivot diatas berdasarkan Customer lalu buatlah sebuah macro yang berisi perintah pembuatan bar chart dari data tersebut ( metode record macro )

Soal3.

Split number dan string dalam data Rumus untuk menghitung HOK.xls ( dalam metode record macro )

Soal4.

Buatlah sebuah macro yang dapat menghasilkan spreadsheet Nilai Ketuntasan.xls ( dalam metode record macro ) – mintalah spreadsheet dari asisten dosen.

VBA – Visual Basic for Application Part 1

by Aurino Djamaris

Contents

VBA – Visual Basic for Application

Dasar-dasar pemrograman VBA 

Alasan Memakai VBA 

Untuk menulis/edit program VBA digunakan IDE 

Prinsip pemrograman berbasis object dalam VBA 

Program dalam VBA disebut prosedur (dan function)

Cara membuat program VBA 

Membuat dan menjalankan macro 

Menulis Program Dalam IDE/VBA Editor 

Fungsi Dalam Excel (User Function)

Contoh1 : menghitung sisi miring segitiga 

Contoh 2 : Membuat fungsi Akar persamaan

Prosedur Dalam Excel VBA (Sub Procedure)

Contoh 1: Procedure Perhitungan Bunga 

Memanfaatkan intellisense 

Informasi parameter

Menyimpan/export modul

Mengimpor/ambil modul

Mengatur editor

Melindungi program 

Dasar-dasar pemrograman VBA

Apa yang dibicarakan?

  • Mengenal VBA
  • IDE
  • Pemrograman berbasis object
  • Cara membuat program VBA
  • Makro
  • Editor program
  • Menjalankan program
  • Membuat fungsi sendiri
  • Membuat prosedur
  • Mengatur editor
  • Melindungi program

Go Top-TOC

Alasan Memakai VBA

  • Merupakan bahasa pemrograman bagi semua aplikasi Microsoft Office (Exel, Word, Access, Powerpoint) dan beberapa yang lain (Outlook, Visio, AutoCAD, MapInfo, dsb.)
  • Dapat berfungsi sebagai macro atau bahasa pemrograman
  • Merupakan bahasa program beorientasi object, semua object office dapat dengan mudah dimanipulasi dengan VBA
  • Belajar satu bahasa dapat diaplikasikan dalam banyak aplikasi Microsoft
  • Mendukung aplikasi internet dan intranet Mendukung ActiveX controls
  • Code editor dengan bantuan yang lengkap dan debugger uForm building tools
  • Object browser
  • dan lain sebagainya yang memudahkan pembuatan program

Go Top-TOC

Untuk menulis/edit program VBA digunakan IDE

Go Top-TOC

Prinsip pemrograman berbasis object dalam VBA

  • Object : Workbook, worksheet, chart, cell, dsb.
  • Properties: Setiap object memiliki properties: color, font, italic, dsb.
  • Method & procedure: Cara/perintah untuk melakukan sesuatu: pindah worksheet, pindah baris, dsb.

Go Top-TOC

Program dalam VBA disebut prosedur (dan function)

Tiga jenis prosedur

  • Command macros à mengotomasi prosedur-prosedur, fungsi-fungsi yang ada (built-in) dalam aplikasi, memformat, menyimpan, dsb.
  • User-defined function (function procedure) à program yang berisi rumus dan perintah yang kita susun sendiri
  • Property procedure menunjukkan atau mengubah properti dari suau object (class module)

Go Top-TOC

Cara membuat program VBA

  • Dengan merekam macro (macro recording)
  • Dengan menulis program dalam IDE/VBA editor

Go Top-TOC

Membuat dan menjalankan macro

  • Tools | macro | record macro
  • Lakukan prosedur-prosedur dan perubahan properties pada worksheet
  • Stop macro recording
  • Edit macro untuk memberbaiki dan mengubah hasil rekaman
  • Menjalankan:
    • Dengan shortcut, atau
    • TOOLS| MACRO| RUN| pilih NAMA MACRO

Go Top-TOC

Menulis Program Dalam IDE/VBA Editor

  • Tools|macro|visual basic editor atau
  • Click tombol VBE
  • Pindah dari VBE ke aplikasi | alt+F11
  • Tuliskan program (function atau procedure)

    Sub

    {Baris program …………… }

    End sub

Go Top-TOC

Fungsi Dalam Excel (User Function)

  • Fungsi adalah rumus yang mengolah argumen dan mengembalikan hasil
  • Struktur fungsi

    Function NamaFungsi(argumen1, argumen2, …)

    [Pernyataan/statement VBA]

    NamaFungsi  = hasil yang dikembalikan

    End Function

  • Bagian-bagian:
    • Statement Function
    • Nama fungsi
    • Argumen fungsi (parameter)
    • Statement VBA yang melakukan hitungan
    • Hasil yang dikembalikan à nama fungsi = Statement
    • End Function

Go Top-TOC

Contoh1 : menghitung sisi miring segitiga

  • Sisimiring = sqr(x2 + y2)

    Function sisimiring(x, y)  ‘ nama fungi

    sisimiring = sqr(x ^ 2 + y ^ 2)  ‘ nilai hasil

    End Function

  • Pemakaian: isikan pada sel dengan nama formula, misal =sisimiring(3, 4) akan menghasilkan 5

Go Top-TOC

Contoh 2 : Membuat fungsi Akar persamaan

Function akar(A, B, C)

    If A <> 0 Then

            diskrim = B ^ 2 – 4 * A * C

            If diskrim > 0 Then

                    akar = “dua akar riel”

            ElseIf diskrim = 0 Then

                    akar = -B / (2 * A)

            Else

                    akar = “akar imaginer”

            End If

    Else

            akar = “bukan persamaan kuadrat”

    End If

End Function

Go Top-TOC

Prosedur Dalam Excel VBA (Sub Procedure)

  • Prosedur adalah unit program dalam VBA yang merupakan blok kode dalam satu modul
  • Struktur sebuah prosedur

    Sub NamaProsedur (argumen1, argumen2,…)

    [pernyataan/statement VBA]

    End Sub

Go Top-TOC

Contoh 1: Procedure Perhitungan Bunga

Sub InputDataPinjaman()

    Range(“bunga”).Value = 0.08

    Range(“lama”).Value = 10

    Range(“pinjaman”).Value = 100000000

    Range(“bayar”).Value =”=PMT(bunga/12,lama*12,pinjaman)”

End Sub

  • Penggunaan:

TOOLS|MACRO| pilih nama sub
InputDataPinjaman | RUN
Go Top-TOC

Memanfaatkan intellisense

  • Setiap object dalam excel memiliki properties dan methods,
  • Untuk memanipulasi obyek dalam program VBA, kita bisa memanfaatkan intellisense
  • Caranya:

    Tuliskan nama obyek dilanjutkan dengan titik (.) | akan keluar properties dari obyek tersebut

  • Contoh: application.

    Kalau kita tekan <ESC> intellisense tak akan muncul lagi untuk obyek yang sama, untuk memunculkan lagi| tekan CTRL+J

     

Go Top-TOC

Informasi parameter

  • Setiap fungsi memiliki satu/beberapa parameter, parameter terebut dapat dimunculkan dengan menuliskan nama fungsi dan tanda kurung buka

activecell.Formula=pmt( akan muncul argumen untuk fungsi pmt)
Go Top-TOC

Menyimpan/export modul

  • Dari project explorer, pilih modul yang akan disimpan
  • Pilih File|Export File
  • Pilih lokasi tempat menyimpan file
  • Beri nama file.BAS
  • Tekan Save

Go Top-TOC

Mengimpor/ambil modul

  • Dari project explorer
  • Pilih File|Import File
  • Pilih file dari lokasi tempat menyimpan file.BAS
  • Tekan Open

Go Top-TOC

Mengatur editor

Cara kerja dan tampilan editor dapat diatur dengan menu Tools|Options

Go Top-TOC

Melindungi program

Program dapat dilindungi dengan password Tools|ProjectName Properties dialog box, pilih Protection TuIiskan password untuk melindungi program OK

Go Top-TOC