今日給大家繼續講解實用的VBA代碼之七，這系列文章裡會給喜歡VBA的朋友們詳細地講解常見的一些語句，用來操作EXCEL，讓你的工作自動化，實現自動化辦公的要求。
1 ActiveCell.Row
語句說明：執行上述代碼後，變量值返回活動單元格所在的行數
ActiveCell.Column
語句說明：執行上述代碼後，變量值返回活動單元格所在的列數
備註：ROW和COLUMN是行和列的意思。
2 Range("A1:B1").HorizontalAlignment = xlLeft
語句說明：執行上述代碼後，當前工作表中的單元格區域數據設置為左對齊
備註：xlGeneral 標準對齊；xlLeft 靠左；xlCenter 中央；xlRight 靠右
3 rng.Replace " ","0"
語句說明：執行上述代碼後，用0替換單元格區域中的空單元格
備註：replace 這裡視作一個屬性來設置，如下：
4 Beep
語句說明：執行上述代碼後，讓計算機發出聲音
備註：Beep 函數通過計算機的揚聲器發出聲響, 聲響的音調與持續時間取決於硬件和系統軟件，因此隨計算機不同而不同。可以利用此函數發出更多的聲音，可以參考專用的資料，一般情況下，只是作為提示音。
5 ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
語句說明：執行上述代碼後，將當前工作簿設置為只讀
備註：xlReadOnly 是隻讀的意思。
6 ActiveSheet.Protect userinterfaceonly:=True
語句說明：執行上述代碼後，保護當前工作表
7 Rows(2).Delete
語句說明：執行上述代碼後，刪除當前工作表中的第2行
Columns(2).Delete
語句說明：執行上述代碼後，刪除當前工作表中的第2列
備註：行和列的刪除是上面的通用語句，如果是幾行或者幾列，可以用"3:4"的書寫格式
8 ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, EndY:=100).Select
語句說明：執行上述代碼後，在當前工作表中以(10,10)為起點(250,100)為終點畫一條直線並選中
備註：此語句是自定義圖形的實現。
9 ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, Left:=70, Top:=40, Width:=130, Height:=72).Select
語句說明：執行上述代碼後，在當前工作表中畫一個以點(70,40)為起點,寬130高72的矩形並選中
備註：此語句是自定義圖形的實現。
10 ActiveSheet.Shapes.AddShape(Type:=msoShapeOval,Left:=70, Top:=40, Width:=130, Height:=72).Select
語句說明：執行上述代碼後，在當前工作表中畫一個左上角在(70,40),寬為130高為72的橢圓
備註：此語句是自定義圖形的實現。
今日內容迴向：
1.如何獲得選中單元格的行列值。
2.如何刪除選中的行列？
3.如何實現系統的聲響？
4.如何自定義畫圖？
閱讀更多 VBA專家 的文章
