Menghitung Analisis Jalur (Path Analysis) Di Microsoft Excel Secara Otomatis

Sobat ESI setelah sebulan lebih tidak up date, saya kembali lagi ingin berbagi aplikasi excel atau Add in...masih untuk teknik analisis statistik. Kali ini fungsinya untuk menyajikan hasil perhitungan analisis jalur (Path analysis) di Excel secara otomatis. Jadi tinggal kopas ke Bab Pembahasan 

Sebelumnya kita bahas dulu mengenai analisis jalur, menurut Nirwana K. Sitepu, (1994) teknik analisis jalur digunakan untuk menerangkan pengaruh langsung dan pengaruh tidak langsung seperangkat variabel sebagai penyebab terhadap seperangkat variabel lainnya yang merupakan variabel akibat. Beberapa asumsi yang mendasari penggunaan analisis jalur tersebut sebagai berikut (Sugiyono, 2008 :208) :

• Hubungan antara variabel yang akan dianalisis berbentuk linier, aditif dan kausal.
• Semua variabel residu tidak mempunyai korelasi dengan variabel yang mendahuluinya atau dengan variabel lain.
• Dalam model hubungan variabel hanya terdapat jalur sebab akibat searah, tidak timbal balik.
• Data setiap variabel yang dianalisis adalah data interval.

Ok langsung saja Silahkan download di sini. Add in anak ini harus di install bersama Add In induk, silahkan baca dan download di post ini. Berikut contoh penggunaannya:

1. Siapkan data total skor dari masing-masing variabel/sub variabel dengan kolom saling bersebelahan yang telah melalui proses MSI sebagai contoh pada Sheet1 seperti gambar sebagai berikut
   
2. Aktifkan userform dari Tab My ESI => Grup Analisis Statistik=> Path Analysis.
3. Pada menu Data X1,... to Y silahkan masukan data variabel/subvariabel (X1,X2,X3 dan Y) melalui pilih range di userform ataupun ketik langsung: Sheet1!$B$2:$E$21
4. Pada menu Output Cells silahkan pilih satu sel saja (pastikan kosong di bawah dan sebelah kanan nya) untuk menampilkan hasil perhitungan melalui pilih range di userform ataupun ketik langsung: Sheet1!$G$2. Jika sudah maka tampilan userform seperti gambar berikut:
   
5. Klik OK dan hasilnya akan tampak seperti berikut:

Sekian pembahasan kali ini, nantikan pembahasan lainnya, semoga bermanfaat. 

Read More

[Fun With Excel] Memunculkan Game Tersembunyi Dalam Excel

Halo agan sis, seperti diketahui excel merupakan powerfull software yang banyak digunakan oleh orang-orang di dunia untuk melakukan perhitungan-perhitungan, pengolahan dan analisis data, membuat laporan dan presentasi thanks to Bill Gate. Nah selain di hal di atas ternyata excel juga bisa digunakan untuk bermain game agan sis, gak percaya? Lihat aja gan sis

Penasaran gimana caranya? Ini yang agan sis harus lakukan:

1.      Buka file baru di Excel 2010 atau Excel 2013 (bisa juga buat Excel 2007)

2.      NOTE: Agan sis harus menutup semua jendela file lain yang aktif, jadi hanya ada file yang akan agan sis buat.

3.      Save file dengan nama: “BajeknemBETA.xlsx” (rupanya nama kode yang digunakan ketika game ini di develop agan sis!)

4.      Aktifkan Cell B20.

5.      Atur Column Widht sebesar 35

6.      Rubah ukuran font menjadi 20 pts

7.      Ketik formula berikut (copy paste biar ga salah ketik)

=SUBSTITUTE(ADDRESS(1;53*5;4)&CHAR(66)&MID("VAKANX";2;4)&" "&CHAR(66)&ADDRESS(1;23*2;4)&CHAR(77)&MID("VAN";2;2);1;"")

8.      Tekan Enter.

9.      Selamat bermain Angry Formulas!

NOTE: Kalau agan sis kalah pada level tertentu, agan sis harus mengulangi langkah 1 sampai 8 di atas. Jadi mainnya harus serius Agan sis.

Skor ane paling tinggi 3732. Udah nyampe level 4-3 sebelum gagal. Yang udah nyoba comment dan share skornya dimari

Read More

Menjalankan Makro dari Dropdownlist pada Cell Worksheet + File Contoh

Pembaca ESI, kali ini saya akan membahas mengenai cara menampilkan daftar makro dan menjalankannya dari dropdown list pada sell Worksheet di Excel. Berikut langkah-langkahnya:

1.      Aktifkan MS Excel Anda

2.      Pada Sheet1 Buat daftar nama makro pada sell manapun misalnya:

3.      Blok Daftar tersebut kemudianTekan CTRL+F3

4.      Setelah jendela Name Manager muncul, pada menu Name isikan dengan “perintah” (tanpa tanda petik”)

5.      Aktifkan Tab developer pada menu Excel, Jika belum ada maka klik menu File => Option => Costumize Ribbon => ceklis menu Developer di Kolom kanan

6.      Setelah Tab developer aktif, pilih menu insert =>Active X Controls => Combobox

7.      Tempatkan di sel A1 dan atur ukurannya sesuai kebutuhan

8.      Klik kanan pada combobox kemudian pilih Properties

9.      Pada menu Misc cari => ListfillRange => pada kolom sebelahnya ketik “perintah” (tanpa tanda petik) kemudian Tutup jendela Properties

10.  Klik kanan pada combobox kemudian pilih View Code, Copy paste berikut ini

Private Sub ComboBox1_Change()

Dim RgStart As Range

Set RgStart = ActiveCell

Select Case Me.ComboBox1

Case "Warnai D(Merah)": warnad

Case "Reset D": reset_d

Case "Warnai E(Kuning)": warnae

Case "Reset E": reset_E

End Select

Me.ComboBox1 = ""

RgStart.Activate

End Sub

11.  Jangan di tutup dulu, pada jendela yang sama pilih menu insert => module

12.  Pada module copy paste kode berikut

'mewarnai Kolom D

Sub warnad()

 Range("D:D").Interior.ColorIndex = 3

End Sub

'Mereset format pada Kolom D

Sub reset_d()

 Range("D:D").ClearFormats

    End Sub

'mewarnai Kolom E

Sub warnae()

 Range("E:E").Interior.ColorIndex = 6

 End Sub

'Mereset format pada Kolom E

Sub reset_E()

    Range("E:E").ClearFormats

    End Sub

13.  Tutup jendela VBA, kemudian pada matikan Design Mode dengan klik Design Mode pada menu Tab Developer

14.  Sekarang kita bisa menjalankan 4 makro yang terdapat pada daftar combobox

 Nah file contohnya download di sini , sekian pembahasan kali ini semoga bermanfaat.

Read More

Dua Menu Tersembunyi dalam Microsoft Excel

Sobat ESI, tahukah anda bahwa terdapat dua menu tersembunyi dalam Microsoft Excel yang mungkin tidak pernah kita lihat. Ok bagi yang belum mengetahui inilah kedua menu tersembunyi tersebut:

Untuk memunculkan menu di atas, pilih salah satu sel atau range yang anda inginkan kemudian dekatkan pointer mouse anda pada salah satu Grid Border (boleh kanan/kiri/atas/bawah) sampai muncul tanda panah 4 arah kemudian klik kanan dan drag (tarik) ketempat yang anda inginkan.

Untuk menu tersembunyi kedua akan tampak seperti gambar berikut:

Untuk memunculkan menu di atas, pilih salah satu sel kemudian isi dengan data tanggal. Shortkey untuk tanggal hari ini adalah CTRL+semicolon (;). Setelah ada data tanggal arahkan pointer mouse anda pada sudut kanan bawah sel sampai muncul tanda + kemudian klik kanan dan drag ke kanan atau ke bawah. Nah untuk yang ini bisa kita gunakan misalnya ulang tahun kita jatuh pada hari apa saja pada tahun-tahun berikutnya ini yang anda harus lakukan:

Buat data seperti gambar di bawah ini

Masukan tanggal ulang tahun anda pada sel A3 kemudian pada sel A4 ketik =TEXT(A3;"ddddd") tekan ENTER dan copy paste ke kanan sampai pada tahun 2020. Kemudian pilih sel A3 dan lakukan langkah memunculkan menu tersembunyi yang kedua kemudian drag (tarik) sampai tahun 2020 dan pilih Fill Years maka hasilnya akan seperti gambar berikut:

Nah sobat ESI selamat mencoba dan nantikan pembahasan saya yang lain, semoga membantu.

Read More

3 Kegunaan CTRL+D Pada Microsoft Excel

Halo Pembaca ESI, seperti diketahui excel merupakan powerfull software yang banyak digunakan oleh orang-orang di dunia untuk melakukan perhitungan-perhitungan, pengolahan dan analisis data, membuat laporan dan presentasi. Oleh karena itu bagi para pengguna excel perlu mengetahui tip dan trik yang akan banyak saya sampaikan pada blog ini agar bisa menghemat waktu anda untuk melaksanakan pekerjaan pada excel yang perlu dilakukan berulang-ulang. kali ini saya akan membahas 3 manfaat dari shortkey CTRL+D ketik bekerja di excel langsung saja check it out guys.

1. Membuat Duplikat sel 1 baris di atasnya, ketika kita ingin mengisi salah satu sel dengan nilai yang sama dengan 1 sel di atasnya kita tak perlu melakukan copy (CTRL+C) paste (CTRL+V) akan tetapi hanya perlu tekan CTRL+D. Ok untuk poin ini saya kira tidak perlu dijelaskan dengan gambar, contohnya bila anda memiliki nilai 350 di sel A1 maka tinggal pindahkan ke sel A2 dan klik CTRL+D maka sel A2 akan bernilai 350 juga. Bukan hanya nilai sel, akan tetapi formatnya juga termasuk jenis dan ukuran font, Border, dan warna (fill). Pokoknya kayak bikin kembaran.
2. Membuat Duplikat baris paling atas, sama seperti pada poin 1 tapi bedanya kita harus memblok range yang kita inginkan. Lakukan seperti gambar di bawah dan tekan CTRL+D
   
3. Membuat nomor urut dengan cepat, nah yang ini memanfaatkan fungsi pada 2 poin di atas untuk membuat nomor urut dengan cepat biasanya kita mengetik angka 1 kemudian 2 pada sel A1 dan A2 kemudian drag ke bawah (autofill) sampai dengan nomer yang kita inginkan, akan tetapi jika kita ingin membuat nomor urut 1 sampai 700 misalnya cara ini kurang efisien. Cukup ketik angka 1 pada sel A1 kemudian klik sel A1 dan scroll mouse anda sampai sel A700 kemudian tekan SHIFT+klik sel A700 dan tekan CTRL+D maka A1:A700 akan terisi dengan nilai 1. Ganti sel A2 dengan angka 2 kemudian arahkan pointer mouse ke sudut kanan bawah sampai keluar tanda + dan klik 2 kali voila..anda punya angka 1 sampai 700 sekarang.

Ok sekian pembahasan kali ini, selamat bertemu pada tip dan trik excel yang lain. Semoga membantu.

Read More

Cara Ini Bisa Memudahkan Pekerjaan Excel Anda

Pembaca ESI, bertemu lagi dalam pembahasan tip dan trik Microsoft excel kali ini. Ikuti terus blog ini karena banyak tip dan trik yang akan saya bagikan yang tidak mungkin dapat dibahas semua dalam satu pos. Ok langsung saja check it out:

Bekerja dengan 2 Sheet Secara bersamaan

Adakalanya ketika kita bekerja pada sheet tertentu kemudian perlu melihat nilai-nilai entri pada sheet yang lain sehingga kita bolak-balik melihat kedua sheet tersebut. Nah agar lebih nyaman bekerja anda dapat melihat dua sheet pada saat yang sama cukup dengan klik menu View => New Window => Arrange All. Nah kita punya dua jendela untuk file yang sama sekarang tinggal atur jendela sesuai kebutuhan anda

Find dan Replace pada Banyak Sheet Secara Bersamaan

Jika anda ingin mengganti suatu nilai sel dengan nilai yang lain pada semua Sheet, maka tidak perlu melakukannya berulang-ulang di tiap Sheet. Klik kanan pada salah satu sheet kemudian pilih Select All Sheet dan tekan CTRL+H. Sedangkan untuk sheet tertentu saja Cukup klik sheet pertama kemudian tekan CTRL untuk menambahkan sheet yang lainnya kemudian tekan CTRL+H. Nah mudah kan, sedangkan untuk mengembalikan grup sheet yang terpilih cukup klik Sheet yang tidak terpilih atau klik kanan pada salah satu klik terpilih kemudian pilih Ungroup Sheets.

Ok sekian pembahasan kali ini , selamat bertemu pada Tip dan Trik excel yang lain. Semoga membantu.

Membuat Duplikat Sheet dan Range

Jika anda ingin membuat sheet lain yang sama persis seperti sheet tertentu maka tinggal pilih sheet yang akan diduplikat (Sheet1 misalkan) kemudian tekan CTRL dan drag ke arah kanan atau kiri sesuai kebutuhan anda maka anda akan mendapatkan Sheet1 (2)  yang sama persis dengan Sheet1 . Berlaku juga untuk menduplikat range, misalkan anda ingin menduplikat range A2:A12 maka tinggal pilih range-nya kemudian tekan CTRL dan drag ke tempat yang anda inginkan.

Freeze Baris dan Kolom Agar Tetap Terlihat

Biasanya untuk header tabel, apabila anda men-Scroll mouse ke bawah maka header tabel akan ikut tergulung dan tidak terlihat. Kadang kita bingung apakah sudah mengentri pada kolom yang tepat? Untuk data text mungkin bisa melihat nilai sel di sekitarnya, sedangkan untuk data numerik kadang membuat kita bingung karena header tabel tidak terlihat. Untuk itu gunakan freeze pane. Untuk freeze satu atau lebih baris agar tetap terlihat, pilih satu baris di bawahnya (di bawah header). Kemudian, dari menu Excel anda :

·  Pada Excel 2003: Pilih Window => Freeze Panes

·  Pada Excel 2007 atau 2010: Pilih View => Freeze Panes =>Freeze Panes

·  Untuk freeze Kolom di sebelah kiri workbook anda, Pilih  sebelah kanan dari kolom yang ingin anda freeze dan kemudian pilih Freeze Panes. Misalkan anda ingin kolom A di freeze maka pilih B1 dan klik Freeze Panes. Contoh lainnya jika anda ingin freeze kolom A dan B maka pilih C1 dan klik Freeze Panes.

·  Untuk freeze Baris dan kolom, Pilih  sell di bawah dan di kanan dari baris dan kolom yang ingin anda freeze kemudian klik Freeze Panes. Misalkan anda punya header tabel di baris pertama dan nomor responden di sel A2 ke bawah, maka pilih B2 dan klik Freeze Panes maka nomor responden anda akan tetap terlihat meskipun anda menggulung ke bawah maupun ke kanan.

·  Untuk mengembalikan seperti semula, Pilih  Window => Unfreeze Panes (Pada Excel 2003) atauView => Freeze Panes => Unfreeze Panes (Pada Excel 2007 dan 2010)

Gunakan F4 Untuk Membuat Relatif dan Absolut References

Relatif references akan berubah menyesuaikan baris dan kolom, misalkan anda mempunyai data di A, B dan C kemudian pada D3 anda memasukan formula =A3*B3

Abs&rel Ref1.png

Maka jika anda mengcopy dan paste pada sel lain akan menyesuaikan baris kolom:

Pada D4  akan menghasilkan =A4*B4 pada D5 =A5*B5 dst. Sedangkan paste pada sel E3 akan memberikan hasil =B3*C3 , E4=B4*C4 dst.

Relatif references kolom tidak akan berubah barisnya saja, pada contoh di atas pada D3 anda double klik kemudian blok / Highlight nilai A3 kemudian tekan F4 dua kali dan tekan ENTER maka akan menghasilkan =A$3*B3. Jika D3 anda copy dan paste pada sel lain akan tetap barisnya (baris 3), pada D4 =A$3*B4 pada D5=A$3*B5. Kemudian paste pada sel E3=B$3*C3, E4=B$4*C4 dst.

Relatif references baris tidak akan berubah kolomnya saja, pada contoh di atas pada D3 anda double klik kemudian blok / Highlight nilai A3 kemudian tekan F4 tiga kali dan tekan ENTER maka akan menghasilkan =$A3*B3. Jika D3 anda copy dan paste pada sel lain akan tetap kolomnya (kolom A), pada D4 =$A3*B4 pada D5=$A3*B5. Kemudian paste pada sel E3=A$3*C3, E4=A$4*C4 dst.

Absolut references tidak akan berubah kolom dan barisnya, pada contoh di atas pada D3 anda double klik kemudian blok / Highlight nilai A3 kemudian tekan F4 satu kali dan tekan ENTER maka akan menghasilkan =$A$3*B3. Jika D3 anda copy dan paste pada sel lain akan tetap baris dan kolomnya (baris 3 dan kolom A), pada D4 =$A$3*B4 pada D5=$A$3*B5. Kemudian paste pada sel E3=$A$3*C3, E4=$A$3*C4 dst.

Read More

Latihan 15 Kode Makro VBA Excel Untuk Pemula disertai File Contoh

Langsung saja Sobat ESI, Check it out:

Cara Mengakses Range Excel dan Menampilkan Nilainya dengan Message Box

Contoh 1

Pada saat mengotomatisasi sebagian besar Tugas Excel, kita perlu membaca data dari berbagai spread sheet Excel dan melakukan beberapa perhitungan. Contoh ini akan menunjukkan cara untuk membaca data dari berbagai worksheet.

Sub Contoh1()

    'menampilkan nilai pada sel A5 pada message Box

    MsgBox Range("A5")

    'Anda juga dapat menggunakan Cell Object untuk mengacu pada A5 seperti berikut:

     MsgBox Cells(5, 1) '5 adalah nomor baris  dan 1 adalah nomor kolom

End Sub

Cell object juga dapat digunakan untuk mengeser dari acuan pertama kita :

geser 1 baris dibawah A5 (sel A6) maka kode makronya: MsgBox Range(“A5”).cells(2,1)

geser 1 kolom dikanan A5 (sel B5) maka kode makronya: MsgBox Range(“A5”).cells(1,2)

untuk menampilkan range pada sheet lain, anda perlu menambahkan parent object :

menampilkan sel A5 pada sheet2 kode makronya: MsgBox Sheets(“Sheet2”).Range(“A5”).

Cara Masukkan data ke dalam Cell

Contoh 2

Setelah melakukan beberapa perhitungan menggunakan VBA, kita biasanya menulis/mengentri hasil ke dalam range worksheet. Contoh ini akan menunjukkan cara untuk menulis data dari VBA di berbagai Range atau sel.

Sub Contoh2()

    'Memasukan data text pada range B5

    Range("B5") = "Halo Gaan!"

    'Memasukan data numerik pada range B6 (tidak perlu tanda petik dua)

    Range("B6") = 54624

    End Sub

Cell object dan memasukan data pada sheet lain juga dapat digunakan seperti pada contoh 1

Cara Mengubah Warna Background (Latar Belakang) dari Range Tertentu

Contoh berikut akan membantu Anda dalam format sel atau range dengan mengubah warna latar belakang. Kita dapat menggunakan properti ColorIndex dari Range Interior Object untuk mengubah warna background range atau sel.

Sub Contoh3()

    'Merubah warna latar belakang dengan properti Interior.ColorIndex 

    Range("B1:B4").Interior.ColorIndex = 5 ' 5=Biru

End Sub

Untuk indeks lengkap 56 warna dapat dilihat pada file contoh.

Cara Mengubah Warna Dan Ukuran Font pada Range Tertentu

Anda mungkin kadang-kadang perlu mengubah warna font dari range atau sel. Metode berikut ini akan menggunakan properti font ColorIndex untuk mengubah warna font.

Sub Contoh4()

    ' Merubah warna Font dengan properti Font.ColorIndex

    Range("B5:B6").Font.ColorIndex = 3 ' 3=Red

End Sub

Ketentuan warna nomor indek sama dengan pada contoh 3

Cara Mengubah Teks Menjadi Upper Case, Lower Case dan Proper

Contoh ini akan membantu Anda untuk mengubah teks menjadi Upper Case (Huruf Kapital Semua), Lower Case (Huruf Kecil Semua) dan Proper (Huruf Pertama Kapital). Kita dapat menggunakan fungsi UCase, LCase dan StrConv(string conversion) .

Sub Contoh5()

    'Menggunakan fungsi Ucase

    Range("B7").Value = UCase(Range("B7").Value)

     'Menggunakan fungsi Lcase

    Range("B8").Value = LCase(Range("B8").Value)

     'Menggunakan fungsi string conversion tipe propercase

   Range("B9").Value = StrConv(Range("B9").Value,VbProperCase)

End Sub

Untuk Upper case dan Lower Case juga dapat menggunakan fungsi StrConv

Upper case: Range("B7").Value = StrConv(Range("B7").Value,VbUpperCase)

Lower case: Range("B8").Value = StrConv(Range("B8").Value,VbLowerCase)

Cara menyalin (Copy-Paste) Data Antar Range

Contoh ini akan membantu Anda untuk menyalin data dari satu range tertentu menunju range yang lain dalam worksheet menggunakan VBA.

Sub Contoh6()

    ‘Gunakan metode Copy 

    Range("B7:B19").Copy Destination:=Range("F1")

End Sub

Cara memilih Dan Mengaktifkan Worksheet

Contoh 7_1

Contoh ini akan membantu Anda untuk memilih worksheet tertentu.

Sub Contoh7_1()

    'Menggunakan Select Method untuk memilih sheet

    Sheet2.Select

    End Sub

Contoh 7_2

Untuk mengaktifkan worksheet tertentu kita dapat menggunakan metode activate.

Sub Contoh7_2()

    ‘Menggunakan Activate Method untuk mengaktifkan sheet

    Sheet1.Activate

End Sub

Cara Mendapatkan Nama Sheet Dan Workbook yang Aktif

Contoh 8

Sub Contoh8()

    'Menggunakan properti ActiveSheet.Name untuk mendapatkan nama sheet yang aktif

    MsgBox ActiveSheet.Name

    ' Menggunakan properti ActiveWorkbook.Name untuk mendapatkan nama Workbook yang aktif

    MsgBox ActiveWorkbook.Name

End Sub

  Cara Menambah, Me-Rename dan MenghapusWorksheet

Kita dapat menggunakan properti ActiveSheet.Name untuk mengubah nama Sheet. Kemudian menggunakan metode Sheet.Add untuk menambahkan Sheet baru serta Gunakan metode Delete untuk menghapus sheet.

Contoh 9_1

Sub Contoh9_1()

    'Menggunakan metode Add untuk menambah sheet baru

    Sheets.Add

    'menggunakan properti ActiveSheet.Name untuk merubah nama sheet

    ActiveSheet.Name = "Data"

End Sub

Contoh 9_2

Sub Contoh9_2()

'Menggunakan properti Application.DisplayAlerts untuk mematikan dialog peringatan

 Application.DisplayAlerts = False    

   'Menggunakan metode Delete untuk menghapus sheet

    Sheets("Data").Delete

End Sub

  

Cara Membuat Workbook Baru, Menambah data, Menutup dan Menyimpannya

Contoh 10

'Cara Menambah New Workbook,Memasukan Data serta Save dan tutup Workbook

Sub Contoh10()

    'menggunakan metode Add untuk membuat workbook baru

    Workbooks.Add

    'Anda bisa mengacu pada parent dan child object untuk mengakses range pada workbook baru

    ActiveWorkbook.Sheets("Sheet1").Range("A1") = "Contoh Data"

    ActiveWorkbook.Sheets("Sheet1").Range("A2") = 12345

   'Ini akan menyimpan folder default(sama dengan file ini), untuk folder lain "D:\xxx\xxx.xlsx"

    ActiveWorkbook.SaveAs "Contoh.xlsx"

    ActiveWorkbook.Close

End Sub

Dapat juga menggunakan tanda kurung:

ActiveWorkbook.SaveAs (“Contoh.xlsx”)

Untuk menyimpan dengan nama file disertai tanggal hari ini gunakan:

ActiveWorkbook.SaveAs Format(Now,”dd-mm-yyyy”)&”Contoh.xlsx”

Cara Menyembunyikan Dan Memunculkan Kembali Baris Dan Kolom

Kita dapat menggunakan properti Hidden dari baris atau kolom dari worksheet untuk menyembunyikan atau memunculkan baris atau kolom.

Contoh 11_1

Sub Contoh11_1()

    'Menyembunyikan baris

    Rows("39:40").Hidden = True 

End Sub

Contoh 11_2

Sub Contoh11_2()

    'Memunculkan Baris

    Rows("39:40").Hidden = False 

    End Sub

Contoh 11_3

Sub Contoh11_3()

  'Menyembunyikan Kolom

    Columns("F:G").Hidden = True 

    End Sub

Contoh 11_4

Sub Contoh11_4()

        ‘Memunculkan kolom

    Columns("F:G").Hidden = False 

End Sub

Untuk contoh 1 sampai 11_4 download file contohnya disini.tekan ALT+F11 untuk menampilkan kode makro

Cara Insert Dan Delete Baris Dan Kolom

Contoh ini akan menunjukkan cara untuk insert atau delete baris dan kolom menggunakan VBA.

Contoh 12_1

Sub Contoh12_1()

    'Menggunakan properti insert untuk baris

    Rows(6).Insert 

End Sub

Contoh 12_2

Sub Contoh12_2()

    'Menggunakan properti delete untuk baris

    Rows(6).Delete 

    End Sub

Contoh 12_3

Sub Contoh12_3()

    'Menggunakan properti insert untuk kolom

    Columns("J").Insert 

End Sub

Contoh 12_4

Sub Contoh12_4()

    'Menggunakan properti delete untuk kolom

    Columns("J").Delete 

End Sub

Cara Mengatur Tinggi Baris dan Lebar Kolom

Kita bisa mengatur tinggi baris atau lebar kolom menggunakan VBA. Contoh berikut akan menunjukkan cara untuk melakukannya dengan menggunakan VBA.

Sub Contoh13()

     Rows(18).RowHeight = 33

    Columns(13).ColumnWidth = 35

End Sub

Cara Menggabungkan sel dan Memisahkan Kembali

Contoh 14_1

Sub Contoh14_1()

    'Menggunakan properti merge untuk range

    Range("B20:B25").Merge

End Sub

Contoh 14_2

Sub Contoh14_2()

    ' Menggunakan properti unmerge untuk range

    Range("B20:B25").UnMerge

End Sub

Cara Bandingkan Dua Nilai - Sebuah Contoh Sederhana Pada Jika Kondisi

Sebuah Contoh sederhana menggunakan If Condition

Contoh 15

Sub Contoh15()

'Membandingkan nilai pada sel B27 and C27 menggunakan if

If Range("B27").Value = Range("C27") Then

    MsgBox "Sama"

Else

    MsgBox "Tidak Sama"

End If

Cara Menampilkan angka 1- 1000

Statement lain yang berguna di VBA adalah menggunakan teknik loop pada baris, kolom atau sejumlah iterasi.

Contoh 16

Sub Contoh16()

'Menampilkan angka 1-1000 pada kolom I

For i = 1 To 1000

    Cells(i, 9) = i 

Next i

End Sub

Untuk contoh 1 sampai 16 download file contohnya di sini.tekan ALT+F11 untuk menampilkan kode makro

Read More