我用set把一个数组的内容赋值给另一个数组，为什么一旦一个改变另一个也改变？

aman1516

试了下，其他不会，字典果然如此

1. 
   
2. Public arr, brr, crr, rng As Range, ran As Range
   
3. Public d, dd
   
4. Sub settest()
   
5. arr = Range("B2:C3").Value
   
6. Set rng = Range("B2:C3")
   
7. Let brr = arr
   
8. Set ran = rng
   
9. arr = Range("B6:C7").Value
   
10. Set rng = Range("B6:C7")
    
11. MsgBox brr(1, 1)
    
12. MsgBox ran.Address
    
13. End Sub
    
14. Sub test()
    
15. Dim i%, ar, br
    
16. Set d = CreateObject("scripting.dictionary")
    
17. Set dd = CreateObject("scripting.dictionary")
    
18. ar = Array("张三", "李四", "王五", "赵六", "韩七")
    
19. br = Array("张三三", "李四四", "王五五", "赵六六", "韩七七")
    
20. For i = 0 To UBound(ar)
    
21.     d(ar(i)) = ar(i)
    
22. Next
    
23. MsgBox d(ar(0))
    
24. Set dd = d
    
25. d.RemoveAll
    
26. For i = 0 To UBound(br)
    
27.     d(br(i)) = br(i)
    
28. Next
    
29. MsgBox dd(ar(0))
    
30. MsgBox dd(br(0))
    
31. d.RemoveAll
    
32. For i = 0 To UBound(ar)
    
33.     d(ar(i)) = ar(i)
    
34. Next
    
35. MsgBox dd(ar(0))
    
36. MsgBox dd(br(0))
    
37. End Sub

复制代码

aman1516

弄不好是个BUG，弄的好，说不定是个巧妙的应用

准提部林

aman1516 发表于 2022-12-17 22:09
弄不好是个BUG，弄的好，说不定是个巧妙的应用

弄不好是个BUG....不是的~~
字典是物件(object), range也是...其它大部份用set也是,
set RA = range("B1:B9")
set RB = RA

不管是對RA或RB操作改變, 都是同一對象~~
同一個人, 不管給他穿哪件衣服, 或叫他哪一個外號, 他還是他~~

李白..李太白..青蓮居士, 都同一人, 月下對影成三人...對月人還是只李白一人~~

renahu

joforn 发表于 2022-12-17 17:34
如果需要创建一个新的对象，应该使用New而不是Set，或是Let。
另外，数组应该使用Let而不是Set，Set只能针 ...

谢谢指点，d 和 dd是我事先建好的两个字典，如果想让dd字典的内容与d字典内容完全一样，最简单的方法是什么呢？不知道new或者let怎么用？能不能一句实现赋值操作？我现在只会循环

joforn

renahu 发表于 2022-12-19 23:00
谢谢指点，d 和 dd是我事先建好的两个字典，如果想让dd字典的内容与d字典内容完全一样，最简单的方法是什 ...

首先，你得理解对象，由于系统内置核心的约定，你不可能创建两个完全一样的对象，所有的对象都是唯一的。
所以你只能创建两个对外接口数据完全一样的对象。

对象是什么，对象其实就是一块内存空间，在这内存空间内，定义了执行代码片断和数据区。在同一个系统进程内，所有相同类的代码片断内存应该是同一个内存区域，而所有的对象内的接口定义模块中，接口跳转都指向那一块程序运行区的各个函数接口，而数据定义区则指向各自专有的数据区内存。所以通常我们在编写代码时都只是写类代码，代码编译时只完成了接口定义和代码二进制化，而在代码真正执行到创建对象时，就会把类实例化，也就是申请一块内存地址，这块内存中包含了代码跳转接口以及数据初始化（使内存可读可写），这些操作都是内置运行约定，一般情况下是不可人为操控的，所以不可能创建两个相同的对象，至少对象指针都是唯一的。而对象赋值语句（Set），说白了，就只是复制了一个对象指针，所以不管一个对象被赋值到多少个变量中，实际被修改的都是同一片内存。
你的需求是得到两个数据相同的不同对象，那么对象克隆是唯一的选择，嗯，你用的是字典对象的话，那么把第一个字典的值全部写入一个新的字典是最简单的方式了，因为VBA没有单一个对象克隆语句。

aman1516

准提部林 发表于 2022-12-18 15:36
弄不好是个BUG....不是的~~
字典是物件(object), range也是...其它大部份用set也是,
set RA = range("B ...

是我的测试方法代码有问题吗，ran 并不会像字典那样同步更新

准提部林

aman1516 发表于 2022-12-20 15:41
是我的测试方法代码有问题吗，ran 并不会像字典那样同步更新

我的意思是//
set rngA = range("A1:B5")
set rngB = rngA
rngA 與 rngB 都指向同一位址, 它們屬同一身份~~
'=====================
字典也同樣
set A = 字典物件
set B = A
A/B 只是翻個身~~兩者無異

准提部林

aman1516 发表于 2022-12-20 15:41
是我的测试方法代码有问题吗，ran 并不会像字典那样同步更新

字典就這樣//
Sub TEST_A99()
Dim A, B
Set A = CreateObject("Scripting.Dictionary")
Set B = A
A(1) = ""
A(2) = ""
B.Remove 1
MsgBox A.Count
End Sub

aman1516

所以，这种“量子字典”，只存在于字典中，
还有没有其他对象具有类似“量子纠缠” 的特性呢