Excel用VBA给指定单元格加批注（批注内容是用公式获取的）

提供部分VBA源代码给你，可以自己放到一个宏中，略作修改即可（公式部分有报错异常时，找出原因处理一下）。

Dim i,j,v,t

Sheets("AAA").Select

i=ActiveSheet.UsedRange.rows.count

t=ActiveSheet.Rows(1).Find("*", , , , 2, 2).column

For i = 1 to ActiveSheet.UsedRange.rows().count

Dim i, j, v, t

Sheets("AAA").Select

i = ActiveSheet.UsedRange.Rows.Count

t = ActiveSheet.Rows(1).Find("*", , , , 2, 2).Column

For i = 1 To ActiveSheet.UsedRange.Rows().Count

    For j = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column()

        v = Cells(i, j)

        If IsNumeric(v) Then

            'On Error Resume Next

            Cells(1, t).FormulaR1C1 = "=IFERROR(VLOOKUP(IFERROR(VLOOKUP("""" & " & Cells(1, j) & ",定义表!C3:C4,2,0),0)&""" & Cells(i, 2) & """,数据处理表!C3:C6,4,0),"""")"

            v = Cells(1, t).Value

            If v <> "" Then

                Cells(i, j).ClearComments

                Cells(i, j).AddComment Cells(1, t).Value

                'Cells(i, j).Comment.Visible = True

                Cells(1, t) = ""

            End If

        End If

    Next j

Next i

添加批注的过程可以录制宏获得.

批注的内容必须是文本格式.可以用两个方法来改变:

pz.Comment.Text Text:=CStr(Date)

使用cstr函数将数据类型改为文本

pz.Comment.Text Text:="" &Date

附加一个空值使得日期的值变成了文本.

vba多数情况不需要转换数据类型,所以会导致一个问题:因文件类型问题而报错,同时也令人找不到报错原因...毕竟很多vba使用者也不是专业的程序员...

---