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

活到老啊学到老 · 发表于 2020-3-14 12:01

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

约定的童话 · 发表于 2020-3-14 13:07

这个样子吗？

3190496160 · 发表于 2020-3-14 13:16

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:41

本帖最后由活到老啊学到老于 2020-3-14 15:16 编辑

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

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

3190496160 · 发表于 2020-3-14 13:53

单击第一个工作表的 G2 单元格，自动显示批注

求助.rar (19.35 KB, 下载次数: 68)

活到老啊学到老 · 发表于 2020-3-15 09:12

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

谢谢！！！

		自动登录	找回密码
密码			免费注册

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

评分

评分