第一章 入门篇
1.21 specialcells语句
specialcells语句的功能相当于Excel菜单里的“定位”。该语句的语法是这样的:
Range('要定位的区域').SpecialCells(Type,Value)
Type 必选 指定单元格的类型
Type类型
简写:2,含有常量的单元格
简写:-4123,含有公式的单元格
简写:-4144,含有批注的单元格
简写:4,空单元格
简写:12,所有可见单元格
简写:11,所用区域中的最后一个单元格
简写:-4172,任意格式的单元格
简写:-4174,含有验证条件的单元格
简写:-4173,含有相同格式的单元格
简写:-4175,含有相同验证条件的单元格
Value Type为2或-4123时可选,也就是Excel菜单里定位时选择常量或公式,下面复选框里列出的4种数据类型。
Value类型
简写:1,有数值的单元格
简写:2,有文本的单元格
简写:4,有逻辑值的单元格
简写:16,有错误的单元格
例句:
Range('b2:f10').specialcells(2, 1).Select '定位区域中含有常量-数字的单元格
Range('f2:h10').specialcells(4).Select '定位区域中为空格的单元格
Range('f2:h10').specialcells(-4123).Select '定位区域中含有公式的单元格
小程序:
1、把下表中的空白单元格删除掉:
卡片号 | 资产名称 | 建卡 | 原值 | 净值 |
00007933 | 空调 | 2007-12-31 | 498720.00 | 14961.60 |
00012189 | 音响设备 | 2007-12-31 | 12420.00 | 372.60 |
00072375 | 监控设备 | 2013-12-28 | 16986.00 | 509.58 |
00014439 | 空调 | 2008-06-11 | 6800.00 | 204.00 |
00072448 | 空调 | 2013-12-28 | 6405.00 | 192.15 |
Sub specialcells()
Range('a1:e9').specialcells(4).Delete
End Sub
2、把下表的空白单元格注释为“缺考”。
科目 | 语文 | 数学 | 英语 | 美术 | 体育 |
A同学 | 76 | 92 | 72 | 35 | |
B同学 | 80 | 45 | 58 | 42 | |
C同学 | 57 | 96 | 23 | 60 | 50 |
D同学 | 96 | 25 | 43 | 63 | |
E同学 | 60 | 51 | 75 | 50 | |
F同学 | 36 | 86 | 36 | 96 | 22 |
G同学 | 27 | 22 | 65 | 70 | 82 |
H同学 | 94 | 64 | 100 | 87 | |
I同学 | 25 | 92 | 95 | 57 | |
J同学 | 76 | 39 | 45 | 66 | 50 |
K同学 | 30 | 32 | 82 | 58 | |
L同学 | 66 | 85 | 81 | 59 | |
M同学 | 43 | 92 | 59 | 95 | |
N同学 | 71 | 38 | 58 | 45 | 53 |
O同学 | 44 | 50 | 63 | 72 | 90 |
Sub specialcells()
Set 空白 = Range('a1')
.CurrentRegion.specialcells(4)
For Each s In 空白
s.AddComment '缺考' '为循环到的单元格加上批注“缺考”
s.Comment.Shape.TextFrame.AutoSize = True '批注的文本框自动调节大小
s.Comment.Visible = True '把批注内容显示出来
Next
End Sub
联系客服