求大神相救啊，关于VBA添批注的！！！！

活到老啊学到老

找了好多的代码修改了都不行，跪求大神帮忙呀！！！

约定的童话

这个样子吗？

3190496160

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Address <> "$G$2" Then Exit Sub
r = Cells(Rows.Count, 5).End(xlUp).Row
For i = 2 To r
    If Cells(i, 5) <> "" Then
        If m = "" Then
            m = Cells(i, 5)
        Else
            m = m & "|" & Cells(i, 5)
        End If
    End If
Next i
If m = "" Then Exit Sub
    T.Select
    T.ClearComments '''如果有批注则先删除批注
    T.AddComment ''添加批注
    T.Comment.Visible = False ''隐藏批注
    T.Comment.Text Text:="提示:" & Chr(10) & m ''批注内容
    T.Comment.Shape.Height = 200 ''设置高度
    T.Comment.Shape.Width = 200 ''设置高度
End Sub

活到老啊学到老

约定的童话 发表于 2020-3-14 13:07
这个样子吗？

对的对的，就是这样！！！请问大神第二个表格是用的函数吗？我是用的&这个公式，感觉好低端

3190496160

单击  第一个工作表的   G2 单元格，自动显示批注
求助.rar (19.35 KB, 下载次数: 67)

2020-3-14 13:53 上传

点击文件名下载附件

活到老啊学到老

3190496160 发表于 2020-3-14 13:53
单击  第一个工作表的   G2 单元格，自动显示批注

谢谢！！！