点击A工作表中的单元格，在B工作表显示对应的筛选结果，返回A表时，B表取消筛选取消

淡墨青衫A8 · 发表于 2024-4-25 12:23

请教各位大神，如何实现：当我点击汇总表里B列中的文字时，在支出明细表中显示对应的筛选结果，我对VBA是个小白，麻烦各位大神指教，谢谢！如图：

附上附件

Peny2020 · 发表于 2024-4-25 15:24

试试是不是这样

LIUZHU · 发表于 2024-4-25 16:03

我觉得除了筛选出来外，是不是要增加一个跳转到支出明细表的功能

淡墨青衫A8 · 发表于 2024-4-26 08:24

Peny2020 发表于 2024-4-25 15:24
试试是不是这样

正是我需要的这样，太谢谢大佬了！

淡墨青衫A8 · 发表于 2024-4-26 08:40

Peny2020 发表于 2024-4-25 15:24
试试是不是这样

你好，再请教一下：如果汇总表里的收入也像支出这样实现的话，应该增加那些代码？谢谢！

Peny2020 · 发表于 2024-4-28 12:24

本帖最后由 Peny2020 于 2024-4-28 13:21 编辑

淡墨青衫A8 发表于 2024-4-26 08:40
你好，再请教一下：如果汇总表里的收入也像支出这样实现的话，应该增加那些代码？谢谢！

在你的汇总表里加了一个触发的代码。
你想加就在后面再加一个

If Target.Column = 8 And Target.Row > 4 Then
b = Target.Value
Sheets(3).Select
Set rng = Sheets(3).Range("A2").CurrentRegion
rng.AutoFilter
rng.AutoFilter Field:=3, Criteria1:=b
End If

Peny2020 · 发表于 2024-4-28 12:31

附件已按你说的改了。

淡墨青衫A8 · 发表于 2024-4-28 14:36

Peny2020 发表于 2024-4-28 12:31
附件已按你说的改了。

太感谢了，大神！

淡墨青衫A8 · 发表于 2024-4-28 18:51

Peny2020 发表于 2024-4-28 12:31
附件已按你说的改了。

大神，再请教您一下：目前这个代码可以筛选“支出明细表”的C列，不能筛选B列，虽然把代码中的3改成2就可以了，但是这样C列就不能筛选了，我想把B列和C列同时都保留筛选的功能，您看看再增加些什么代码？麻烦您了。

Peny2020 · 发表于 2024-4-29 10:05

淡墨青衫A8 发表于 2024-4-28 18:51
大神，再请教您一下：目前这个代码可以筛选“支出明细表”的C列，不能筛选B列，虽然把代码中的3改成2就可 ...

你是想在筛选c列后第二次再对b列筛选？
还是说你看完c列了，想自己在b列进行筛选？那你把c列的筛选删掉就好了

		自动登录	找回密码
密码			免费注册