2013-01-15 15:24:03小欽仔

VBA範例-757種之1(A-001)

A-001(Range物件)

取得已選擇之儲存格範圍

程式碼如下:

Option Explicit
Sub A_Sample001()
    Dim myRng As Range
    If TypeName(Selection) = "Range" Then
        Set myRng = Selection
        MsgBox myRng.Address    '顯示位址
    Else
        MsgBox "沒有選擇儲存格"  '選擇儲存格之外的物件時的訊息
    End If
    Set myRng = Nothing  '釋放物件
End Sub