[已解决]怎样批量加批注

ping052062

怎样批量加批注。详情见附件。
怎样批量加注批注.zip (4.73 KB, 下载次数: 17)

2013-8-7 09:58 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

lyf7276

2013-8-7 11:11

Sub 批注()
m = Cells.Find("*", , , , , xlPrevious).Row
For i = 1 To m
n = Cells(i, Columns.Count).End(xlToLeft).Column
For j = 1 To n
If (Cells(i, j) = 29) + (Cells(i, j) = 18) And Cells(i, j).Comment Is Nothing Then
Cells(i, j).AddComment.Text Cells(i, j).Text
End If
Next

Next
End Sub
你把这段代码复制到你的的工作表上去试下看看

跳转到最佳答案楼层

风林火山

复制有批注的单元格，选定需要粘贴的区域，选择性粘贴-批注-确定

ping052062

风林火山 发表于 2013-8-7 10:20
复制有批注的单元格，选定需要粘贴的区域，选择性粘贴-批注-确定

谢谢！要VBA代码。

大灰狼1976

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Dim rng As Range
   
3. For Each rng In [a17].CurrentRegion
   
4.   If rng = 18 Or rng = 29 Then rng.AddComment "I'm " & rng
   
5. Next rng
   
6. End Sub

复制代码

lyf7276

是 这样的吗？

ping052062

大灰狼1976 发表于 2013-8-7 10:44
附件请测试

谢谢！怎么不运行，你选一个58试一试。

ping052062

lyf7276 发表于 2013-8-7 10:44
是 这样的吗？

谢谢！我的版本是2003，运行不了。

lyf7276

你要另外填充一些数字试试，那些要加批注的都已加了，当然不会有变化了。

ping052062

lyf7276 发表于 2013-8-7 11:06
你要另外填充一些数字试试，那些要加批注的都已加了，当然不会有变化了。

老师，你的版本太高，我的版本是2003版的。

lyf7276

Sub 批注()
m = Cells.Find("*", , , , , xlPrevious).Row
For i = 1 To m
n = Cells(i, Columns.Count).End(xlToLeft).Column
For j = 1 To n
If (Cells(i, j) = 29) + (Cells(i, j) = 18) And Cells(i, j).Comment Is Nothing Then
Cells(i, j).AddComment.Text Cells(i, j).Text
End If
Next

Next
End Sub
你把这段代码复制到你的的工作表上去试下看看