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