Membuat Grafik Progress Bar di Excel

Download Project File

Bagi Anda yang menginginkan project filenya silahkan download melalui link yang ada di atas.

Untuk tutorial lengkapnya silahkan lihat video di bawah ini sampai selesai, jangan lupa subcribe ya.

Read More

Membuat Nota Penjualan Dengan VBA Excel

Download Project File

Pada tutorial kali ini kita akan belajar membuat Nota penjualan dengan bantuan ChatGPT dengan ketikkan perintah di chatGPT sebagai berikut:

buatkan script VBA excel untuk membuat nota dari transaksi penjualan

Hasilnya akan terlihat sebagai berikut:

Berikut adalah contoh skrip VBA Excel untuk membuat nota dari transaksi penjualan. Skrip ini akan mengambil data transaksi dari sheet "Transaksi" dan membuat nota di sheet "Nota".

1. Persiapan:

   • Pastikan data transaksi disimpan di sheet "Transaksi" dengan format berikut:
     • Kolom A: Tanggal
     • Kolom B: Nomor Transaksi
     • Kolom C: Nama Barang
     • Kolom D: Jumlah
     • Kolom E: Harga Satuan

2. Buat Sheet "Nota":

   • Buat sheet baru bernama "Nota" yang akan digunakan untuk mencetak nota penjualan.

3. Skrip VBA:

Sub BuatNota()
    Dim wsTransaksi As Worksheet
    Dim wsNota As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim notaRow As Long
    Dim nomorTransaksi As String
    
    ' Set worksheets
    Set wsTransaksi = ThisWorkbook.Sheets("Transaksi")
    Set wsNota = ThisWorkbook.Sheets("Nota")
    
    ' Clear previous data on Nota sheet
    wsNota.Cells.Clear
    
    ' Set headers for Nota sheet
    wsNota.Range("A1").Value = "NOTA PENJUALAN"
    wsNota.Range("A3").Value = "Nomor Transaksi:"
    wsNota.Range("A4").Value = "Tanggal"
    wsNota.Range("B4").Value = "Nama Barang"
    wsNota.Range("C4").Value = "Jumlah"
    wsNota.Range("D4").Value = "Harga Satuan"
    wsNota.Range("E4").Value = "Total Harga"
    
    ' Get the last row with data on Transaksi sheet
    lastRow = wsTransaksi.Cells(wsTransaksi.Rows.Count, "A").End(xlUp).Row
    
    ' Initialize notaRow for Nota sheet
    notaRow = 5
    
    ' Iterate through each row in Transaksi sheet
    For i = 2 To lastRow
        ' Check if it's the first entry or a new transaction
        If i = 2 Or wsTransaksi.Cells(i, 2).Value <> wsTransaksi.Cells(i - 1, 2).Value Then
            ' Print the Nomor Transaksi
            nomorTransaksi = wsTransaksi.Cells(i, 2).Value
            wsNota.Range("B3").Value = nomorTransaksi
        End If
        
        ' Copy transaction data to Nota sheet
        wsNota.Cells(notaRow, 1).Value = wsTransaksi.Cells(i, 1).Value
        wsNota.Cells(notaRow, 2).Value = wsTransaksi.Cells(i, 3).Value
        wsNota.Cells(notaRow, 3).Value = wsTransaksi.Cells(i, 4).Value
        wsNota.Cells(notaRow, 4).Value = wsTransaksi.Cells(i, 5).Value
        wsNota.Cells(notaRow, 5).Value = wsTransaksi.Cells(i, 4).Value * wsTransaksi.Cells(i, 5).Value
        
        ' Move to the next row on Nota sheet
        notaRow = notaRow + 1
    Next i
    
    ' Format the Nota sheet
    wsNota.Columns("A:E").AutoFit
    wsNota.Range("A1").Font.Bold = True
    wsNota.Range("A3:E4").Font.Bold = True
    wsNota.Range("A1").Font.Size = 14
    wsNota.Range("A3:E4").Font.Size = 12
End Sub

4. Cara Menggunakan:
   • Buka Excel dan tekan Alt + F11 untuk membuka Editor VBA.
   • Klik kanan pada "VBAProject (NamaWorkbookAnda)" di jendela Project Explorer, pilih Insert > Module.
   • Salin dan tempel kode VBA di atas ke modul yang baru dibuat.
   • Tutup Editor VBA dan kembali ke Excel.
   • Untuk menjalankan makro, tekan Alt + F8, pilih BuatNota, lalu klik Run.

Skrip ini akan membuat nota penjualan berdasarkan data yang ada di sheet "Transaksi" dan menampilkannya di sheet "Nota". Anda dapat menyesuaikan format dan layout sesuai dengan kebutuhan.

Read More

Membuat Aplikasi Kalkulator di Excel

Pada kesempatan tutorial VBA excel kali ini kita akan belajar bersama-sama dengan bantuan ChatGPT untuk membuat aplikasi kalkulator sederhana.

Ketiikan perintah seperti di bawah ini pada chatGPT.

Buatkan script VBA Excel untuk membuat kalkulator sederhana

Hasil Jawaban dari ChatGPT:

Berikut adalah contoh script VBA untuk membuat kalkulator sederhana di Excel. Script ini akan membuat sebuah form dengan beberapa tombol (0-9, tambah, kurang, kali, bagi, sama dengan, dan clear) serta sebuah text box untuk menampilkan hasil perhitungan.

1. Buka Excel.
2. Tekan Alt + F11 untuk membuka VBA editor.
3. Klik Insert > UserForm untuk membuat form baru.
4. Tambahkan sebuah TextBox dan beberapa CommandButton ke form tersebut.
5. Atur Caption dari masing-masing CommandButton sesuai dengan fungsinya (misalnya, "1", "2", "+", "-", dsb).
6. Klik kanan pada form dan pilih View Code untuk menambahkan script VBA berikut:

Dim currentOperation As String
Dim firstNumber As Double
Dim secondNumber As Double
Dim result As Double

Private Sub CommandButton1_Click() ' Button 1
    TextBox1.Text = TextBox1.Text & "1"
End Sub

Private Sub CommandButton2_Click() ' Button 2
    TextBox1.Text = TextBox1.Text & "2"
End Sub

Private Sub CommandButton3_Click() ' Button 3
    TextBox1.Text = TextBox1.Text & "3"
End Sub

Private Sub CommandButton4_Click() ' Button 4
    TextBox1.Text = TextBox1.Text & "4"
End Sub

Private Sub CommandButton5_Click() ' Button 5
    TextBox1.Text = TextBox1.Text & "5"
End Sub

Private Sub CommandButton6_Click() ' Button 6
    TextBox1.Text = TextBox1.Text & "6"
End Sub

Private Sub CommandButton7_Click() ' Button 7
    TextBox1.Text = TextBox1.Text & "7"
End Sub

Private Sub CommandButton8_Click() ' Button 8
    TextBox1.Text = TextBox1.Text & "8"
End Sub

Private Sub CommandButton9_Click() ' Button 9
    TextBox1.Text = TextBox1.Text & "9"
End Sub

Private Sub CommandButton0_Click() ' Button 0
    TextBox1.Text = TextBox1.Text & "0"
End Sub

Private Sub CommandButtonAdd_Click() ' Button +
    firstNumber = CDbl(TextBox1.Text)
    currentOperation = "+"
    TextBox1.Text = ""
End Sub

Private Sub CommandButtonSubtract_Click() ' Button -
    firstNumber = CDbl(TextBox1.Text)
    currentOperation = "-"
    TextBox1.Text = ""
End Sub

Private Sub CommandButtonMultiply_Click() ' Button *
    firstNumber = CDbl(TextBox1.Text)
    currentOperation = "*"
    TextBox1.Text = ""
End Sub

Private Sub CommandButtonDivide_Click() ' Button /
    firstNumber = CDbl(TextBox1.Text)
    currentOperation = "/"
    TextBox1.Text = ""
End Sub

Private Sub CommandButtonEquals_Click() ' Button =
    secondNumber = CDbl(TextBox1.Text)
    Select Case currentOperation
        Case "+"
            result = firstNumber + secondNumber
        Case "-"
            result = firstNumber - secondNumber
        Case "*"
            result = firstNumber * secondNumber
        Case "/"
            result = firstNumber / secondNumber
    End Select
    TextBox1.Text = result
End Sub

Private Sub CommandButtonClear_Click() ' Button Clear
    TextBox1.Text = ""
    firstNumber = 0
    secondNumber = 0
    result = 0
    currentOperation = ""
End Sub

7. Tutup VBA editor dan kembali ke Excel.
8. Tekan Alt + F8, pilih UserForm yang telah Anda buat, dan klik Run untuk menjalankan kalkulator.

Sekarang Anda memiliki kalkulator sederhana di Excel yang dapat melakukan operasi penjumlahan, pengurangan, perkalian, dan pembagian.

Download Project File Kalkulator

Read More

Membuat Virtual Desktop Windows 10

Virtual Desktop di Windows 10 adalah fitur yang memungkinkan pengguna untuk membuat beberapa desktop virtual di dalam satu sistem operasi. Fitur ini sangat berguna untuk mengatur dan memisahkan tugas-tugas yang berbeda, sehingga dapat meningkatkan produktivitas dan efisiensi kerja. Dalam  tutorial kali ini saya akan bahas beberapa poin penting mengenai Virtual Desktop di Windows 10:

1. Membuat Virtual Desktop: Pengguna dapat membuat desktop virtual baru dengan menekan kombinasi tombol Windows + Tab untuk membuka Task View, kemudian klik tombol New Desktop atau + New Desktop.
2. Beralih Antar Desktop: Untuk beralih antara desktop virtual yang berbeda, pengguna bisa menggunakan Task View (Windows + Tab) dan memilih desktop yang diinginkan, atau menggunakan kombinasi tombol Ctrl + Windows + Panah Kiri/Kanan.
3. Mengelola Aplikasi di Desktop Virtual: Pengguna dapat memindahkan aplikasi atau jendela dari satu desktop virtual ke desktop lainnya dengan drag and drop melalui Task View.
4. Menghapus Desktop Virtual: Desktop virtual dapat dihapus melalui Task View dengan mengklik tombol "X" pada desktop yang ingin dihapus. Aplikasi dan jendela yang ada di desktop tersebut akan dipindahkan ke desktop sebelumnya.
5. Mengorganisir Pekerjaan: Fitur ini membantu pengguna untuk mengorganisir pekerjaan dengan lebih baik. Misalnya, satu desktop bisa digunakan untuk pekerjaan kantor, sementara desktop lain digunakan untuk tugas-tugas pribadi atau hiburan.

Dengan Virtual Desktop, pengguna Windows 10 dapat meningkatkan manajemen ruang kerja mereka secara lebih efektif dan mengurangi kebingungan saat bekerja dengan banyak aplikasi atau dokumen.

Read More

Cara Membuat Tabel di Microsoft Word

Untuk Membuat tabel di Microsoft Word sangat mudah dan dapat dilakukan dalam beberapa langkah. Untuk itu ikuti tutorial yang ada di video dibawah ini.

Cara Membuat Tabel Menggunakan Menu Insert

1. Buka Dokumen: Buka dokumen Microsoft Word 2019 Anda.
2. Arahkan ke Tab Insert: Klik tab "Insert" yang ada di menu atas.
3. Pilih Table: Klik ikon "Table".
4. Pilih Ukuran Tabel: Anda bisa mengarahkan kursor untuk memilih jumlah baris dan kolom yang diinginkan, atau klik "Insert Table" untuk mengatur ukuran tabel secara manual.
• Insert Table: Setelah klik "Insert Table", kotak dialog akan muncul. Masukkan jumlah kolom dan baris yang diinginkan, lalu klik "OK".

Cara Membuat Tabel dengan Menggambar

1. Buka Dokumen: Buka dokumen Microsoft Word 2019 Anda.
2. Arahkan ke Tab Insert: Klik tab "Insert" yang ada di menu atas.
3. Pilih Table: Klik ikon "Table".
4. Pilih Draw Table: Pilih "Draw Table". Kursor akan berubah menjadi pensil.
5. Gambar Tabel: Gambar tabel dengan mengklik dan menarik kursor di dokumen untuk membuat bentuk tabel sesuai keinginan Anda.

Cara Membuat Tabel dari Teks

1. Buka Dokumen: Buka dokumen Microsoft Word 2019 Anda.
2. Buat Teks Berformat Tabel: Buat teks dengan menggunakan tabulasi atau koma untuk memisahkan data kolom.
3. Pilih Teks: Sorot teks yang ingin Anda ubah menjadi tabel.
4. Arahkan ke Tab Insert: Klik tab "Insert" yang ada di menu atas.
5. Pilih Table: Klik ikon "Table".
6. Pilih Convert Text to Table: Klik "Convert Text to Table". Kotak dialog akan muncul.
7. Atur Kolom dan Baris: Pastikan jumlah kolom dan baris sesuai dengan teks yang Anda buat, lalu klik "OK".

Mengedit dan Menyesuaikan Tabel

Setelah membuat tabel, Anda dapat mengedit dan menyesuaikannya dengan:

1. Menambahkan atau Menghapus Baris dan Kolom: Klik kanan pada tabel dan pilih "Insert" atau "Delete".
2. Menggabungkan Sel: Sorot sel yang ingin digabungkan, klik kanan, lalu pilih "Merge Cells".
3. Mengatur Lebar Kolom dan Tinggi Baris: Klik dan seret garis batas kolom atau baris.
4. Mengubah Gaya Tabel: Klik tab "Table Design" atau "Layout" untuk memilih gaya tabel dan menyesuaikan format tabel.

Dengan mengikuti langkah-langkah di atas, Anda dapat membuat dan mengedit tabel di Microsoft Word 2019 sesuai dengan kebutuhan Anda.

Read More

Membuat Aplikasi Penjualan di Excel dengan ChatGPT

Pada Kesempatan tutorial kali ini ini kita akan belajar membuat aplikasi penjualan dan stok barang di excel dengan bantuan ChatGPT. Langsung saja buka ChatGPT.com kemudian ketikkan perintah berikut ini:

Download Project File

Saya memiliki sheet Data Barang terdiri dari kolom Kode Barang, Nama Barang, Harga Barang, Harga Jual. lalu sheet Pembelian terdiri dari kolom Kode Barang, Nama Barang, Harga Barang, Harga Jual, Jumlah Barang.  lalu sheet Penjualan terdiri dari kolom Kode Barang, Nama Barang, Harga Jual, Jumlah Barang, Total Harga. lalu sheet Stok Barang terdiri dari kolom Kode Barang, Nama Barang, Harga Beli, Harga Jual, Stok Akhir. Buatkan script VBA Excel untuk membuat UserForm untuk sheet Data Barang, Pembelian, Penjualan. untuk userform Pembelian, Nama Barang, Harga Barang, Harga Jual diambil otomatis dari sheet Data Barang berdasarkan Kode Barang. untuk userform Penjualan, Nama Barang, Harga Jual diambil otomatis dari sheet Data Barang berdasarkan Kode Barang.  Untuk sheet Stok Barang berdasarkan Pembelian dikurangi Penjualan.

Dari perintah diatas akan menghasilkan seperti yang ada dibawah ini.

Berikut adalah skrip VBA untuk membuat UserForm yang sesuai dengan kebutuhan Anda. Skrip ini mencakup pembuatan UserForm untuk Data Barang, Pembelian, dan Penjualan. Data Nama Barang, Harga Barang, dan Harga Jual diambil secara otomatis dari sheet Data Barang berdasarkan Kode Barang yang dimasukkan.

1. UserForm Data Barang:

vba
Private Sub cmdAddDataBarang_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Data Barang")

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

    ws.Cells(lastRow, 1).Value = txtKodeBarang.Value
    ws.Cells(lastRow, 2).Value = txtNamaBarang.Value
    ws.Cells(lastRow, 3).Value = txtHargaBarang.Value
    ws.Cells(lastRow, 4).Value = txtHargaJual.Value

    MsgBox "Data Barang berhasil ditambahkan!"
    txtKodeBarang.Value = ""
    txtNamaBarang.Value = ""
    txtHargaBarang.Value = ""
    txtHargaJual.Value = ""
End Sub

2. UserForm Pembelian:

vba
Private Sub cmdAddPembelian_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Pembelian")
    Dim dataWs As Worksheet
    Set dataWs = ThisWorkbook.Sheets("Data Barang")
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
    
    Dim kodeBarang As String
    kodeBarang = txtKodeBarangPembelian.Value

    Dim namaBarang As String
    Dim hargaBarang As Double
    Dim hargaJual As Double

    Dim dataLastRow As Long
    dataLastRow = dataWs.Cells(dataWs.Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = 2 To dataLastRow
        If dataWs.Cells(i, 1).Value = kodeBarang Then
            namaBarang = dataWs.Cells(i, 2).Value
            hargaBarang = dataWs.Cells(i, 3).Value
            hargaJual = dataWs.Cells(i, 4).Value
            Exit For
        End If
    Next i

    ws.Cells(lastRow, 1).Value = kodeBarang
    ws.Cells(lastRow, 2).Value = namaBarang
    ws.Cells(lastRow, 3).Value = hargaBarang
    ws.Cells(lastRow, 4).Value = hargaJual
    ws.Cells(lastRow, 5).Value = txtJumlahBarangPembelian.Value

    MsgBox "Pembelian berhasil ditambahkan!"
    txtKodeBarangPembelian.Value = ""
    txtJumlahBarangPembelian.Value = ""
End Sub

Private Sub txtKodeBarangPembelian_Change()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Data Barang")
    
    Dim kodeBarang As String
    kodeBarang = txtKodeBarangPembelian.Value

    Dim dataLastRow As Long
    dataLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = 2 To dataLastRow
        If ws.Cells(i, 1).Value = kodeBarang Then
            lblNamaBarangPembelian.Caption = ws.Cells(i, 2).Value
            lblHargaBarangPembelian.Caption = ws.Cells(i, 3).Value
            lblHargaJualPembelian.Caption = ws.Cells(i, 4).Value
            Exit For
        End If
    Next i
End Sub

3. UserForm Penjualan:

vba
Private Sub cmdAddPenjualan_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Penjualan")
    Dim dataWs As Worksheet
    Set dataWs = ThisWorkbook.Sheets("Data Barang")

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

    Dim kodeBarang As String
    kodeBarang = txtKodeBarangPenjualan.Value

    Dim namaBarang As String
    Dim hargaJual As Double

    Dim dataLastRow As Long
    dataLastRow = dataWs.Cells(dataWs.Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = 2 To dataLastRow
        If dataWs.Cells(i, 1).Value = kodeBarang Then
            namaBarang = dataWs.Cells(i, 2).Value
            hargaJual = dataWs.Cells(i, 4).Value
            Exit For
        End If
    Next i

    ws.Cells(lastRow, 1).Value = kodeBarang
    ws.Cells(lastRow, 2).Value = namaBarang
    ws.Cells(lastRow, 3).Value = hargaJual
    ws.Cells(lastRow, 4).Value = txtJumlahBarangPenjualan.Value
    ws.Cells(lastRow, 5).Value = txtJumlahBarangPenjualan.Value * hargaJual

    MsgBox "Penjualan berhasil ditambahkan!"
    txtKodeBarangPenjualan.Value = ""
    txtJumlahBarangPenjualan.Value = ""
End Sub

Private Sub txtKodeBarangPenjualan_Change()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Data Barang")
    
    Dim kodeBarang As String
    kodeBarang = txtKodeBarangPenjualan.Value

    Dim dataLastRow As Long
    dataLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = 2 To dataLastRow
        If ws.Cells(i, 1).Value = kodeBarang Then
            lblNamaBarangPenjualan.Caption = ws.Cells(i, 2).Value
            lblHargaJualPenjualan.Caption = ws.Cells(i, 4).Value
            Exit For
        End If
    Next i
End Sub

4. Menghitung Stok Barang:

vba
Sub UpdateStokBarang()
    Dim dataWs As Worksheet
    Set dataWs = ThisWorkbook.Sheets("Data Barang")
    Dim pembelianWs As Worksheet
    Set pembelianWs = ThisWorkbook.Sheets("Pembelian")
    Dim penjualanWs As Worksheet
    Set penjualanWs = ThisWorkbook.Sheets("Penjualan")
    Dim stokWs As Worksheet
    Set stokWs = ThisWorkbook.Sheets("Stok Barang")
    
    Dim lastDataRow As Long
    lastDataRow = dataWs.Cells(dataWs.Rows.Count, 1).End(xlUp).Row
    
    Dim lastPembelianRow As Long
    lastPembelianRow = pembelianWs.Cells(pembelianWs.Rows.Count, 1).End(xlUp).Row
    
    Dim lastPenjualanRow As Long
    lastPenjualanRow = penjualanWs.Cells(penjualanWs.Rows.Count, 1).End(xlUp).Row
    
    Dim i As Long, j As Long, k As Long
    
    For i = 2 To lastDataRow
        Dim kodeBarang As String
        kodeBarang = dataWs.Cells(i, 1).Value
        
        Dim namaBarang As String
        namaBarang = dataWs.Cells(i, 2).Value
        
        Dim hargaBeli As Double
        hargaBeli = dataWs.Cells(i, 3).Value
        
        Dim hargaJual As Double
        hargaJual = dataWs.Cells(i, 4).Value
        
        Dim jumlahBeli As Long
        jumlahBeli = 0
        
        For j = 2 To lastPembelianRow
            If pembelianWs.Cells(j, 1).Value = kodeBarang Then
                jumlahBeli = jumlahBeli + pembelianWs.Cells(j, 5).Value
            End If
        Next j
        
        Dim jumlahJual As Long
        jumlahJual = 0
        
        For k = 2 To lastPenjualanRow
            If penjualanWs.Cells(k, 1).Value = kodeBarang Then
                jumlahJual = jumlahJual + penjualanWs.Cells(k, 4).Value
            End If
        Next k
        
        Dim stokAkhir As Long
        stokAkhir = jumlahBeli - jumlahJual
        
        Dim stokLastRow As Long
        stokLastRow = stokWs.Cells(stokWs.Rows.Count, 1).End(xlUp).Row + 1
        
        stokWs.Cells(stokLastRow, 1).Value = kodeBarang
        stokWs.Cells(stokLastRow, 2).Value = namaBarang
        stokWs.Cells(stokLastRow, 3).Value = hargaBeli
        stokWs.Cells(stokLastRow, 4).Value = hargaJual
        stokWs.Cells(stokLastRow, 5).Value = stokAkhir
    Next i
    
    MsgBox "Stok Barang berhasil diperbarui!"
End Sub

Untuk menggunakan skrip di atas, ikuti langkah-langkah berikut:

1. Buka Excel dan tekan ALT + F11 untuk membuka editor VBA.
2. Klik kanan pada VBAProject (Nama File Anda) dan pilih Insert > UserForm.
3. Tambahkan kontrol (TextBox, Label, CommandButton) sesuai kebutuhan pada masing-masing UserForm.
4. Salin dan tempelkan kode masing-masing UserForm ke dalam modul UserForm yang sesuai.
5. Buat modul baru untuk kode UpdateStokBarang dan jalankan subrutin ini setelah setiap pembelian atau penjualan untuk memperbarui stok.

Read More

Membuat Form Input Data Lengkap dengan Bantuan ChatGPT

Perintah Untuk ChatGPT:

buatkan script VBA excel untuk form input data dengan tombol simpan, hapus, update di tabel excel dengan kolom Nama, Alamat, Tanggal Lahir, Jenis Kelamin ChatGPT

Hasil:

Berikut adalah script VBA untuk membuat form input data dengan tombol Simpan, Hapus, dan Update di Excel. Script ini menciptakan sebuah UserForm dengan beberapa TextBox dan ComboBox untuk input data, serta tiga CommandButton untuk fungsi Simpan, Hapus, dan Update.

1. Buat UserForm di Excel:
• Buka Excel dan tekan ALT + F11 untuk membuka VBA editor.
• Pilih Insert > UserForm untuk membuat UserForm baru.
• Tambahkan kontrol berikut ke UserForm:
• Label dan TextBox untuk Nama
• Label dan TextBox untuk Alamat
• Label dan TextBox untuk Tanggal Lahir
• Label dan ComboBox untuk Jenis Kelamin
• CommandButton untuk Simpan
• CommandButton untuk Hapus
• CommandButton untuk Update
2. Tambahkan kode VBA di UserForm:

Private Sub CommandButtonSimpan_Click()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

   

    Dim lastRow As Long

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

   

    ws.Cells(lastRow, 1).Value = Me.TextBoxNama.Value

    ws.Cells(lastRow, 2).Value = Me.TextBoxAlamat.Value

    ws.Cells(lastRow, 3).Value = Me.TextBoxTanggalLahir.Value

    ws.Cells(lastRow, 4).Value = Me.ComboBoxJenisKelamin.Value

   

    MsgBox "Data berhasil disimpan"

   

    ClearForm

End Sub

 

Private Sub CommandButtonHapus_Click()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

   

    Dim selectedRow As Long

    selectedRow = Me.ListBoxData.ListIndex + 2

   

    If selectedRow > 1 Then

        ws.Rows(selectedRow).Delete

        MsgBox "Data berhasil dihapus"

        LoadData

    Else

        MsgBox "Pilih data yang akan dihapus"

    End If

End Sub

 

Private Sub CommandButtonUpdate_Click()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

   

    Dim selectedRow As Long

    selectedRow = Me.ListBoxData.ListIndex + 2

   

    If selectedRow > 1 Then

        ws.Cells(selectedRow, 1).Value = Me.TextBoxNama.Value

        ws.Cells(selectedRow, 2).Value = Me.TextBoxAlamat.Value

        ws.Cells(selectedRow, 3).Value = Me.TextBoxTanggalLahir.Value

        ws.Cells(selectedRow, 4).Value = Me.ComboBoxJenisKelamin.Value

       

        MsgBox "Data berhasil diupdate"

        LoadData

    Else

        MsgBox "Pilih data yang akan diupdate"

    End If

End Sub

 

Private Sub UserForm_Initialize()

    Me.ComboBoxJenisKelamin.AddItem "Laki-laki"

    Me.ComboBoxJenisKelamin.AddItem "Perempuan"

    LoadData

End Sub

 

Private Sub LoadData()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

   

    Dim i As Long

    Me.ListBoxData.Clear

   

    For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

        Me.ListBoxData.AddItem ws.Cells(i, 1).Value

        Me.ListBoxData.List(Me.ListBoxData.ListCount - 1, 1) = ws.Cells(i, 2).Value

        Me.ListBoxData.List(Me.ListBoxData.ListCount - 1, 2) = ws.Cells(i, 3).Value

        Me.ListBoxData.List(Me.ListBoxData.ListCount - 1, 3) = ws.Cells(i, 4).Value

    Next i

End Sub

 

Private Sub ListBoxData_Click()

    Dim selectedRow As Long

    selectedRow = Me.ListBoxData.ListIndex + 2

   

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

   

    Me.TextBoxNama.Value = ws.Cells(selectedRow, 1).Value

    Me.TextBoxAlamat.Value = ws.Cells(selectedRow, 2).Value

    Me.TextBoxTanggalLahir.Value = ws.Cells(selectedRow, 3).Value

    Me.ComboBoxJenisKelamin.Value = ws.Cells(selectedRow, 4).Value

End Sub

 

Private Sub ClearForm()

    Me.TextBoxNama.Value = ""

    Me.TextBoxAlamat.Value = ""

    Me.TextBoxTanggalLahir.Value = ""

    Me.ComboBoxJenisKelamin.Value = ""

End Sub

3. Buat Tabel di Sheet1:
• Di Sheet1, buat header untuk tabel dengan kolom Nama, Alamat, Tanggal Lahir, dan Jenis Kelamin.
4. Jalankan UserForm:
• Kembali ke VBA editor, buat module baru dan tambahkan kode berikut untuk menampilkan UserForm:

Sub ShowForm()

    UserForm1.Show

End Sub

5. Jalankan macro ShowForm dari Excel untuk menampilkan UserForm.

Dengan script ini, Anda dapat memasukkan data, menyimpannya, menghapus, dan memperbarui data di tabel Excel melalui UserForm.

Read More