close

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編輯器。

點取「插入 > 模組」指令。

輸入如下圖所示的程式碼(‘後面的說明文字可視需求決定是否要輸入)

image

關閉VBA編輯器視窗。

當我們框選A1~C5儲存格再執行SAMPLE4巨集,則會出現如下圖對話方塊,只顯示框選範圍左上角儲存格位址(A1)

image

如果我們只有選取一個儲存格(A1)再執行SAMPLE4巨集,則會出現如下圖對話方塊。

image

若是我們在第一張工作表中框選圖片再執行SAMPLE4巨集,則會出現對話方塊只顯示工作表中左上角儲存格位址(A1),如下圖所示。

image

如果活頁簿第一張表不是工作表時,再執行SAMPLE4巨集則會出現如下圖對話方塊。

image


arrow
arrow
    創作者介紹

    錦子老師 發表在 痞客邦 留言(0) 人氣()