急急（请高手指点）如何在EXCEL（2007）表格中批量插入不同批注

239855755

Book1.rar (15.77 KB, 下载次数: 35)

2012-6-3 11:36 上传

点击文件名下载附件

批注内容写：

如何在EXCEL（2007）表格中批量插入不同批注（批注是根据同列不同行的内容进行编辑）
例如：G列9107.29写批注内容为：北海600+项目队4000.85+中心办4506.44

swl4561255

1. Sub test()
   
2. Dim rng As Range
   
3.     ar = [A65536].End(3).Row
   
4.     Range("G2:G" & ar).ClearComments
   
5.     For Each rng In Range("G2:G" & ar)
   
6.           rng.AddComment Text:=[D1] & Round(rng.Offset(0, -3), 2) & "+" & [E1] & Round(rng.Offset(0, -2), 2) & "+" & [F1] & Round(rng.Offset(0, -1), 2)
   
7.     Next
   
8. End Sub
   

复制代码

239855755

可是我不会用宏。。呜呜

239855755

{:soso_e109:}怎么办呀。。。能不能把一步一步的步骤下下呀。。高手

swl4561255

创建宏之前首先要启用宏，在宏安全性里面设置。
1、按ALT+F11打开VBE编辑器，左侧资源管理器窗口中空白处点鼠标右键，插入-模块。
2、将上面的代码复制粘贴到代码窗口中。
3、运行宏即可。

239855755

swl4561255 发表于 2012-6-3 13:09
创建宏之前首先要启用宏，在宏安全性里面设置。
1、按ALT+F11打开VBE编辑器，左侧资源管理器窗口中空白处点 ...

能解释一下语句的意思吗？？？看不太懂

swl4561255

239855755 发表于 2012-6-3 13:14
能解释一下语句的意思吗？？？看不太懂

Sub test()Dim rng As Range
    ar = [A65536].End(3).Row    ‘获取G列最后一个非空行行号
    Range("G2:G" & ar).ClearComments     ’删除G列第2 行至最后一个非空行单元格的批注
    For Each rng In Range("G2:G" & ar)      ‘建立循环
          rng.AddComment Text:=[D1] & Round(rng.Offset(0, -3), 2) & "+" & [E1] & Round(rng.Offset(0, -2), 2) & "+" & [F1] & Round(rng.Offset(0, -1), 2)   '为G列单元格添加批注，批注内容为：D1&同行左侧第三个单元格的内容保留两位小数&"+"&E1&同行左侧第二个单元格的内容保留两位小数&"+"&F1&同行左侧第一个单元格的内容保留两位小数
    Next
End Sub

239855755

现在要在多列中都添加批注，不懂怎么修改语句，怎么改呢

地中海船主

学习一下。

swl4561255

239855755 发表于 2012-6-3 13:32
现在要在多列中都添加批注，不懂怎么修改语句，怎么改呢

Book1.zip (17.55 KB, 下载次数: 59)

2012-6-3 16:07 上传

点击文件名下载附件

参考附件：

1. Private Sub CommandButton1_Click()
   
2. Dim myrng As Range
   
3.     ar = [A65536].End(3).Row
   
4.     Set myrng = Union(Range("G2:G" & ar), Range("N2:N" & ar))
   
5.     myrng.ClearComments
   
6.     For Each rng In myrng
   
7.           rng.AddComment Text:=Cells(1, rng.Column - 3) & Round(rng.Offset(0, -3), 2) & "+" & _
   
8.           Cells(1, rng.Column - 2) & Round(rng.Offset(0, -2), 2) & "+" & Cells(1, rng.Column - 1) & Round(rng.Offset(0, -1), 2)
   
9.     Next
   
10. End Sub
    

复制代码