實用的VBA程式碼講解之七：行、列、聲音及自定義圖形的操作

今日和大家繼續分享實用的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畫圖？