Chapter VBA | VBA004 取得啟用中的儲存格位址 |
Section |
如果目前最前方的表為工作表,而非圖表、表單等等…,就回傳回作用中單一儲存格的絕對位址,若目前選擇了工作表以外的物件,而無法取得啟用中的儲存格的話,就會傳回相對應的訊息。
請注意Selection 性質並不一定會傳回Range物件。
Sub Sample4() Dim myRng As Range ‘設定一個變數名為myrng是範圍類型 On Error Resume Next ‘當錯誤不存在時,執行下一個動作 Set myRng = ActiveCell ‘設定myRng為目前儲存格位址 On Error Goto 0 ‘當錯誤時前往第0行程式 If myRng Is Nothing then ‘如果目前是物件的釋放則執行下列動作 Msgbox “無法取得ActiveCell” ‘顯示無法取得ActiveCell Else MsgBox myRng.Address ‘在對話方塊中顯示目前儲存格位址 End If Set myRng = Nothing ‘物件的釋放 End Sub |
開啟一個空白活頁簿。
按ALT+F11鍵,開啟並切換到VBA編輯器。
點取「插入 > 模組」指令。
輸入如下圖所示的程式碼(‘後面的說明文字可視需求決定是否要輸入)
關閉VBA編輯器視窗。
當我們框選A1~C5儲存格再執行SAMPLE4巨集,則會出現如下圖對話方塊,只顯示框選範圍左上角儲存格位址(A1)。
如果我們只有選取一個儲存格(A1)再執行SAMPLE4巨集,則會出現如下圖對話方塊。
若是我們在第一張工作表中框選圖片再執行SAMPLE4巨集,則會出現對話方塊只顯示工作表中左上角儲存格位址(A1),如下圖所示。
如果活頁簿第一張表不是工作表時,再執行SAMPLE4巨集則會出現如下圖對話方塊。
留言列表