sylvester-ponte
Verenigingslid
- Lid geworden
- 19 apr 2007
- Berichten
- 6.550
Code:
Sub test()
Dim A, B, D1, D2
Set D1 = CreateObject("scripting.dictionary")
ReDim A(2, 3)
A(1, 2) = 5
B = A 'hier wordt B een copy van A
B(1, 2) = 4
temp = A(1, 2) - B(1, 2) 'temp = nu 1 , dus dit werkt
'nu de dictionary
D1(2) = "twee"
D2 = D1 ' hier gaat het mis, kan dit eenvoudig zonder loop?
End Sub
Bijlagen
Laatst bewerkt: