请问VBA的AddComment报错可能是什么情况?

邪恶海盗

RT,VBA中使用addcomment报错,尝试过类似以下几种写法:cells(8,1).addComment("xxx")
range(cells(8,1)).addcomment
range(cells(8,1),cells(8,1)).addcomment
range(cells(8,1).address(0,0)).addcomment


主要是行列要用变量,所以用range不太方便,有没有懂行的大佬来指导下这是啥毛病?

邪恶海盗

补充一下,使用cells(8,1).value是可正常对单元格进行赋值和读取的

2011ohte

一般Cells比Range方便
批注要先清除再增加

1. Sub test()
   
2. Cells(9, 1).ClearComments
   
3. Cells(9, 1).AddComment "http://bbs.wuyou.net/"
   
4. End Sub
   

复制代码

邪恶海盗

2011ohte 发表于 2023-6-20 13:21
一般Cells比Range方便
批注要先清除再增加

原来是要先清除才能添加,我试好久都没搞定,还以为哪有问题呢...

邪恶海盗

2011ohte 发表于 2023-6-20 13:21
一般Cells比Range方便
批注要先清除再增加

能不能用Cells批量添加批注,试了下Range("A1:B5")=数组的形式直接写速度快些,用Cells时我用用for to 循环,明显可以看出来效率低速度慢了一拍

2011ohte

数组当然是最快的。
删除批注可以用Range("A1:B50").ClearComments

添加批注不能用数组，只能循环。

qq2348227

@坏坏老师~

他精通 vb5.0 ,可以向他取经~

邪恶海盗

2011ohte 发表于 2023-6-25 08:33
数组当然是最快的。
删除批注可以用Range("A1:B50").ClearComments

用for to感觉速度有点慢,用for each cell能不能快点?

2011ohte

对5万个单元格加批注，相差0.02秒

1. Sub test1()
   
2. 
   
3. t1 = Timer
   
4. 
   
5. Range("B1:B50000").ClearComments
   
6. For i = 1 To 50000
   
7. Cells(i, 2).AddComment Cells(i, 1).Text
   
8. Next
   
9. 
   
10. MsgBox (Timer - t1) & "秒"
    
11. 
    
12. End Sub
    
13. 
    
14. Sub test2()
    
15. t1 = Timer
    
16. 
    
17. Range("B1:B50000").ClearComments
    
18. For Each C In Range("B1:B50000")
    
19. C.AddComment C.Text
    
20. Next
    
21. 
    
22. MsgBox (Timer - t1) & "秒"
    
23. 
    
24. End Sub
    

复制代码

51xp

学习一下

邪恶海盗

2011ohte 发表于 2023-6-25 15:17
对5万个单元格加批注，相差0.02秒

这样说我就没必要去试了,意义不大...

2011temp1234

还要先判断是不是nothing