PENGANTAR APLIKASI KOMPUTER Macro VBA Macro Visual Basic
PENGANTAR APLIKASI KOMPUTER Macro VBA
Macro Visual Basic Aplication • Macro adalah baris-baris perintah atau kode yang akan dijalankan MS Excel secara otomatis. • Visual Basic for Applications adalah bahasa pemrograman yang Anda gunakan untuk membuat macro.
Menampilkan Developer Tab
MEMULAI MACRO • TAB DEVELOPER , CLICK INSERT • Pilih button, gambarkan pada lembar sheet 1, assign macro: click_saya macros in: this workbook, click new • Ubah tulisan menjadi Click saya • Assign Macro : Ketik Msgbox (“Hallo UPJ Saya Chan”) Msgbox perintah untuk menampilkan dialog
Hasil Macro • Jalankan tombol Click Saya • Save : Latihan Macro 1, • Type: Excel Macro – Enabled Workbook
Membuka file Macro • Pastikan ms excel tidak memblok macro • Lihat pada menu : File -> Option -> Trust Center • Click Trust Center Settings
worksheets • • Worksheets sebagai object dim ws 1 as worksheet Set ws 1=worksheets(“sheet 1”) ws 1. cells(2, 2)=“hallo saya Chan dari UPJ” Cells(2, 2) , baris ke dua, kolom ke dua Penulisan/pengaksesan worksheet • Sheet -> worksheets(1) • Sheet -> worksheets(“sheet 1”)
Latihan • Tambah kan button pada Worksheet 1 Assign macro : nama_saya, macros in : this workbook, ubah tulisan pada button menjadi click dan lihat di sheet 2 ! • Tampilkan di sheet 2, jika tombol di click maka akan menampilkan tulisan : Universitas Pembangunan Jaya, pada cell A 5 atau baris 5, kolom 1
Menambahkan sheet • Untuk menambahkan sheet, gunakan perintah add • Sheets. add. Name=“nama sheet baru” • Assign macro : tambah_sheet, macros in : this workbook, ubah tulisan pada button menjadi Tambah sheet Tambah Sheet • Tuliskan code : On error resume next Sheets. add. Name=“Database”
Berpindah Sheet • Untuk berpindah sheet, gunakan perintah select ▫ Ada dua cara mengacu pada �nama sheet : Sheets(“Sheet 1”). Select �Urutan nomor : Sheets(1). Select Latihan • Tambah button pada sheet 1 : Assign macro : Pindah. Sheet 1, macros in : this workbook, ubah tulisan pada button menjadi sheet Database • Tuliskan code : Sheet Database On error resume next Sheets(“Database”). Select
loop • For kondisi awal to kondisi akhir –> next For - next digunakan untuk membuat loop For kondisi awal to akhir Perintah Next Loop 10 x Default loop step 1 Step bisa ditambahkan untuk menambah increement angka Contoh : dim ws 2 as worksheet Set ws 2=worksheets(“sheet 2”) For i=1 to 10 Ws 2. cells(i, 4)= “hallo Universitas Pembangunan Jaya , saya Chan” Next
Latihan Loop 1 • Masukan button ke sheet 2 Assign macro : loop. Integer, ubah tulisan menjadi : angka 1 sd 10 • Jika di click , maka akan menampilkan angka dari 1 s/d 10 pada cells C 1 s/d C 10
Latihan Loop 2 • Masukan button ke sheet 3 Assign macro : dollar. Rupiah • Jika di click : ▫ Muncul tulisan Dollar pada A 1, dan Rupiah B 1 ▫ maka akan menampilkan angka dari 1 s/d 10 pada cells A 2 s/d A 11 ▫ Menampilkan kelipatan 15000 pada B 2 s/d B 11, karena 1 dollar = Rp 15. 000 Rupiah
Mengakses rumus excel Application. Worksheet. Function • Untuk mengakses function pada worksheet seperti count, sum dan lain sebagainya , gunakan : Application. Worksheet. Function. namafunction( Range("Awal: Akhir")) Contoh : Untuk count : Application. Worksheet. Function. Count(Range(“ A 1: A 5"))
Latihan Loop 3 • Pada sheet 4 , buat lah button : Assignmacro: deret 5, Macro in : this workbook Deret 5 Loop 10 x pada A 1 -A 10, kemudian hitung total angka pada C 1 dan tulisan Total: pada B 1, Hitung rata-rata pada C 2 dan tulisan rata-rata pada B 2 Gunakan rumus untuk menghitung total dan menampilkan pada C 1 : Ws 1. Cells(1, 3)=Application. Worksheet. Function. Sum(Range(“A 1: A 10")) Jika beda sheet misalkan list ada di sheet 2 maka: Ws 1. Cells(1, 3)=Application. Worksheet. Function. Sum(Range(“Sheet 2!A 1 : Sheet 2!A 10"))
Mengakses Value cell a=ws 1. cells(1, 2). value For i=1 to 10 Ws 2. cells(i, 4)= a Next
Latihan Loop 4 • Pada sheet 5 , buat lah button : Assignmacro: loop_Nama, Macro in : this workbook Loop Nama! Loop 15 x dari input Dari B 1 , tampilkan pada B 2 -B 17, dan tampilkan No 1 sampai 15 pada A 2 sampai A 17 a=ws 5. cells(1, 2). value For i=1 to 15 Ws 5. cells(i+1, 1)= i Ws 5. cells(i+1, 2)= a Next
Kondisi • If kondisi then Jika kondisi benar Else Jika kondisi salah Endif Contoh : Dim ws 3 as worksheet Set Ws 3 = worksheets(3) a=ws 3. cells(1, 2). value If a=2 then B = “akuntansi” C=“upj” Else B = “Teknik Informatika” C=“Univ Pemb Jaya” Endif ws 3. cells(10, 1)=B ws 3. cells(10, 2)=C
TERIMA KASIH
- Slides: 19