求大神指点

aokuangsha · 发表于 2022-12-9 11:09

我现在统计表格中做到点击统计的结果，弹出对应的结果明细，求大神指点迷津，感谢

aokuangsha · 发表于 2022-12-9 11:10

我想在统计表格中做到点击统计的结果，弹出对应的结果明细，求大神指点迷津，感谢

3190496160 · 发表于 2022-12-9 13:55

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 2 And T.Column > 1 Then
If T.Count > 1 Then End
If T.Value = "" Then End
xm = Cells(T.Row, 1)
bm = Cells(2, T.Column)
With Sheets("数据表")
      .Select
      r = .Cells(Rows.Count, 1).End(xlUp).Row
      AutoFilterMode = False
      .Rows(1).AutoFilter
      .Range("a1:c" & r).AutoFilter Field:=1, Criteria1:=bm, Operator:=xlAnd
      .Range("a1:c" & r).AutoFilter Field:=2, Criteria1:=xm, Operator:=xlAnd
End With
End If
End Sub

3190496160 · 发表于 2022-12-9 13:58

Sub 筛选()
Application.ScreenUpdating = False
Dim ob As OLEObject
yf = [h1]
If yf = "" Then MsgBox "请输入月份！": End
r = Cells(Rows.Count, 2).End(xlUp).Row
AutoFilterMode = False
Rows(2).AutoFilter
For Each ob In ActiveSheet.OLEObjects
If ob.Object.Value = True And Left(ob.Name, 12) = "OptionButton" Then
      If ob.Object.Caption = "全部" Then GoTo 10
      mc = Replace(ob.Object.Caption, "公司", "")
      Range("a2:g" & r).AutoFilter Field:=2, Criteria1:=yf, Operator:=xlAnd
      Range("a2:g" & r).AutoFilter Field:=3, Criteria1:=mc, Operator:=xlAnd
      Exit For
End If
Next
10:
Application.ScreenUpdating = True
End Sub

3190496160 · 发表于 2022-12-9 13:59

本帖最后由 3190496160 于 2022-12-9 14:06 编辑

发错帖子了，请忽略

3190496160 · 发表于 2022-12-9 14:06

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 2 And T.Column > 1 Then
If T.Count > 1 Then End
If T.Value = "" Then End
xm = Cells(T.Row, 1)
bm = Cells(2, T.Column)
With Sheets("数据表")
      .Select
      r = .Cells(Rows.Count, 1).End(xlUp).Row
      AutoFilterMode = False
      .Rows(1).AutoFilter
      .Range("a1:c" & r).AutoFilter Field:=1, Criteria1:=bm, Operator:=xlAnd
      .Range("a1:c" & r).AutoFilter Field:=2, Criteria1:=xm, Operator:=xlAnd
End With
End If
End Sub

3190496160 · 发表于 2022-12-9 14:07

以此为准

示例表格.rar (24.17 KB, 下载次数: 4)

aokuangsha · 发表于 2022-12-9 14:42

3190496160 发表于 2022-12-9 14:07
以此为准

老师，你好，请问可否设置为单独弹出一个表，里面只显示对应的数据呢

3190496160 · 发表于 2022-12-9 22:04

aokuangsha 发表于 2022-12-9 14:42
老师，你好，请问可否设置为单独弹出一个表，里面只显示对应的数据呢

什么意思？？不明白啊

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

[求助] 求大神指点