多表同一个位置加同一个批注

天想

在一个工作薄中180多个表 同一个位置加入相同的批注，怎么用VBA实现呢

liulang0808

1. Sub 插入批注()
   
2.     Application.ScreenUpdating = False
   
3.     For Each sh In Sheets
   
4.         sh.Select
   
5.         Range("A1").AddComment
   
6.    
   
7.         Range("A1").Comment.Visible = False
   
8.    
   
9.         Range("A1").Comment.Text Text:="BIN_YANG168:" & Chr(10) & "这是A1单元格"
   
10.     Next sh
    
11.     Application.ScreenUpdating = True
    
12. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。

天想

谢谢，刚也找到其他的代码了

天想

Sub test()
    For Each sht In Worksheets
        For i = 10 To 100
        Set cel = sht.Range("d" & i)
        If cel.Comment Is Nothing And (cel > 40 Or cel < 8) _
        Then cel.AddComment "额外收入  9月的 加入 退回底金 500元 "
        Next
    Next
End Sub
然后自己修改了下

约定的童话

liulang0808 发表于 2018-10-6 10:53

版主这个加批注灵活啊，学习了！

约定的童话

liulang0808 发表于 2018-10-6 10:53

小小拓展了一下：
Sub 插入批注()
    Application.ScreenUpdating = False
    For Each sh In Sheets
        sh.Select
        Range("A1").AddComment
   
        Range("A1").Comment.Visible = False
   
        Range("A1").Comment.Text Text:="二炮:" & Chr(10) & "欢迎到来！"
    Next sh
    Application.ScreenUpdating = True
End Sub
Sub 删除批注()
    Application.ScreenUpdating = False
    For Each sh In Sheets
        sh.Select
        Cells.ClearComments
    Next sh
    Application.ScreenUpdating = True
End Sub