Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then If Target.Column = 4 Then If Target.Row > 5 Then If Target.Value < 0 Then MsgBox "Warning.... Cell " + Target.Address(0, 0) + " bernilai negatip !! ", 48, "Pengumuman" End If End If End If End If End Sub
2011/4/29 Senja Laura <[email protected]> > Dear kang,mbak... > Bagaimana cara bikin macronya apabila di kolom D ini menunjukkan kurang > dari 0 maka akan keluar pesan box bahwa nilai sudah kurang (kalo bisa dalam > bentuk kedap-kedip).. > terima kasih ya... > > Thanks > Laura > >
ctv_msgbox.xls
Description: MS-Excel spreadsheet
