empty

今天將繼續給大家分享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屬性設置字體名稱

備注：單元格的屬性有很多種，我們可以從代碼窗口中獲得，如下截圖：

當我們錄入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，否則返回Fal。需要注意的是IS函數在VBA中和EXCEL中是不同的。

8 ActiveCell.Value = UCa(ActiveCell.Value) 大小寫的轉換

語句說明：將當前單元格中的字符轉換成大寫

備注：Uca()是VB中的一個函數，函數作用是將一個字符串中的小寫字母轉化為大寫字母，而不對其中的數字，大寫字母進行處理，其中的字母U是英文單詞Upperca(中文意思為大寫字母)的第一個字母。

9 ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCa) 大小寫的轉換

語句說明：將活動單元格中的字符串轉換成小寫

備注：

StrConv 函數,返回一個variant 類型的值（字符串）轉換為指定。

語法StrConv（字符串，轉換，LCID ）

StrConv函數語法具有下面這些命名參數：vbUpperCa 將字符串轉換為大寫字符； vbLowerCa 將字符串轉換為小寫字符；vbProperCa ；將字符串中每個詞的第一個字母轉換為大寫； vbWide 將字符串中的窄（單字節）字符轉換為寬（雙字節）字符；vbNarrow 將字符串中的寬（雙字節）字符轉換為窄（單字節）字符。

10 Range("A1:D8").Copy Range("H1") 單元格的復制

語句說明：將指定單元格區域復制到從H1開始的區域中，用Cut方法可以實現剪切操作

備注：單元格的復制粘貼方法。

今日內容回向：

1 單元格的屬性有哪些？

2 活動單元格的意義是什么？

3 用單元格的屬性如何設置字體的顏色？