hmmm.... Kenapa ada baris yang di-non aktifkan ? Apakah baris tersebut tidak dipakai atau tidak berguna ?
Untuk bunyi Jenis Fluida, silakan lihat format cells tab Number Regards, Kid 2017-08-14 14:28 GMT+07:00 hendrik karnadi [email protected] [belajar-excel] <[email protected]>: > > > 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: > > [image: Inline image] > > 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+7 > *Subject:* 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 menggunakan *Private 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 > > > > > > . > > [image: Image removed by sender.] > [image: Image removed by sender.] > > > >
