自动添加修改批注

kebei

问题：当课表变动时，在变动课表的单元格自动添加批注，内容为原课表对应的单元格，不变的不用添加，菜鸟，弄了好久没弄好。

大灰狼1976

1. Public s$
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4. If Target.CountLarge > 1 Then Exit Sub
   
5. s = Target
   
6. End Sub
   
7. 
   
8. Private Sub Worksheet_Change(ByVal Target As Range)
   
9. If Target.CountLarge > 1 Then Exit Sub
   
10. If s <> Target Then Target.NoteText s
    
11. End Sub

复制代码

kebei

谢谢大灰狼，，可能我描述的不清楚，是跟“原课表”里面的课表对应不同时，插入批注

大灰狼1976

kebei 发表于 2019-10-21 17:13
谢谢大灰狼，，可能我描述的不清楚，是跟“原课表”里面的课表对应不同时，插入批注

那就只要一个change事件，判断条件为输入内容和“原课表”的对应单元格内容进行对比，不一样时添加批注，代码自己修改一下。

kebei

大灰狼1976 发表于 2019-10-21 17:18
那就只要一个change事件，判断条件为输入内容和“原课表”的对应单元格内容进行对比，不一样时添加批注， ...

原理我知道，就是编写时老是出错，对象出错，也不知错哪里，所以才来求救

大灰狼1976

明天吧，家里电脑没EXCEL

YZC51

kebei 发表于 2019-10-21 17:21
原理我知道，就是编写时老是出错，对象出错，也不知错哪里，所以才来求救

请参考
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    r = Target.Row: c = Target.Column
    s = Sheet2.Cells(r, c)
    If s <> Target Then Target.NoteText s
End Sub

大灰狼1976

Target.NoteText iif(s=target, "", s)
修改这一句后，即使上一次修改时添加了批注，
改回来后还能删除批注。

YZC51

大灰狼1976 发表于 2019-10-21 20:10
Target.NoteText iif(s=target, "", s)
修改这一句后，即使上一次修改时添加了批注，
改回来后还能删除批 ...

谢谢老师指教！
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    r = Target.Row: c = Target.Column
    s = Sheet2.Cells(r, c)
    Target.NoteText IIf(s = Target, "", s)
End Sub

大灰狼1976

YZC51 发表于 2019-10-21 20:51
谢谢老师指教！
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1  ...

所以说NoteText还真比addcomment好用.