VBA实用语句讲解

在VBA语句中，如何把自己的需求变成语句描述，并交给计算机去执行，是我们需要实现的目的，在众多的实例中我精选了一些语句，分几讲给大家介绍。今日给大家讲的仍是单元格的操作，包括选择、计数、移动、复制等。

1 ActiveWindow.RangeSelection.Count 单元格计数

语句说明：完成活动窗口中选择的单元格计数

备注：ActiveWindow是指当前活动的窗口

2 Selection.Count单元格计数

语句说明：完成当前选中区域的单元格计数

备注：Selection是指选择的区域和SELECT不同，这和英语的意义相同，SELECT是指选择的动作，而Selection是指选择动作后形成的选择的区域，是名词。

3 TextColor=Range(“A1”).Font.ColorIndex 颜色值的属性

语句说明：检查单元格A1的文本颜色并返回颜色索引

备注：ColorIndex是指颜色的代码，每种颜色都有自己的代码。如下面的截图：

4 Range(“A1”).Interior.ColorIndex 颜色值的属性

语句说明：获取单元格A1背景色

备注：Interior.ColorIndex 是RANGE的属性

5 cells.count 单元格计数

语句说明：返回当前工作表的单元格数

备注：

a)可以求整个工作表的单元格个数

b)单元格可以使用以下3中表示方法Range("B" & i )；Cells( i , 2 ) ；Cells( i , "B")，当列号较大、不易计算时，如“H"、”AD"，我们可以直接用双引号加列标作为第二参数。

对单元格访问，速度最快的的是 Cells(1,1) ,其次是 Range("A1"), 最慢是 [A1]，Cells() 快于Range()， Range()快于 []，因此多循环中建议使用Cells()。

c) Range、Cells都可以表达单元格/区域，Range 中文意思是“区域”，Cells 中文意思是“单元(格)”，所以，单独用Cells()只能表示某个单元格，而不能表示一个区域。

d) Range是可以兼容Cells的表达方式，但Range更倾向于区域有“固定”因素时使用，当代码里要使用行、列参数都是变量的单元格时，最好的选择用Cells()。所以我们要适时选择其一，或者用Range(Cells(),Cells())的联合方式，总之让自己方便，让代码高效。

e).Value是Range的默认属性，可以省略，我们没有明确指定时，编译时就需要进行“自动类型适应”的过程，如果过程进行不下去，就会有错误发生，如：i = Range("A1") 或 Range("A1") = 256，因为有一种“默认”及“适应”性，所以不会把A1的 Address属性 ($A$1) 赋给 i ，也不会把256 赋给A1的Height属性，而是赋给了.Value。但有时会报错：如运行Sheets(Range("A1")).Delete系统会报错；而Sheets(CStr(Range("A1"))).Delete，结果又怎么样呢？答案是：正常运行！

6 Selection.Columns.Count 列数

语句说明：当前选中的单元格区域中的列数

备注：Columns是指列数

7 Selection.Rows.Count 行数

语句说明：当前选中的单元格区域中的行数

备注：Rows是指行数

8 Selection.Areas.Count 区域数

语句说明：选中的单元格区域所包含的区域数

备注：Areas是指区域。

9 Range(“A1”).Copy Range(“B1”) 复制的方法

语句说明：复制单元格A1，粘贴到单元格B1中

备注：直接完成复制和粘贴。

今日内容回向：

1 颜色属性的代码是什么？

2 Range和Cells用什么不同？

3 VALUE 属性有什么时候可以省略？