精彩实用的十则VBA语句赏析

1 Range('A65536').End(xlUp).Row 单元格的选择

语句说明：返回A列最后一行(即记录的总条数)。

备注：等于A65535单元格向上，最后一个非空的单元格的行号。A65535单元格是03版本的EXCEL的最后一行单元格，从此单元格向上查找到非空的单元格，相当于：CTRL+向上的箭头。

2 ActiveCell.Row 行号的求出

语句说明：活动单元格所在的行号，ActiveCell.Column为活动单元格所在的列数，在写语句的时候经常会用到'活动''当前'，如活动单元格，当前单元格，活动工作表，当前工作表等，其实基本是一个意思，就是当前进行操作的工作表和单元格，主要用到ACTIVE。

3 ActiveWindow.ScrollRow = 2 滚轮的应用

语句说明：将当前工作表窗口滚动到第2行

备注：ActiveWindow是指文档的活动窗口。 ScrollRow是指活动窗口滚动条滚动到的位置，row是指行，Column 是指列。

4 ActiveWindow.ScrollColumn = 5 滚轮的应用

语句说明：将当前工作表窗口滚动到第5列

备注：ActiveWindow是指文档的活动窗口。 ScrollRow是指活动窗口滚动条滚动到的位置，row是指行，Column 是指列。

5 ActiveSheet.Cells(1, 1).Font.Bold = TRUE 字体的设置

语句说明：Bold属性用于设置字体是否为加粗， Size属性设置字体大小， ColorIndex属性设置字体颜色（其值为颜色索引号）， Italic属性设置字型是否为倾斜， Name属性设置字体名称

备注：单元格的属性有很多种，我们可以从代码窗口中获得，如下截图：

当我们录入RAGNE.后系统会自动的弹出属性窗口，再次录入'FO'后会弹出以FO为开头的属性。读者可以自己试试。

6 ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 颜色的设置

语句说明：将单元格的背景色设置为红色

备注：Interior.ColorIndex是单元格的颜色属性，这个值在我前面的文章中已经讲过了，这里不再多说。

7 IsEmpty (ActiveCell.Value) 单元格的判断

语句说明：判断活动单元格中是否有值

备注：Excel VBA中，IsEmpty函数是判断单元格是否为空的最好的方法，使用方法为IsEmpty（Cells(Row,Col)），当单元格为空时，返回True，否则返回False。需要注意的是IS函数在VBA中和EXCEL中是不同的。

8 ActiveCell.Value = UCase(ActiveCell.Value) 大小写的转换

语句说明：将当前单元格中的字符转换成大写

备注：Ucase()是VB中的一个函数，函数作用是将一个字符串中的小写字母转化为大写字母，而不对其中的数字，大写字母进行处理，其中的字母U是英文单词Uppercase(中文意思为大写字母)的第一个字母。

9 ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) 大小写的转换

语句说明：将活动单元格中的字符串转换成小写

备注：

StrConv 函数,返回一个variant 类型的值（字符串）转换为指定。

语法StrConv（字符串，转换，LCID ）

StrConv函数语法具有下面这些命名参数：vbUpperCase 将字符串转换为大写字符； vbLowerCase 将字符串转换为小写字符；vbProperCase ；将字符串中每个词的第一个字母转换为大写； vbWide 将字符串中的窄（单字节）字符转换为宽（双字节）字符；vbNarrow 将字符串中的宽（双字节）字符转换为窄（单字节）字符。

10 Range('A1:D8').Copy Range('H1') 单元格的复制

语句说明：将指定单元格区域复制到从H1开始的区域中，用Cut方法可以实现剪切操作

备注：单元格的复制粘贴方法。

今日内容回向：

1 单元格的属性有哪些？

2 活动单元格的意义是什么？

3 用单元格的属性如何设置字体的颜色？