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

今天将继续给大家分享VBA中的一些常用语句,希望有学习VBA的朋友要仔细的理解掌握,对于自己的工作会帮助很大,这些语句是我从众多的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属性设置字体名称

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

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

当我们录入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 用单元格的属性如何设置字体的颜色?


分享到:


相關文章: