在线请教高手，隐藏单元格批注难题

7016427

phsu 发表于 2016-9-12 16:03
退出Application指的是關閉Excel視窗。

你好！我关闭是鼠标点击的右上角＂X＂，还要关闭何处？

zhjlgaojuan

为什么不用worksheet_change事件呢?
毕竟,设置好批注以后,如果[B1]单元格数据不变的话,是没必要改变[A1]批注的显示状态的啊

7016427

zhjlgaojuan 发表于 2016-9-12 20:20
为什么不用worksheet_change事件呢?
毕竟,设置好批注以后,如果单元格数据不变的话,是没必要改变[A1]批注的 ...

你好！我要的就是6楼老师，写的代码结果！还存在着b1=1，执行完毕关闭该文件。再打开其他文件时，有批注的单元格，批注不见了！看老师能否帮我解决这个问题！

Private Sub Worksheet_Activate() ' 这是6楼老师帮我写的代码
    Select Case True
        Case [b1] = 1
            Application.DisplayCommentIndicator = xlNoIndicator
        Case [b1] = 0
            Application.DisplayCommentIndicator = xlCommentAndIndicator
            [a1].Comment.Visible = False
    End Select
End Sub

7016427

zhjlgaojuan 发表于 2016-9-12 20:20
为什么不用worksheet_change事件呢?
毕竟,设置好批注以后,如果单元格数据不变的话,是没必要改变[A1]批注的 ...

你好！我要的就是6楼老师写的那个代码，但是，还存在着：b1=1，执行完毕关闭该文件。再打开其他文件后，有批注的单元格，批注不见了！

7016427

7016427 发表于 2016-9-12 21:11
你好！我要的就是6楼老师，写的代码结果！还存在着b1=1，执行完毕关闭该文件。再打开其他文件时，有批 ...

请问老师，能否关闭当前工作簿时，恢复批注默认？

phsu

我改用Change事件處理，請參閲附件。不會有你所謂的問題。只要將B1的數值改變即可。關閉檔案之後重開，也不會有問題。你試試看。

7016427

phsu 发表于 2016-9-13 20:47
我改用Change事件處理，請參閲附件。不會有你所謂的問題。只要將B1的數值改變即可。關閉檔案之後重開，也不 ...

你好！我测试了，仍然存在着：b1=1，执行完毕关闭该文件。再打开其他文件后，有批注的单元格，批注不见了！

zhjlgaojuan

实在不行,把这些批注的内容单独存放一列,
在change事件中进行判断处理
当B1=1的时候从备份列读取数据添加批注,
B1=0的时候直接删除批注,
不就是数据表中一列数据的事嘛....何必太纠结呢?
VBA是比较有局限性的语言,很多功能要想实现的话,要费大力气,用一些简单可替代的方法就可以实现的话,何必去钻那牛角尖呢?

phsu

7016427 发表于 2016-9-13 21:20
你好！我测试了，仍然存在着：b1=1，执行完毕关闭该文件。再打开其他文件后，有批注的单元格，批注不见了 ...

我執行你的附件Book1.xls。功能正常啊！我把B1改成0之後，批注内容「你好」 就出現了。

7016427

phsu 发表于 2016-9-14 10:15
我執行你的附件Book1.xls。功能正常啊！我把B1改成0之後，批注内容「你好」 就出現了。

你好！也就是B1=1时，关闭退出后，打开另外的工作簿，就看不见有批注单元格的批注了！