如果我的工作表有无效的数据触发对话框

我用macroslogging器发现ActiveSheet.CircleInvalid圈出任何不符合单元格数据validation条件的数据。 我把macros连接到一个表单控件; 到目前为止我有：

Sub datavalidationcheck() ActiveSheet.CircleInvalid '//Add if there are invalid cells being circled then prompt user with dialog box '//else Application.Dialogs(xlDialogSendMail).Show End Sub 

我希望找出如何使一个对话框出现，要求用户修复无效的数据。 注释掉的东西是我想要完成的伪代码。

谢谢

Answer 1

这是一个想法，这是基于无效数据周围的工作表上的实际形状的事实：

 Sub Invalid() Dim ws As Excel.Worksheet Dim cell As Excel.Range Dim ShapesBefore As Long Dim ShapesAfter As Long Set ws = ActiveSheet Set cell = ActiveCell With ws .ClearCircles ShapesBefore = ws.Shapes.Count .CircleInvalid ShapesAfter = ws.Shapes.Count If ShapesAfter > ShapesBefore Then MsgBox "Invalid Circles displayed" End If End With End Sub