2013-01-15 15:27:05小欽仔
VBA範例-757種之2(A-002)
A-002(Range物件)
取得啟用中的儲存格
程式碼如下:
Option Explicit
Sub A_Sample002()
Dim myRng As Range
On Error Resume Next
Set myRng = ActiveCell
On Error GoTo 0
If myRng Is Nothing Then
MsgBox "無法取得ActiveCell" '選擇儲存格之外的物件時的訊息
Else
MsgBox myRng.Address '顯示位址
End If
Set myRng = Nothing '釋放物件
End Sub