| 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巨集則會出現如下圖對話方塊。
留言列表
光華商職 (2)
