close

Chapter VBA

VBA003 取得己選取之儲存格範圍

Section

如果目前所選擇的物件是儲存格，那麼會傳回其絕對位置，若是選擇儲存格以外(Shaps物件等)的物件時就會傳回相對應的訊息。

請注意Selection 性質並不一定會傳回Range物件。

Sub Sample3()

   Dim myrng As Range                    ‘設定一個變數名為myrng是範圍類型

    If TypeName(Selection) = "range" Then  ‘如果目前工作狀態為範圍則執行下列動作

        Set myrng = Selection              ‘設定myrng變數等於目前工作狀態

        MsgBox myrng.Address            ‘在對話方塊中顯示目前框選範圍位址

    Else

        MsgBox "沒有選擇儲存格”           ‘沒有選擇儲存格時會出現訊息對話方塊

    End If

    Set myrng = Nothing                   ‘物件的釋放

End Sub

開啟一個空白活頁簿。

按ALT+F11鍵，開啟並切換到VBA編輯器。

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

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

image

關閉VBA編輯器視窗。

當我們框選A1~C5儲存格再執行SAMPLE3巨集，則會出現如下圖對話方塊。

image

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

image

如果我們沒有框選任何範圍而是點選其他類型物件，則會出現如下圖對話方塊。

image


arrow
arrow
    文章標籤
    物件 方塊 vba msgbox selection 範圍 編輯器 巨集 shaps sub 變數 set
    全站熱搜
    創作者介紹
    創作者 錦子老師 的頭像
    錦子老師

    錦子老師

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

    E-mail轉寄