Assalamu'alaikum Wr. Wb.
Materi praktikum yang kita pelajari dalam mata kuliah "Analisis Laporan Keuangan UMKM" yaitu materi "Rumus VBA cmd Tambah". Untuk lebih jelasnya mengenai materi "Rumus VBA cmd Tambah" dapat dipelajari pada materi berikut:
‘PILIH SHEET, DISINI NAMA SHEETNYA ADALAH : Transaksi Kasir
Sheets(“Transaksi Kasir”).Select
‘DATA YANG KITA INPUT
no_transaksi = Range(“K3”).Text
tanggal = Range(“K4”).Text
nama_barang = Range(“K6”).Text
harga = Range(“K7”).Value
banyaknya = Range(“K8”).Value
jumlah = Range(“K9”).Value
‘VALIDASI INPUTAN JIKA ISIAN MASIH ADA YANG KOSONG
If no_transaksi = “” Or tanggal = “” Or nama_barang = “” Or harga = “” Or banyaknya = “” Or jumlah = “” Then
MsgBox “Isian belum lengkap”, vbExclamation, “Konfirmasi”
Exit Sub
End If
‘MEMASUKKAN DATA KE TABEL TRANSAKSI KETIKA MENGKLIK TOMBOL TAMBAH
Sheets(“Transaksi Kasir”).Select ‘<< MEMILIH SHEET Transaksi Kasir
TotalData = Range (“K12”).Value ‘<< TOTAL ITEM PADA TABEL TRANSAKSI
Rows(TotalData + 8 & “:” & TotalData + 8).Select ‘<< ANGKA 8 ADALAH BARIS PERTAMA PADA TABEL TRANSAKSI YANG AKAN DISII DATA
Selection.Copy
Rows(TotalData + 8 & “:” & TotalData + 8).Select
ActiveSheet.Paste
Application.CutCopyMode = False
‘MENENTUKAN KOLOM PADA TABEL TRANSAKSI YANG AKAN DIISIKAN DATA
Range(“C” & TotalData + 8).Select
ActiveCell.FormulaR1C1 = no_transaksi
Range(“D” & TotalData + 8).Select
ActiveCell.FormulaR1C1 = tanggal
Range(“E” & TotalData + 8).Select
ActiveCell.FormulaR1C1 = nama_barang
Range(“F” & TotalData + 8).Select
ActiveCell.FormulaR1C1 = harga
Range(“G” & TotalData + 8).Select
ActiveCell.FormulaR1C1 = banyaknya
Range(“H” & TotalData + 8).Select
ActiveCell.FormulaR1C1 = jumlah
‘MENGOSONGKAN ISIAN DATA
Sheets(“Transaksi Kasir”).Select ‘<< MEMILIH SHEET Transaksi Kasir
Range(“K6”) = “”
Range(“K8”) = “”
Range(“K6”).SelectDemikian penjelasan materi dari saya, semoga bermanfaat.
Let’s Study! Have a nice day!
Wassalamu’alaikum Wr. Wb.


Comments
Post a Comment