E
Enrique Bustamante
I am missing something here. Could somebody please look at the
following code an explain me why this behavior? ( I modified an
example posted by Chip Pearson one year ago Subject "Re: vatPtr &
objPtr", address:
http://www.google.com.au/groups?q=o...TF-8&selm=usI5XmTcCHA.2556@tkmsftngp09&rnum=1
)
Sub AAA()
Dim BaseVar As Long
Dim Rng As Range
Set Rng = Range("A1")
Debug.Print "AAA 1: BaseVar: " & VarPtr(BaseVar)
Debug.Print "AAA 1: VarPtr: " & VarPtr(Rng), "ObjPtr: " &
ObjPtr(Rng)
BBB Rng
Debug.Print "AAA 2: VarPtr: " & VarPtr(Rng), "ObjPtr: " &
ObjPtr(Rng)
Dim rng2 As Range
'new variable pointing to the same range than variable rng"
Set rng2 = Range("A1")
Debug.Print "AAA 3: VarPtr: " & VarPtr(rng2), "ObjPtr: " &
ObjPtr(rng2) & " <--why this one does not return the same address?"
Dim rng3 As Range
Set rng3 = Rng
Debug.Print "AAA 4: VarPtr: " & VarPtr(rng3), "ObjPtr: " &
ObjPtr(rng3) & " <--this one does as expected"
End Sub
Sub BBB(ByVal r As Range)
Debug.Print "BBB 1: VarPtr: " & VarPtr(r), "ObjPtr: " & ObjPtr(r)
Set r = Nothing
Debug.Print "BBB 2: VarPtr: " & VarPtr(r), "ObjPtr: " & ObjPtr(r)
End Sub
following code an explain me why this behavior? ( I modified an
example posted by Chip Pearson one year ago Subject "Re: vatPtr &
objPtr", address:
http://www.google.com.au/groups?q=o...TF-8&selm=usI5XmTcCHA.2556@tkmsftngp09&rnum=1
)
Sub AAA()
Dim BaseVar As Long
Dim Rng As Range
Set Rng = Range("A1")
Debug.Print "AAA 1: BaseVar: " & VarPtr(BaseVar)
Debug.Print "AAA 1: VarPtr: " & VarPtr(Rng), "ObjPtr: " &
ObjPtr(Rng)
BBB Rng
Debug.Print "AAA 2: VarPtr: " & VarPtr(Rng), "ObjPtr: " &
ObjPtr(Rng)
Dim rng2 As Range
'new variable pointing to the same range than variable rng"
Set rng2 = Range("A1")
Debug.Print "AAA 3: VarPtr: " & VarPtr(rng2), "ObjPtr: " &
ObjPtr(rng2) & " <--why this one does not return the same address?"
Dim rng3 As Range
Set rng3 = Rng
Debug.Print "AAA 4: VarPtr: " & VarPtr(rng3), "ObjPtr: " &
ObjPtr(rng3) & " <--this one does as expected"
End Sub
Sub BBB(ByVal r As Range)
Debug.Print "BBB 1: VarPtr: " & VarPtr(r), "ObjPtr: " & ObjPtr(r)
Set r = Nothing
Debug.Print "BBB 2: VarPtr: " & VarPtr(r), "ObjPtr: " & ObjPtr(r)
End Sub