Mr Kid, boleh ikutan kan ?
Setelah Even di bawah ini dijalankan ( isi sel C5 diubah dan perubahan
dibatalkan ("Cancel) ),
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngSave As Range
With Target
If .Count = 1 Then
If .Address = "$C$5" Then
Set rngSave = .Offset(0, -1)
If .Value <> rngSave.Value Then
Application.EnableEvents = False
If MsgBox("Ganti isinya jadi '" & .Value & "' ?",
vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
'If Len(.Value) = 0 Then
' rngSave.Value = " "
'Else
rngSave.Value = .Value
'End If
Else
.Value = rngSave.Value
End If
Application.EnableEvents = True
End If
End If
End If
End With
End Sub
maka sel B5 (.offset(0, -1)) akan "tetap berisi" kata "Oil" (di formula bar)
padahal yang tampak pada sel adalah "Jenis Fluida" seperti tampak pada gambar
berikut ini:
Pertanyaannya :- Mengapa sel B5 bisa terisi dengan 2 kata "Oil" dan "Jenis
Fluida" ?
Mohon penjelasannya Mr. Kid.Terima kasih.
Salam,HK
----- Forwarded Message -----From: Tio Adi Bayu Adjie [email protected]
[belajar-excel] <[email protected]>To:
"[email protected]" <[email protected]>Sent: Monday,
August 14, 2017, 11:42:18 AM GMT+7Subject: Re: [belajar-excel] Code VBA dengan
Worksheet _Change
Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya.
Amiin...
From: [email protected] <[email protected]> on behalf
of 'Mr. Kid' [email protected] [belajar-excel] <[email protected]>
Sent: Friday, August 11, 2017 7:18:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]
Hai Tio,
Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.
Regards,
Kid
2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie [email protected]
[belajar-excel] <[email protected]>:
Dear Be-Exceller,
Bagaimana code VBA dengan menggunakanPrivate Sub Worksheet_Change(ByVal Target
As Range). Jadi kalau isian “jenis fluida” di ganti maka nilainya kembali ke
nilai sebelumnya kalau salah input.
Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”, kemudian kita ganti
nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah
nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant).
Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya
(Oil).
Untuk lebih jelasnya, bisa dilihat di file terlampir.
Thank you
Best Regards,
Tio Adi Bayu Adjie
.
