Yang bagian di latar kuning Pak,
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
Apa kegunaan baris itu jika di-non aktifkan ?
Apa kegunaan baris itu jika tetap aktif ?
Seingat saya, saya membuat baris itu dalam keadaan aktif.
Berartikan Pak HK yang mengubahnya menjadi non aktif... Mestinya ada
alasannya kan ya... mbok ya di-share di milis gitu loh...
Regards,
Kid
2017-08-15 10:06 GMT+07:00 hendrik karnadi [email protected]
[belajar-excel] <[email protected]>:
>
>
> Hahaha, ga ngerti Mr. Kid karena baik soal maupun jawabannya bukan saya
> yang buat'
>
> Salam,
> HK
>
> ------------------------------
> On Monday, August 14, 2017, 3:52:28 PM GMT+7, 'Mr. Kid' [email protected]
> [belajar-excel] <[email protected]> wrote:
>
>
>
>
> Kenapa ada baris di-non aktifkan ?
>
>
> 2017-08-14 15:07 GMT+07:00 hendrik karnadi [email protected]
> [belajar-excel] <[email protected]>:
>
>
>
> Hahaha...ternyata formatnya.
> Makasih Mr. Kid.
>
> Salam,
> HK
>
> ------------------------------
> On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' [email protected]
> [belajar-excel] <[email protected] > wrote:
>
>
>
>
> 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.]
>
>
>
>
>
>
