Function ShowErro(rag As Range)
If rag.Value = Null Then
Return
End If
If (MsgBox("输入错误", vbRetryCancel) = vbCancel) Then
rag.value = Null//我想点取消是把单元格清空,没有实现
End If
End Function
...全文
19872打赏收藏
Excel vba 如何给单元格赋值
Function ShowErro(rag As Range) If rag.Value = Null Then Return End If If (MsgBox("输入错误", vbRetryCancel) = vbCancel) Then rag.value = Null//我想点取消是把单元格清空,没有实现 End If End Function