宏中copy命令的结果受到后面赋值语句的影响？

i3myself · 发表于 2021-2-3 15:44

Sub 宏1()
Dim strsum, strtmp As String
For Each celltmp In Selection
strsum = strsum & celltmp.Value & "、"
Next
strtmp = Cells(1, 1).Value
Cells(1, 1).Value = strsum
Call Cells(1, 1).Copy
'MsgBox "copied"
Cells(1, 1).Value = strtmp
End Sub

复制代码

就是图上的宏，想简单的把选中区域单元格的内容用"、"分隔后合并，然后放到剪贴板里，就想把结果临时放到cells(1,1)里面，copy完之后再把内容恢复，结果发现运行完之后剪贴板里是原来cells(1,1)的内容，为了排错加了现在倒数第三行的msgbox语句，结果发现加了msgbox之后运行结果就正常了，剪贴板里内容是需要的了，请问是怎么回事，不加msgbox如何解决。

个人感觉copy方法是异步的？后面赋值太快了就按照新值来copy？延时能行吗，可要是延时的话延时多久呢？

i3myself · 发表于 2021-2-4 09:03

有人帮忙回复下吗

i3myself · 发表于 2021-2-7 11:30

难道是微软的bug？

i3myself · 发表于 2021-2-7 13:57

i3myself 发表于 2021-2-7 11:30
难道是微软的bug？

自己的帖子自己顶了不管用？这是啥机制

i3myself · 发表于 2021-2-7 14:54

试了一下，把msgbox替换为其他单元格的select，不管用，下一步试试用函数延时一下看看结果

3190496160 · 发表于 2021-2-7 15:04

对cells(1,1)单元格反复赋值，目的是什么呢？？
你的最终目的又是什么呢？？

i3myself · 发表于 2021-2-7 15:16

3190496160 发表于 2021-2-7 15:04
对cells(1,1)单元格反复赋值，目的是什么呢？？
你的最终目的又是什么呢？？

目的是为了在其他程序中从剪贴板里粘贴

yjh_27 · 发表于 2021-2-7 15:34

i3myself 发表于 2021-2-7 14:54
试了一下，把msgbox替换为其他单元格的select，不管用，下一步试试用函数延时一下看看结果

选择A2:A5,运行1L过程后，A1单元格被作为复制源，剪贴板的内容就是A1单元格。
你在粘贴前将A1还原了，自然就没有合并的内容了。与延时无关。

你要使用合并内容，可将strsum设为公共变量。

yjh_27 · 发表于 2021-2-7 15:37

i3myself 发表于 2021-2-7 15:16
目的是为了在其他程序中从剪贴板里粘贴

其他程序是 excle VBA 之外的?
用特定单元格保存

还是VBA,用公共变量

i3myself · 发表于 2021-2-7 15:47

yjh_27 发表于 2021-2-7 15:34
选择A2:A5,运行1L过程后，A1单元格被作为复制源，剪贴板的内容就是A1单元格。
你在粘贴前将A1还原了 ...

里面A1单元格还原之前有一个copy命令啊，我的理解是copy命令会将之前A1单元格的文字内容放到剪贴板里，然后对A1单元格进行赋值就不影响剪贴板中内容了，是我的理解有问题吗？

		自动登录	找回密码
密码			免费注册

[求助] 宏中copy命令的结果受到后面赋值语句的影响？