首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

VBA 删除批注有关问题

2012-03-03 
VBA 删除批注问题在一个Sheels中需要循环边历所有的单元格,如果单元格包含批注,则先获取批注信息,再删除当

VBA 删除批注问题
在一个Sheels中需要循环边历所有的单元格,如果单元格包含批注,则先获取批注信息,再删除当前批注,然后修改获取到的批注信息并重新保存到当前单元格,请问该如何实现?

Tao = Newwb.Sheets("bb").Cells(1, 8)
For k = 5 To 120
  If Newwb.Sheets("aa").Cells(k, 2) = Tao Then
  这里判断此单元格是否有批注
有则获取当前批注信息
并修改
再删除当前单元格的批注

最后将修改后的批注信息重新添加到单元格  

  End If
  Next

[解决办法]
Sub Comm1()
Dim strCommet As String
On Error Resume Next
If (Range("A1").Comment Is Nothing) Then //如果注释为空
Range("A1").AddComment //增加注释
Range("A1").Comment.Text Text:="abcdefg" //注释内容为"abcdefg"
Else
strCommet = Range("A1").Comment.Text //如果注释不为空
strCommet = strCommet & " modify" //修改注释+ "modify"
Range("A1").ClearComments //清除注释
Range("A1").AddComment //增加注释
Range("A1").Comment.Text Text:=strCommet //设置注释内容
End If
End Sub
[解决办法]

VB code
Sub 批量修改批注()    Dim myRange As Range    Dim Rng As Range    Dim msg As String    Set myRange = Cells.SpecialCells(xlCellTypeComments)    For Each Rng In myRange        MsgBox Rng.Comment.Text        msg = InputBox("请输入新的批注内容", "修改批注")        If msg <> "" Then            Rng.Value = msg            Rng.Comment.Delete        End If    Next RngEnd Sub 

热点排行