[belajar-excel] Digest Number 4271

Milis Belajar Microsoft Excel Group

7 Messages

Digest #4271

1a

Re: Formar cell angka minus dalam Jutaan, ribuan by "Mr. Kid" nmkid.family@ymail.com

1b

Re: Formar cell angka minus dalam Jutaan, ribuan by "M.Ade Alfarid" aderyo

1c

Re: Formar cell angka minus dalam Jutaan, ribuan by "Eira I Arie" cheivory_bridge

2a

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change by "hendrik karnadi" hendrikkarnadi

2b

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change [2 Att by "Mr. Kid" nmkid.family@ymail.com

2c

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change by "hendrik karnadi" hendrikkarnadi

2d

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change [2 Att by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Re: Formar cell angka minus dalam Jutaan, ribuan

Mon Aug 14, 2017 7:39 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

wakakaka....

Sejak dulu...
Saya gak pernah memproteksi file yang diposting ke milis.
Kalau file yang saya posting ke milis dalam keadaan terproteksi, pasti
sudah disertakan password-nya.

btw,
kalau memang lebih suka cara selain pakai password dalam meng-unprotect, ya
gpp...

hehehe...
ada ada saja...

Regards,
Kid

2017-08-15 9:05 GMT+07:00 idz.iman@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Tidak ada psswordnya Mr. Kid,
> mohon ijin saya sudah buka melalui unprotect macro :D
>
> salam
> Iman
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (9) . Top ^

1b

Re: Formar cell angka minus dalam Jutaan, ribuan

Mon Aug 14, 2017 8:21 pm (PDT) . Posted by:

"M.Ade Alfarid" aderyo

Ada clue dari Mr.Kid

*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

*Sent:* Tuesday, August 15, 2017 9:05 AM
*To:* belajar-excel@yahoogroups.com
*Subject:* Re: [belajar-excel] Formar cell angka minus dalam Jutaan, ribuan

Tidak ada psswordnya Mr. Kid,

mohon ijin saya sudah buka melalui unprotect macro :D

salam

Iman

Reply to sender . Reply to group . Reply via Web Post . All Messages (9) . Top ^

1c

Re: Formar cell angka minus dalam Jutaan, ribuan

Mon Aug 14, 2017 8:36 pm (PDT) . Posted by:

"Eira I Arie" cheivory_bridge

iya nih kayaknya .. apa ya clue nya ?
 -------------------
Eira_ariE
Traveller
Phone : +6285728104321
Instagram : @eira_arie4321

On Tuesday, August 15, 2017 10:21 AM, "'M.Ade Alfarid' QA@kkmi.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Ada clue dari Mr.Kid From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, August 15, 2017 9:05 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Formar cell angka minus dalam Jutaan, ribuan   Tidak ada psswordnya Mr. Kid, mohon ijin saya sudah buka melalui unprotect macro :D salamIman #yiv9770627627 #yiv9770627627 -- #yiv9770627627ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9770627627 #yiv9770627627ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9770627627 #yiv9770627627ygrp-mkp #yiv9770627627hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9770627627 #yiv9770627627ygrp-mkp #yiv9770627627ads {margin-bottom:10px;}#yiv9770627627 #yiv9770627627ygrp-mkp .yiv9770627627ad {padding:0 0;}#yiv9770627627 #yiv9770627627ygrp-mkp .yiv9770627627ad p {margin:0;}#yiv9770627627 #yiv9770627627ygrp-mkp .yiv9770627627ad a {color:#0000ff;text-decoration:none;}#yiv9770627627 #yiv9770627627ygrp-sponsor #yiv9770627627ygrp-lc {font-family:Arial;}#yiv9770627627 #yiv9770627627ygrp-sponsor #yiv9770627627ygrp-lc #yiv9770627627hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9770627627 #yiv9770627627ygrp-sponsor #yiv9770627627ygrp-lc .yiv9770627627ad {margin-bottom:10px;padding:0 0;}#yiv9770627627 #yiv9770627627actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9770627627 #yiv9770627627activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9770627627 #yiv9770627627activity span {font-weight:700;}#yiv9770627627 #yiv9770627627activity span:first-child {text-transform:uppercase;}#yiv9770627627 #yiv9770627627activity span a {color:#5085b6;text-decoration:none;}#yiv9770627627 #yiv9770627627activity span span {color:#ff7900;}#yiv9770627627 #yiv9770627627activity span .yiv9770627627underline {text-decoration:underline;}#yiv9770627627 .yiv9770627627attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9770627627 .yiv9770627627attach div a {text-decoration:none;}#yiv9770627627 .yiv9770627627attach img {border:none;padding-right:5px;}#yiv9770627627 .yiv9770627627attach label {display:block;margin-bottom:5px;}#yiv9770627627 .yiv9770627627attach label a {text-decoration:none;}#yiv9770627627 blockquote {margin:0 0 0 4px;}#yiv9770627627 .yiv9770627627bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9770627627 .yiv9770627627bold a {text-decoration:none;}#yiv9770627627 dd.yiv9770627627last p a {font-family:Verdana;font-weight:700;}#yiv9770627627 dd.yiv9770627627last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9770627627 dd.yiv9770627627last p span.yiv9770627627yshortcuts {margin-right:0;}#yiv9770627627 div.yiv9770627627attach-table div div a {text-decoration:none;}#yiv9770627627 div.yiv9770627627attach-table {width:400px;}#yiv9770627627 div.yiv9770627627file-title a, #yiv9770627627 div.yiv9770627627file-title a:active, #yiv9770627627 div.yiv9770627627file-title a:hover, #yiv9770627627 div.yiv9770627627file-title a:visited {text-decoration:none;}#yiv9770627627 div.yiv9770627627photo-title a, #yiv9770627627 div.yiv9770627627photo-title a:active, #yiv9770627627 div.yiv9770627627photo-title a:hover, #yiv9770627627 div.yiv9770627627photo-title a:visited {text-decoration:none;}#yiv9770627627 div#yiv9770627627ygrp-mlmsg #yiv9770627627ygrp-msg p a span.yiv9770627627yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9770627627 .yiv9770627627green {color:#628c2a;}#yiv9770627627 .yiv9770627627MsoNormal {margin:0 0 0 0;}#yiv9770627627 o {font-size:0;}#yiv9770627627 #yiv9770627627photos div {float:left;width:72px;}#yiv9770627627 #yiv9770627627photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9770627627 #yiv9770627627photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9770627627 #yiv9770627627reco-category {font-size:77%;}#yiv9770627627 #yiv9770627627reco-desc {font-size:77%;}#yiv9770627627 .yiv9770627627replbq {margin:4px;}#yiv9770627627 #yiv9770627627ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9770627627 #yiv9770627627ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9770627627 #yiv9770627627ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9770627627 #yiv9770627627ygrp-mlmsg select, #yiv9770627627 input, #yiv9770627627 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9770627627 #yiv9770627627ygrp-mlmsg pre, #yiv9770627627 code {font:115% monospace;}#yiv9770627627 #yiv9770627627ygrp-mlmsg * {line-height:1.22em;}#yiv9770627627 #yiv9770627627ygrp-mlmsg #yiv9770627627logo {padding-bottom:10px;}#yiv9770627627 #yiv9770627627ygrp-msg p a {font-family:Verdana;}#yiv9770627627 #yiv9770627627ygrp-msg p#yiv9770627627attach-count span {color:#1E66AE;font-weight:700;}#yiv9770627627 #yiv9770627627ygrp-reco #yiv9770627627reco-head {color:#ff7900;font-weight:700;}#yiv9770627627 #yiv9770627627ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9770627627 #yiv9770627627ygrp-sponsor #yiv9770627627ov li a {font-size:130%;text-decoration:none;}#yiv9770627627 #yiv9770627627ygrp-sponsor #yiv9770627627ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9770627627 #yiv9770627627ygrp-sponsor #yiv9770627627ov ul {margin:0;padding:0 0 0 8px;}#yiv9770627627 #yiv9770627627ygrp-text {font-family:Georgia;}#yiv9770627627 #yiv9770627627ygrp-text p {margin:0 0 1em 0;}#yiv9770627627 #yiv9770627627ygrp-text tt {font-size:120%;}#yiv9770627627 #yiv9770627627ygrp-vital ul li:last-child {border-right:none !important;}#yiv9770627627

Reply to sender . Reply to group . Reply via Web Post . All Messages (9) . Top ^

2a

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change

Mon Aug 14, 2017 8:06 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

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' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Kenapa ada baris di-non aktifkan ?

2017-08-14 15:07 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 

Hahaha...ternyata formatnya.Makasih Mr. Kid.
Salam,HK
On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > 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 hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:

 

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 tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com >To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >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: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com > on behalf of 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com >
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 tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com >:

 

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

 

 

.

Reply to sender . Reply to group . Reply via Web Post . All Messages (13) . Top ^

2b

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change [2 Att

Mon Aug 14, 2017 8:35 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> 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' mr.nmkid@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
> Kenapa ada baris di-non aktifkan ?
>
>
> 2017-08-14 15:07 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Hahaha...ternyata formatnya.
> Makasih Mr. Kid.
>
> Salam,
> HK
>
> ------------------------------
> On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com > 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 hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
>
> 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 tio.adjie@ptssb.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *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:* belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com > on
> behalf of 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com >
> *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 tio.adjie@ptssb.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
>
> 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.]
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (13) . Top ^

2c

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change

Mon Aug 14, 2017 9:06 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Maaf, salah menyimak Mr. Kid...tadi saya pikir baris di Worksheet (baris 1-4).Lagi2 menurut saya (mudah2an ga salah)...krn ga ada pilihan " " dalam Data Validationnya.Tetapi kalo usernya "nekat" menekan tombol Del....maka baris2 VBA yang berwarna kuning itu tidak boleh dihilangkan krn kalau dihilangkan kata yang tercantum dalam formatnya ("Jenis Fluida") ikut hilang. 
Salam,HK

On Tuesday, August 15, 2017, 10:35:50 AM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

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 hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 

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' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:

 

Kenapa ada baris di-non aktifkan ?

2017-08-14 15:07 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:

 

Hahaha...ternyata formatnya.Makasih Mr. Kid.
Salam,HK
On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > 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 hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:

 

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 tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com >To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >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: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com > on behalf of 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com >
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 tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com >:

 

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

 

 

.

Reply to sender . Reply to group . Reply via Web Post . All Messages (13) . Top ^

2d

Re: Fw: Re: [belajar-excel] Code VBA dengan Worksheet _Change [2 Att

Mon Aug 14, 2017 9:55 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

hehehehe...
gitu ya...
itu sebabnya mending di non-aktifkan ya...

kalau user mengetik nama saya 'Kid' gitu, apa terus ditanyakan oleh si
event change ? gak juga kan, karena sudah ditanyakan lebih dulu oleh si
data validation.
Jadi, alasan bahwa yang diisi user tidak ada dalam daftar tidak bisa
diterima.

cobe deh dilihat di data validation setting-nya.
disana, opsi ignore blank dicentang. itu sebabnya baris-baris yang di-non
aktifkan itu ditambahkan dan aktif.

kalau opsi ignore blank tidak dicentang, trus isian cells yang ada isinya
dihapus dengan backspase di formula bar, pasti sudah di-stop oleh si data
validation.
sedangkan kalau user tekan keyboard tombol delete atau klik kanan cells
pilih clear contents, diperbolehkan oleh data validation, sehingga cukup
tulis spasi di sebelahnya tanpa ada pertanyaan.

Susunan script menjadi :
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)
Application.EnableEvents = False
If Len(.Value) = 0 Then
rngSave.Value = " "
ElseIf .Value <> rngSave.Value Then
If MsgBox("Ganti isinya jadi '" & .Value & "' ?",
vbQuestion + vbOKCancel, .Offset(0, -1).Text) = vbOK Then
rngSave.Value = .Value
Else
.Value = rngSave.Value
End If
End If
Application.EnableEvents = True
End If
End If
End With
End Sub

Yang dilatar kuning adalah pengubahannya.
Blok IF yang di dalam blok IF Msgbox tinggal penulisan ke lokasi
penyimpanan nilai yang terakhir diisi user.
Baris set environment aplikasi berupa pengaturan on off event enable
dipendah ke luar, yaitu ke blok terdalam yang akan ada proses penulisan
nilai ke suatu cells agar event change tidak ter-trigger berulang kali (ini
yang dimasalahkan oleh mas Nang tempo hari).

So,
otomasi itu perlu disertai antisipasi perilaku user yang dapat diduga dan
bukan sekadar berdasar kewajaran SOP pengisian.
Pada contoh di atas sudah ada antisipasi perilaku user yang melakukan copy
paste atau copy paste values di banyak cells sekaligus,
tetapi belum ada antisipasi bila copas values sebuah nilai yang tidak ada
dalam daftar, juga ketika data validation dibuang (delete cells [bukan
Clear Contents]) atau delete atau insert entire row maupun entire column.
Kalau delete sheet sih jelas lah, gak usah diantisipasi karena si user
sedang emosi atau sedang gak sehat. Apalagi kalau delete workbook atau
delete MSOffice atau malah delete computer.

Untuk antisipasi yang lainnya (termasuk beberapa yang disebut di atas)
tidak disertakan karena pokok utama pada kasus ini adalah memunculkan
msgbox ketika isian cells berubah dan bisa me-roll back (auto meng-undo)
kalau user ingin membatalkannya.

Regards,
Kid

2017-08-15 11:06 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Maaf, salah menyimak Mr. Kid...tadi saya pikir baris di Worksheet (baris
> 1-4).
> Lagi2 menurut saya (mudah2an ga salah)...krn ga ada pilihan " " dalam Data
> Validationnya.
> Tetapi kalo usernya "nekat" menekan tombol Del....maka baris2 VBA yang
> berwarna kuning itu tidak boleh dihilangkan krn kalau dihilangkan kata yang
> tercantum dalam formatnya ("Jenis Fluida") ikut hilang.
>
> Salam,
> HK
>
>
> ------------------------------
> On Tuesday, August 15, 2017, 10:35:50 AM GMT+7, 'Mr. Kid'
> mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
>
> 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 hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> 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' mr.nmkid@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>
>
>
>
> Kenapa ada baris di-non aktifkan ?
>
>
> 2017-08-14 15:07 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
>
> Hahaha...ternyata formatnya.
> Makasih Mr. Kid.
>
> Salam,
> HK
>
> ------------------------------
> On Monday, August 14, 2017, 2:50:12 PM GMT+7, 'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com > 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 hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
>
> 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 tio.adjie@ptssb.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *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:* belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com > on
> behalf of 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com >
> *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 tio.adjie@ptssb.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
>
> 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.]
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (13) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use