GUDANG SKRIPSI

Cara Membuat Fungsi Input Box Pada Excel

Ada cukup banyak jenis form yang dapat digunakan bersama VBA di Excel, tapi jika yang dimaksud adalah form yang dapat kita buat dengan fleksibel maka itu adalah UserForm.
Artikel berikut akan menunjukkan cara membuat userForm, menambahkan kontrol di atasnya dan memasukkan kode VBA sehingga dapat berinteraksi dengan worksheet Excel 2010.

Menambahkan dan Menyusun Layout Form

1. Jalankan aplikasi Microsoft Excel 2010.
2. Buat dan simpan worksheet baru dengan nama userform-excel-2010.xlsm.
3. Tekan CTRL+F11 untuk membuka Visual Basic Editor. Jika penekanan tombol tersebut tidak berhasil, klik tab menu Developer dan pilih Visual Basic.
4. Pada bagian jendela Project Explorer klik kanan pada node VBA Project dan pilih menu Insert diikuti UserForm.

5. Akan muncul satu form dengan nama UserForm1. Muncul juga satu dialog Toolbox dimana kita bisa mengambil berbagai kontrol untuk diletakkan pada form, dan terakhir ada panel Properties yang bisa gunakan untuk melakukan konfigurasi form maupun kontrol.

6. Pada Properties, rubah nama dari UserForm1 menjadi FormEntri. Pada caption, rubah teks UserForm1 menjadi Form Entri.
7. Pada Toolbox, klik kontrol Label.

8. Klik salah satu area pada form Anda dan atur penempatan label yang akan segera ditambahkan ke form tersebut. Hasilnya kira-kira terlihat terlihat seperti pada gambar berikut.

9. Pada Properties, namakan label tersebut dengan mengisi teks pada bagian Name dengan lblNama dan pada Caption isi dengan teks Nama.
10. Klik area pada form untuk memunculkan kembali Toolbox. Tambahkan kontrol Textbox pada form dengan cara seperti pada langkah 7 dan 8.

11. Pada Properties, namakan textbox tersebut dengan mengisi txtNama pada bagian Name.
12. Klik area pada form untuk memunculkan kembali Toolbox.
13. Tambahkan dua kontrol command button pada form. Isi Name untuk masing-masing tersebut dengan btnHapus dan btnTambah. Caption untuk btnHapus diisi dengan teks Hapus, dan untuk btnTambah dengan teks Tambah.
14. Tampilan form akhir Anda akan terlihat seperti pada gambar screenshot berikut ini.

15. Simpan worksheet Anda dengan menekan tombol CTRL+S.

Menambahkan Kode VBA

1. Klik dua kali pada tombol dengan caption Tambah sehingga memunculkan editor dengan teks berikut.

2. Tambahkan kode berikut ke dalam fungsi btnTambah_Click().

3. Klik dua kali pada tombol dengan caption Hapus dan tambahkan kode berikut ke dalam  fungsi btnHapus_Click().

    Dim rangeSheet1 As Range

    

    btnTambah.Enabled = False

    For i = 1 To Sheet1.Rows.Count

        Set rangeSheet1 = Range("A" & i)

        If Len(rangeSheet1.Value) > 0 Then

            If rangeSheet1.Value = txtNama.Text Then

                rangeSheet1.EntireRow.Delete

                btnTambah.Enabled = True

                btnTambah.SetFocus

                Exit For

            End If

        Else

            Exit For

        End If

    Next i

4. Simpan worksheet Anda dengan menekan tombol CTRL+S.

Menambahkan Tombol pada Worksheet

1. Kembali ke worksheet Anda, tambahkan button control menggunakan menu Insert yang terdapat pada tab Developer.

2. Pada dialog Assign Macro yang muncul. Klik tombol New.
3. Pada editor yang muncul tambahkan kode berikut pada Button1_Click().

FormEntri.Show

4. Pada editor yang muncul tambahkan kode berikut pada Button1_Click().Kembali ke worksheet, klik kanan pada tombol tersebut dan pilih Format Control. Klik tab Properties, dan pilih Don’t move or size with cells. Tekan tombol OK.

5. Hasil akhir worksheet Anda akan terlihat kira-kira seperti pada screenshot berikut.

Membuat Aplikasi pada Excel

Record Macro
Kita akan melakukan salah satu contoh membuat macro dengan cara merecord. Buka file baru dalam aplikasi Excel, klik menu Tools – Macro – Record New Macro.


Muncul menu “Record macro”, kita bisa memberi nama sendiri macro yang akan direcord, tapi defaultnya Macro1, kita biarkan saja namanya. Klik Ok.


Mulai dari sini, semua proses yang akan dilakukan terhadap file excel tersebut akan direcord oleh Macro Recorder, sampai nanti kita menekan tombol stop. Sekarang kita akan merubah Page Setup dari Portrait menjadi Lanscape.
Mungkin hasil kode yang dihasilkan pada komputer anda seperti ini:
Sub Macro1()
    With ActiveSheet.PageSetup
        .PrintTitleRows = “”
        .PrintTitleColumns = “”
    End With
    ActiveSheet.PageSetup.PrintArea = “”
    With ActiveSheet.PageSetup
        .LeftHeader = “”
        .CenterHeader = “”
        .RightHeader = “”
        .LeftFooter = “”
        .CenterFooter = “”
        .RightFooter = “”
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub
Bandingkan, kita bisa menyederhanakan kode diatas menjadi :
Sub Macro1()
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
End Sub
So? Masih mau merecord macro? Jangan terburu-buru memutuskan tidak menggunakan Macro Recorder, yang pasti ada gunanya. Saya biasa menggunakannya untuk mencari perintah yang tepat untuk melakukan operasi tertentu, yang mungkin saya lupa perintahnya. Saya record dengan Macro Recorder, dan dibuang perintah yang tidak perlu.
Menulis Sendiri Kode Macro
Kopikan kode ini:
Bila repot harus menjalankan macro kalau harus klik menu Tools terus, kita bisa assign macro menjadi tombol. Dari window Excel, insert kotak / shape yang mana saja, klik kanan pada shape tersebut, dan pilih Assign Macro, pilih macro yang ingin di assign, Ok. Kita bisa menjalankan macro hanya dengan mengklik shape tersebut. Label: sejarah