Membuat Form Input Data di Excel dengan ChatGPT

Pada kesempatan tutorial kali ini kita akan meminta bantuan untuk membuatkan script VBA Excel pada ChatGPT untuk membuat Form Input Data.

Download Project Filenya

Pertama buat tabel data sederhana seperti pada gambar di bawah ini, setelah itu simpan dengan ekstensi .xlsm

Selanjutnya buka ChatGPT lalu ketikkan perintahnya sebagai berikut: "buatkan script VBA Excel untuk input data di tabel excel dengan kolom Nama, Alamat, Tanggal Tahir, Jenis kelamin" hasilnya kurang lebih seperti di bawah ini

Berikut adalah contoh script VBA yang dapat digunakan untuk membuat sebuah formulir input data di Excel dengan kolom Nama, Alamat, Tanggal Lahir, dan Jenis Kelamin:

1. Buka Excel dan tekan ALT + F11 untuk membuka jendela VBA.
2. Klik kanan pada VBAProject (NamaWorkbookAnda) dan pilih Insert > UserForm.
3. Tambahkan label dan kotak teks (TextBox) untuk Nama, Alamat, dan Tanggal Lahir. Tambahkan kotak kombi (ComboBox) untuk Jenis Kelamin.
4. Tambahkan tombol (CommandButton) untuk menyimpan data.
5. Klik dua kali tombol dan tambahkan kode berikut ini:

Private Sub CommandButton1_Click()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1") ' Ganti "Sheet1" dengan nama sheet Anda

 

    Dim lastRow As Long

    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1

 

    ws.Cells(lastRow, 1).Value = TextBox1.Text ' Nama

    ws.Cells(lastRow, 2).Value = TextBox2.Text ' Alamat

    ws.Cells(lastRow, 3).Value = TextBox3.Text ' Tanggal Lahir

    ws.Cells(lastRow, 4).Value = ComboBox1.Text ' Jenis Kelamin

 

    MsgBox "Data berhasil disimpan!", vbInformation

 

    ' Kosongkan kotak input setelah menyimpan data

    TextBox1.Text = ""

    TextBox2.Text = ""

    TextBox3.Text = ""

    ComboBox1.Text = ""

End Sub

 

Private Sub UserForm_Initialize()

    ComboBox1.AddItem "Laki-laki"

    ComboBox1.AddItem "Perempuan"

End Sub

Berikut adalah langkah-langkah tambahan untuk menyelesaikan pengaturan:

1. Tambahkan Label untuk setiap kolom (Nama, Alamat, Tanggal Lahir, Jenis Kelamin) di UserForm.
2. Tambahkan TextBox untuk Nama, Alamat, dan Tanggal Lahir.
3. Tambahkan ComboBox untuk Jenis Kelamin dan tambahkan item "Laki-laki" dan "Perempuan" dalam UserForm_Initialize.
4. Tambahkan CommandButton untuk menyimpan data dan beri nama seperti CommandButton1.

Dari penjelasan oleh ChatGPT sebenarnya sudah cuku apabila Anda sudah pernah belajar mengenai VBA Excel. Selanjutnya buka VBA Editor dengan tekan Alt+F11 kemudian tambahkan UserForm1

Kemudian tambahkan 4 Label dengan langkah memilih tool yang bergambar huruf A kemudian klik di area UserForm. Ulangi langkah tersebut sampai terbuat 4 Label.

Lalu buat  3 TextBox dengan cara klik ikon textbox lalu klik di area UserForm, Ulangi langkah tersebut sampai terbuat 4 Label.

Buat 1 ComboBox dengan cara klik ikon combobox lalu klik di area UserForm.

Buat 1 CommandButton dengan cara klik ikon commandbutton lalu klik di area UserForm.

Selanjutnya pilih Label satu kemudian ubah namanya menjadi Nama dibahian Caption seperti pada gambar di bawah ini. kemudian ulangi untuk label lainnya yaitu Alamat, Tanggal Lahir, dan Jenis kelamin.

Lakukan hal yang sama untuk CommandButton dengan caption SIMPAN, dan UserFormnya dengan INPUT DATA setelah itu atur lebar masing masing texbox dan letak tombolnya sehingga seperti berikut ini.

Kemudian copy script hasil dari ChatGPT kemudian kembali ke UserForm VBA Editor lalu klik kanan dan pilih View Code.

Selanjutnya jika ada kode yng otomatis muncul hapus semuanya lalu paste kode yang dari chatGPT dengan menekan tombol Ctrl+V, hasilnya seperti gambar.

Sekarang tekan tombol F5 untuk menjalankan Form Input data dan hasilnya seperti gambar dibawah ini. lalu lakukan tes untuk input data.