EXCEL之圈释无效数据

EXCEL的圈释无效数据功能可以快速的将单元格以红色外框标识出来，是一种比较方便的标识工具。

例如：原数据是一组0~99之间的随机数.

有两种方法进行所需单元格的标识：

1.用Office自带条件格式进行标识

1.a:设置需要标识的条件格式

1.b:选择圈释无效数据(CircleInvalid)

2.用自定义宏进行选择单行格的标识

2.a:选择所需要标识的单元格

2.b:运行宏进行单元格标识

总体来说，CircleInvalid是一种快速标识出单元格的方法。但因为这个是Worksheet层级的方法，使用起来还是不太方便。

用单元格背景色更加的方便灵活，但CircleInvalid也提供了另外一种思路来标识出数据。

具体VBA代码如下，也可以从下面地址下载原始EXCEL文件。

https://pan.baidu.com/s/1BO7SIJSCIpq5DMIpKsIbtg

Dim TheCircledCell As Range

Sub Mark_Circle()

Dim r As Range

Dim rng

rng = Selection

For Each r In Selection

CircleCells r

Next r

CircleInvalid

End Sub

Sub Clear_Circle()

Dim r As Range

Dim rng

rng = Selection

For Each r In Selection

ClearCircle r

Next r

End Sub

Sub CircleCells(CellToCircle As Range)

If Not CellToCircle Is Nothing Then

With CellToCircle

If .Count > 1 Then Exit Sub

Set TheCircledCell = CellToCircle

.Validation.Delete

.Validation.Add xlValidateTextLength, xlValidAlertInformation, xlEqual, 2147483647#

.Validation.IgnoreBlank = False

.Parent.CircleInvalid

End With

End If

End Sub

Sub ClearCircle(CellToCircle As Range)

If Not CellToCircle Is Nothing Then

With CellToCircle

.Validation.Delete

.Parent.ClearCircles

End With

End If

End Sub