学习VBA，报表做到飞 第一章 入门篇 1.21 specialcells语句

第一章 入门篇

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