Kode Program untuk membuat Form Input Ms. Excel

Shalom kelas XI 

Untuk membuat Form input dalam Ms. Excel kalian di minta untuk menyisipkan kode program di bawah ini untuk menjalankan tombol SIMPAN : 

Klik Kanan pada tombol Simpan kemudian pilih view code, kemudian copy paste perintah di bawah ini :  

Private Sub Simpan_Click()

ActiveWorkbook.Sheets("Transaksi").Activate

Sheets("Transaksi").Range("B3").Select

Do

If IsEmpty(ActiveCell) = False Then

    ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

Dim strAnswer As VbMsgBoxResult

strAnswer = MsgBox("Apakah Anda ingin menyimpan transaksi ini?", vbQuestion + vbYesNo, "KONFIRMASI!")

If strAnswer = vbYes Then

ActiveCell.Value = Sheets("Form").Range("E4").Value

ActiveCell.Offset(0, 1) = Sheets("Form").Range("E6").Value

ActiveCell.Offset(0, 2) = Sheets("Form").Range("E8").Value

ActiveCell.Offset(0, 3) = Sheets("Form").Range("E10").Value

ActiveCell.Offset(0, 4) = Sheets("Form").Range("E12").Value

ActiveCell.Offset(0, 5) = Sheets("Form").Range("E14").Value

Do

Loop Until strAnswer = vbYes = True

Sheets("Form").Range("E8").ClearContents

Sheets("Form").Range("E10").ClearContents

Sheets("Form").Range("E12").ClearContents

Sheets("Form").Range("E14").ClearContents

End If

If strAnswer = vbNo Then

Sheets("Form").Select

End If

End Sub

 


Komentar

Postingan populer dari blog ini

INTERAKSI KOMPUTER DENGAN PERANGKAT TAMBAHAN

Ujian Aspek Keterampilan (Praktek) tahun 2023 - 2024 Kolaborasi Mapel Informatika, IPS dan PJOK