如何多表分类明细汇总显示？请哪位老师帮助解决一下，谢谢！

tlq1879

如何在选取A1单元格的银行后，通过函数或VBA只将在职工资、退休工资和离休工资三个表中的代发银行是A1的人员姓名、实发金额信息自动显示在工资代发表中，并加上序号、合计和框线。谢谢！

魂断蓝桥

工资表.rar (56.96 KB, 下载次数: 19)

2019-3-15 10:00 上传

点击文件名下载附件

笑着...两年过去

魂断蓝桥 发表于 2019-3-15 10:00

1. select t.姓名,t.实发工资 from(SELECT * FROM [在职工资$A1:F] UNION ALL SELECT * FROM [退休工资$A1:F] UNION ALL  SELECT * FROM [离休工资$A1:F])t where t.代发银行='" & [A1] & "'

复制代码

tlq1879

魂断蓝桥 发表于 2019-3-15 10:00

老师感谢您的回复。但您的这个不管选哪个银行，在职人员都显示。我的意思是如果在银行代发表中的A1单元格选择建设银行，那么在职、退休、离休人员三个表中在建行代发的都在银行代发表中显示，其他银行的不显示。麻烦您再给修正下，谢谢！

一把小刀闯天下

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$A$1" Then Exit Sub
  Dim arr, sht, i, j, m, t, sum
  sht = Split("在职 退休 离休")
  ReDim brr(1 To 10 ^ 4, 1 To 3)
  t = [a1].Value
  For i = 0 To UBound(sht)
    arr = Sheets(sht(i) & "工资").[a1].CurrentRegion
    For j = 2 To UBound(arr, 1)
      If arr(j, 6) = t Then
        m = m + 1: sum = sum + arr(j, 5)
        brr(m, 1) = m: brr(m, 2) = arr(j, 2): brr(m, 3) = arr(j, 5)
      End If
  Next j, i
  m = m + 1: brr(m, 1) = "合计": brr(m, 3) = sum
  With [a3]
    .Resize(Rows.Count - 2, 3) = vbNullString
    If m > 0 Then .Resize(m, 3) = brr
  End With
End Sub

tlq1879

一把小刀闯天下 发表于 2019-3-15 12:01
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

可以了，就是条数多的时候，框线范围不变。非常感谢！

tlq1879

笑着...两年过去 发表于 2019-3-15 10:25

非常感谢老师的回复，谢谢！唯一遗憾就是没有合计行

tlq1879

魂断蓝桥 发表于 2019-3-15 10:00

感谢老师的多次回复。谢谢！

一把小刀闯天下

tlq1879 发表于 2019-3-15 12:52
可以了，就是条数多的时候，框线范围不变。非常感谢！

'16行先删除（合并行），然后输出部分替换一下，，，

  With [a3]
    .Resize(Rows.Count - 2, 3).Clear
    If m > 0 Then
      With .Resize(m, 3)
        .Borders.LineStyle = xlContinuous
        .Value = brr
      End With
    End If
  End With

tlq1879

一把小刀闯天下 发表于 2019-3-15 13:03
'16行先删除（合并行），然后输出部分替换一下，，，

  With [a3]

请问如果在职、退休、离休三个表的列数不一样多，且实发金额也不固定在某列的情况下，怎么修改？谢谢！