如何实现鼠标悬停（或点击）单元格后，显示筛选到的其他数据？

beescity

各位大神，需要在工作中做好经费记录，又需要经常回看到底支出了哪些，所以自己弄了这个excel文件。

sheet1是记录的每一笔开支的情况，其中部门和科目是从sheet2中vlookup指标计算过去的。
sheet2是按科目sumifs的支出总额，并计算余额。

可不可以实现，把鼠标悬停或者点击选中sheet2上E列的单元格时，能够自动提示（像注释那样）这个指标的所有开支情况
比如在E2单元格上，提示235这个指标的两笔开支的部分或者全部信息（也就是A:G中的全部或部分列）。

这样可以避免反复切换工作页并进行筛选，快速看一下科目的支出概况。

示例文件在附件了。

longwin

附件供参考，提示数据显示在K列开始

quqiyuan

使用了listview，点击e列会弹出来，仅供参考。。。

quqiyuan

代码如下。。。
Private Sub UserForm_Initialize()
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    arr = sht.[a1].CurrentRegion
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
    ListView1.View = lvwReport
    ListView1.Gridlines = True
    ListView1.LabelEdit = lvwManual
    ListView1.FullRowSelect = True
    ListView1.ColumnHeaders.Add 1, , arr(1, 1), sht.Cells(1, 1).Width
    ListView1.ColumnHeaders.Add 2, , arr(1, 2), sht.Cells(1, 2).Width
    ListView1.ColumnHeaders.Add 3, , arr(1, 3), sht.Cells(1, 3).Width
    ListView1.ColumnHeaders.Add 4, , arr(1, 4), sht.Cells(1, 4).Width
    ListView1.ColumnHeaders.Add 5, , arr(1, 5), sht.Cells(1, 5).Width
    ListView1.ColumnHeaders.Add 6, , arr(1, 6), sht.Cells(1, 6).Width
    ListView1.ColumnHeaders.Add 7, , arr(1, 7), sht.Cells(1, 7).Width
    Dim itm As ListItem, list
    For i = 2 To UBound(arr)
        If s = arr(i, 2) Then
            Set itm = ListView1.ListItems.Add()
            itm.Text = arr(i, 1)
            For j = 1 To UBound(arr, 2) - 1
                itm.SubItems(j) = arr(i, j + 1)
            Next
        End If
    Next
End Sub

beescity

longwin 发表于 2024-10-21 22:16
附件供参考，提示数据显示在K列开始

这种可以列在comments当中吗？

beescity

quqiyuan 发表于 2024-10-21 22:53
使用了listview，点击e列会弹出来，仅供参考。。。

谢谢。非常好用了。
每次点击单元格，弹出新窗口后，不能直接点其他单元格，需要关闭表单才行。可以把这一步关闭省掉吗？

longwin

附件是添加到批注的效果。

beescity

longwin 发表于 2024-10-22 09:06
附件是添加到批注的效果。

如果我更新过数据，是不是要删除所有注释，重新运行一次？

longwin

beescity 发表于 2024-10-22 09:28
如果我更新过数据，是不是要删除所有注释，重新运行一次？

不需要，每次点击都会重新计算

quqiyuan

beescity 发表于 2024-10-22 08:44
谢谢。非常好用了。
每次点击单元格，弹出新窗口后，不能直接点其他单元格，需要关闭表单才行。可以把这 ...

稍作修改即可，仅供参考。。。