NO.1
Excel表格查找有一个Find方法,此方法是针对单元格值进行条件查找,那么有这样一种需求:要查找为空单元格,或者包含有公式的单元格,如何来进行。
既然有需求,那么就会有方法,这就是Excel强大的一个体现。
接下来介绍一个方法,直接查找相关条件的单元格出来。
NO.2
想要完成上述功能,用到Range对象的SpecialCells方法。
具体语法和参数如下图介绍:
图中已经说明很清楚,以什么样的条件进行查找,返回是一个Range对象。
也就是说找到之后,对Range这个对象进行处理就可以达到我们的目的。
比如找出A1:C100区域内空的单元格,然后设置背景颜色为红色。
Dim R as Range
set R=Range("A1:C100").SpecialCells xlCellTypeBlanks
With R
.Interior.Color = RGB(222, 1, 1)
Wnd With
NO.3
有空上方法来操作,那么对一些特殊表格进行的操作就显得相对简单了。
下面做了一个简单例子,对不同条件进行查找。
其实这个例子没有给出特定需要,所以做了一个下拉框,把所有可选择的条件都加进去,可以任意选择。
本例也没有实际使用意义,我只抛砖,能不能引来玉,因人而异了。
代码如下 :
Private Sub CommandButton1_Click()
Dim xType As Variant
xType = Me.ComboBox1.Value
Dim R As Range
If VBA.Len(xType) = 0 Then Exit Sub
With Selection
Set R = .SpecialCells(xType, xlTextValues)
If R Is Nothing Then Exit Sub
With R
MsgBox "数据区域:" & .Address
End With
End With
End Sub
NO.4
Excel重点解决二维表问题,这方面给我们提供了许多方便使用的方法,简单来讲,只需要保持一种拿来主义就可以,完全可以达到自己的。
但是这也是一种没办法改变的现实,VBA已经超出二维表的一些基本功能,达到了一种超级万能的境界。所以,拿来主义也只是一种浮浅的学习阶段,如果有必要,还是掌握一些VBA基础功能如何进行处理,无论什么软件,都离不开构建代码的方法,如果对方法有深入理解,那么在进一步操作应用的时候,就简单多了。
---END---
欢迎关注、收藏
