如何在执行一个宏之前先弹出一个"确定"与"取消"对话框

向中级进发

各们大侠, 有一个小小问题在附件中向大家请教
VBA问题.rar (6.38 KB, 下载次数: 34)

2009-6-25 19:46 上传

点击文件名下载附件

谢谢!

guzhen9315

Sub 取消凸显欠货欠款订单()

    M_ask = MsgBox(" 确实要取消凸出显示吗? ", vbOKCancel)

    If M_ask = 1 Then
       If ActiveCell.Column = 7 Then
          Selection.FormatConditions.Delete
          ActiveCell.Offset(0, 10).FormatConditions.Delete
       End If

       MsgBox ("已经取消凸出显示!")
    Else
       MsgBox ("没有取消凸出显示!")
    End If

End Sub

向中级进发

原帖由 guzhen9315 于 2009-6-25 19:57 发表
Sub 取消凸显欠货欠款订单()

    M_ask = MsgBox(" 确实要取消凸出显示吗? ", vbOKCancel)

    If M_ask = 1 Then
       If ActiveCell.Column = 7 Then
          Selection.FormatConditions.Delete
  ...

非常感谢谢! 受你启发, 更改了一下使用习惯
Sub 取消凸显欠货欠款订单()

If ActiveCell.Column <> 7 Then
        MsgBox ("必须选中其中一个单号!")
    Else
   
    M_ask = MsgBox(" 确实要取消凸出显示吗? ", vbOKCancel)

        If M_ask = 1 Then

            If ActiveCell.Column = 7 Then
                Selection.FormatConditions.Delete
                 ActiveCell.Offset(0, 10).FormatConditions.Delete

            End If

            MsgBox ("已经取消凸出显示!")

        End If
        
End If

End Sub