今日給大家講解實用的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專家 的文章
