|
以下のマクロでMsgBoxにCancelボタンを付けたのですが、このCancelボタンを有効にする方法ができません。どなたか教えていただければ・・・・・
-------------------------------------------------------------------------------
Sub ○の行をクリアー()
MsgBox "不要になったデータを削除します。", vbOKCancel + vbExclamation, "不要データ削除"
Dim RR As Long, r1 As Range
With ActiveSheet
For RR = 3 To 50
If .Cells(RR, 19).Value = "○" Then
On Error Resume Next
Set r1 = .Rows(RR).SpecialCells(xlCellTypeConstants)
If Not r1 Is Nothing Then r1.ClearContents
On Error GoTo 0
Set r1 = Nothing
End If
Next
End With
End Sub
|
|