Terima kasih atas koreksinya. Bahkan kalau mau lebih disiplin lagi (sesuai petunjuk Bu Siti Vi) pakai Option Explicit di atas Private Sub ..., sehingga jika ada Variable yang belum dideklarasikan akan tampak pesan "Compile Error, Variable Not Defined"
Salam, Hendrik Karnadi ________________________________ From: Rara Wilis <[email protected]> To: [email protected] Sent: Wednesday, 21 March 2012, 12:00 Subject: Re: [belajar-excel] Message box Ok Cancel Mohon maaf, hanya ingin menambah setitik dari makro pak Karnadi yg sudah oke.. Kita akan lebih baik membiasakan hal-hal kecil sejak menghadapi kasus-kasus kecil misalnya menuliskan DEKLARASI Variable, sebelum variable digunakan. Hal ini sangat berpengaruh terhadap kecepatan program, terutama akan sangat terasa kelak jika kita membuat proyek2 besar Variable Jawab, sebelum digunakan dapat dideklarasikan sbb Private Sub Worksheet_Change(ByVal Target As Range) Dim Jawab As Long ' atau jika tak tahu type nya 'Dim Jawab ' ( as Variant) If Target = Cells(1) Then If Target <> vbNullString Then Jawab = MsgBox("Pilih Ok atau Cancel ??", vbOKCancel, "Pilih Salah satu !!") If Jawab = vbOK Then Target(1, 2).Value = "Good Job" Else Target(1, 2).Value = vbNullString End If End If End If End Sub '--------- MsgBox Return Values Constant Value Description vbOK 1 OK button pressed vbCancel 2 Cancel button pressed vbAbort 3 Abort button pressed vbRetry 4 Retry button pressed vbIgnore 5 Ignore button pressed vbYes 6 Yes button pressed vbNo 7 No button pressed CMIIW On Wed, Mar 21, 2012 at 11:37 AM, hendrik karnadi <[email protected]> wrote: >Coba yang ini, apakah sudah sesuai harapan. >Salam, >Hendrik Karnadi > > ________________________________ From: Kurei recca <[email protected]> Sent: Wednesday, 21 March 2012, 10:51 Salam Para Master excel, Saya sedang membuat suatu coding dengan vba macro, tetapi saya kesulitan dalam membuat messagebox yang menggunakan Ok cancel,, Kondisi yang saya inginkan adalah ketika muncul message box dan keluar pilihan "OK" atau "Cancel" akan keluar suatu process jika memilih salah satu. Misal dalam kasus ini adalah : Jika saya memilih "Ok" maka akan keluar kalimat "Good Job" di B1, Untuk lebih jelasnya saya lampirkan filenya,, terimakasih Ridwan
