excel中用宏添加特定批注

'当 rng区域 内数据大于 n 时，插入批注

Dim n As Integer: n = 100

'插入批注的阀值，更改 n 的实际值

Dim rng As Range: Set rng = Range("a1:b5")

'代码作用的区域,更改 "" 内的内容

For Each c In rng

If c.Value >n Then

c.ClearComments

c.AddComment

c.Comment.Visible = False

c.Comment.Text Text:="该数大于 " &n

End If

Next

End Sub

-----------

其他问题，Hi我

Private Sub CommandButton1_Click()

Dim strText As String

strText = "上海 22934.260 23.790 %"

On Error GoTo COMMENTEXIST

Range("A1").AddComment strText

Exit Sub

COMMENTEXIST:

Range("A1").Comment.Text Range("A1").Comment.Text &Chr(13) &strText

End Sub

1.如果批注不存在,追加批注如果存在,在原有基础上连接新的内容

2.公式也可以写在程序里面,实现计算加插入批注

根据你的要求修改如下:

Private Sub CommandButton1_Click()

Dim strText As String

With Sheet1

strText = .Range("F2") &.Range("G2") &.Range("H2") &.Range("I2") &.Range("F3") &.Range("G3") &.Range("H3") &.Range("I3")

End With

On Error GoTo COMMENTEXIST

Range("E2").AddComment strText

Exit Sub

COMMENTEXIST:

Range("E2").Comment.Text strText

End Sub