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*
