给单元格添加注释

奋斗000

请大神帮忙，给单元格添加注释，注释内容来源其他表。请看附件。单元格数量可多可少，不固定。不知能否实现

ykcbf1100

没看明白。和考场号有关系吗？

奋斗000

ykcbf1100 发表于 2024-5-19 11:26
没看明白。和考场号有关系吗？

这是一个监考表，需要对监考老师所在单元格进行注释，注释内容为监考次数，必监科目，不监科目，当鼠标对准某个老师，就显示注释内容

ykcbf1100

奋斗000 发表于 2024-5-19 11:40
这是一个监考表，需要对监考老师所在单元格进行注释，注释内容为监考次数，必监科目，不监科目，当鼠标对 ...

你的意思是：鼠标到了单元格才有注释出现，鼠标移走了，注释也就删除了？

奋斗000

ykcbf1100 发表于 2024-5-19 11:43
你的意思是：鼠标到了单元格才有注释出现，鼠标移走了，注释也就删除了？

是的。鼠标到了单元格才有注释出现，鼠标移走了，注释就没有了

ykcbf1100

奋斗000 发表于 2024-5-19 11:48
是的。鼠标到了单元格才有注释出现，鼠标移走了，注释就没有了

那可以不用注释啊，用MsgBox提示一下就可以了。更简单。

奋斗000

ykcbf1100 发表于 2024-5-19 11:50
那可以不用注释啊，用MsgBox提示一下就可以了。更简单。

感觉用注释方便些

ykcbf1100

工作表事件，供参考。。。

ykcbf1100

参与一下吧。。。

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     With Sheets("基础信息设置")
   
4.         r = .Cells(Rows.Count, 3).End(3).Row
   
5.         arr = .[c1].Resize(r, 4)
   
6.     End With
   
7.     For i = 2 To UBound(arr)
   
8.         s = arr(i, 1)
   
9.         d(s) = Array(arr(i, 2), arr(i, 3), arr(i, 4))
   
10.     Next
    
11.     r = Me.Cells(Rows.Count, 1).End(3).Row
    
12.     If T.Column > 1 And T.Column <= 10 And T.Row > 2 And T.Row <= r Then
    
13.         s = T.Value
    
14.         st = s & ":" & Chr(10)
    
15.         If d.exists(s) Then
    
16.             st = st & "监考次数：" & d(s)(0) & Chr(10)
    
17.             st = st & "必监考科目：" & d(s)(1) & Chr(10)
    
18.             st = st & "不监考科目：" & d(s)(2)
    
19.         End If
    
20.         MsgBox st
    
21.     End If
    
22. End Sub

复制代码

奋斗000

ykcbf1100 发表于 2024-5-19 13:01
工作表事件，供参考。。。

谢谢你的帮助。感觉这样的效果确实不太方便，每点一个单元格，弹出提示框，又要点确定，有点麻烦