[已解决]求教一个循环添加注释的功能

wancheng

求教一个循环添加注释的功能，见附件。谢谢啊！

最佳答案

月排行榜 / 总排行榜

仔仔

2012-6-11 00:31

这么大个循环 应该是这个意思吧
Sub comadd()
For Each aa In Range("b4:bx5001")
aa.ClearComments
If aa <> "" Then
For i = 3 To Sheet2.Range("b65536").End(xlUp).Row
If aa = Sheet2.Cells(i, 2) Then
For y = 3 To 11
With Sheet2
ff = ff & .Cells(2, y) & ":" & .Cells(i, y) & Chr(10)
End With
Next
MsgBox ff
With aa
.AddComment (ff)
.Comment.Shape.Height = 120.75
.Comment.Shape.Width = 167.25
End With
ff = ""
End If
Next
End If
Next
End Sub

跳转到最佳答案楼层

xiaoni

不会，看看别人的，来学习一下

兰色幻想

加什么批注，怎么加？在哪儿加？

wancheng

{:021:}  VBA里面有B4: B13的添加功能，但我想把B4:BX5001的表格中的单元格，只要符合Sheet2表[零件编码]列中的单元格内容，都加上注释，执行Private Sub CommandButton1_Click()  后是一个例子，就是少了循环拓展的功能，和注释框架自动按内容填写自动增加高度

仔仔

这么大个循环 应该是这个意思吧
Sub comadd()
For Each aa In Range("b4:bx5001")
aa.ClearComments
If aa <> "" Then
For i = 3 To Sheet2.Range("b65536").End(xlUp).Row
If aa = Sheet2.Cells(i, 2) Then
For y = 3 To 11
With Sheet2
ff = ff & .Cells(2, y) & ":" & .Cells(i, y) & Chr(10)
End With
Next
MsgBox ff
With aa
.AddComment (ff)
.Comment.Shape.Height = 120.75
.Comment.Shape.Width = 167.25
End With
ff = ""
End If
Next
End If
Next
End Sub

wancheng

仔仔 发表于 2012-6-11 00:31
这么大个循环 应该是这个意思吧
Sub comadd()
For Each aa In Range("b4:bx5001")

谢谢您!循环很实用，解决了实际问题，省得一个个添加注释了，有个问题是否可以隔一列进行添加注释，否则时间将增加1倍，计算完大概需1小时左右，想让它跑快点{:081:}