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

7016427

我想，Sheet1.[A1]有批注，B1=1时，鼠标指向A1单元格时不显示批注(不能删除A1单元格的批注)，B1=0，鼠标指向A1单元格时，显示出批注。请问老师，vba怎么实现？

小花鹿

好像没有这个功能

phsu

你可能需要透過工作表的Activate事件來處理。在該事件裡用IF判斷並操作批注的顯示與隱藏。看看以下代碼是否就是你要的。

Private Sub Worksheet_Activate()
    Select Case True
        Case [b1] = 1
            [a1].Comment.Visible = False
        Case [b1] = 0
            [a1].Comment.Visible = True
    End Select
End Sub

jiminyanyan

好像没这功能。

CC例例

真不知道，楼主为何要钻这个牛角尖。你另外1贴也是这个问题，别人在跟帖中，已说明批注既是隐藏了，光标移到该单元格也会显示的。当条件成真时，添加批注，否则，删除批注。不是也能实现这个效果吗？

phsu

這樣做也許可行：
Private Sub Worksheet_Activate()
    Select Case True
        Case [b1] = 1
            Application.DisplayCommentIndicator = xlNoIndicator
        Case [b1] = 0
            Application.DisplayCommentIndicator = xlCommentAndIndicator
            [a1].Comment.Visible = False
    End Select
End Sub

huang1314wei

看一下是否是这个意思，如果觉得符合，再给你传附件吧



这是代码


Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If [B1] = 1 Then
        Range("A1").Comment.Visible = False
    End If
    If [B1] = 0 Then
        If Y < 17 Then
            Range("A1").Comment.Visible = True
        Else
            Range("A1").Comment.Visible = False
        End If
    End If
End Sub

huang1314wei

重新传一次，因为审核的问题

hhjjpp

huang1314wei 发表于 2016-9-11 09:59
看一下是否是这个意思，如果觉得符合，再给你传附件吧

这是textbox的事件吧？但你又是在窗格中使用！
03里的workbook和worksheet都没看到这个TextBox1_MouseMove呀！难道代码随便加在模块里？

huang1314wei

hhjjpp 发表于 2016-9-11 10:33
这是textbox的事件吧？但你又是在窗格中使用！
03里的workbook和worksheet都没看到这个TextBox1_MouseMo ...

工作表添加textbox控件刚好覆盖a1单元格，然后把代码写在工作表当中搞定，实际上这个题目用api做是可以实现的，用textbox有点取巧