VBA实用代码赏析之八:页面、日期函数及选择的操作

今日给大家讲解实用的VBA代码之八，在这一系列的文章里，我会给喜欢VBA的朋友们详细的讲解一些常见的语句，用来操作EXCEL，让我们的工作自动化，实现自动化办公的目的。大家可以了解到平时EXCEL中的一些操作，都可以在VBA中实现。

1 ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell

语句说明：执行上述代码后，在当前单元格左侧插入一条垂直分页符。

ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell

语句说明：执行上述代码后，在当前单元格上方插入一条垂直分页符。

备注:分页符在VBA中的利用。

代码如下：

如果在下面的页面中运行代码：

返回的结果如下：

这样就增加了一行分页符。

2 ActiveWindow.ScrollRow = 14

语句说明：执行上述代码后，将当前工作表窗口滚动到第14行

ActiveWindow.ScrollColumn = 13

语句说明：执行上述代码后，将当前工作表窗口滚动到第13列

备注:相当于滚轮的利用。

3 ActiveCell.Value = UCase(ActiveCell.Value)

语句说明：执行上述代码后，将当前单元格中的字符转换成大写

备注：大小写在VBA中的利用

4 ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase)

语句说明：执行上述代码后，将活动单元格中的字符串转换成小写

备注：大小写在VBA中的利用

5 MsgBox WeekdayName(Weekday(Date))

语句说明：执行上述代码后，获取今天的星期数

备注：MSGBOX是人机对话函数，这里是获取日期函数

6 ActiveCell.Value = Year(Date)

语句说明：执行上述代码后，在当前单元格中输入今年的年份数

备注:YEAR函数即是VBA函数，又是EXCEL函数。

ActiveCell.Value = Month(Date)

语句说明：执行上述代码后，在当前单元格中输入今天所在的月份数

备注: Month函数即是VBA函数，又是EXCEL函数。

ActiveCell.Value = Day(Date)

语句说明：执行上述代码后，在当前单元格中输入今天的日期数

备注: Day函数即是VBA函数，又是EXCEL函数。

7 ActiveCell.Value = Hour(Time)

语句说明：执行上述代码后，在当前单元格中显示现在时间的小时数

备注: Hour函数即是VBA函数，又是EXCEL函数。TIME函数也是一样。

ActiveCell.Value = Minute(Time)

语句说明：执行上述代码后，在当前单元格中显示现在时间的分钟数

备注: Minute函数即是VBA函数，又是EXCEL函数。TIME函数也是一样。

ActiveCell.Value = Second(Time)

语句说明：执行上述代码后，在当前单元格中显示现在时间的秒数

备注: Second函数即是VBA函数，又是EXCEL函数。TIME函数也是一样。

8 ThisWorkbook.Activate

语句说明： 执行上述代码后，选择当前活动的工作簿:

备注： Activate 是活动的意思，也是当前的意思。

Windows("Totol.xls").Activate

语句说明： 执行上述代码后，如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀".xls" ，例如： 选择一个工作表Sheets("BAC").Activate.

备注： Activate 是活动的意思，也是当前的意思。也可以用SELECT

9 Range("A1").Select

语句说明： 执行上述代码后，选择单元格：

备注：选择一个单元格

Range("A1:G8").Select

语句说明： 执行上述代码后，选择连续的单元格：

备注：选择多个连续单元格

Range("A1,B6,D9").Select

语句说明： 执行上述代码后，选择不连续的单元格：

备注：选择多个不连续单元格

Range("A1,B6:B10,D9").Select

语句说明： 执行上述代码后，选择不连续的单元格：

备注：选择多个不连续或者连续的单元格

今日内容回向：

1 如何增加分页符。

2 选择有几种方式？

3 日期函数在VBA中是如何利用的？