今日给大家讲解实用的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中是如何利用的？
閱讀更多 VBA專家 的文章
