如何实现“一对多”跨表的条件数据引用

liurunxing · 发表于 2017-1-1 10:06

首先祝大家节日快乐！

向节日里仍在论坛值守的众大侠致敬！
也给自己这个仍在工地战斗的苦逼工仔点个赞！

现有如下难题请求大家帮忙解决，
先在这里谢谢大家的热心解答！
谢谢！

现有日常费用报销工作表一批（各月份），
工作表名称以“年月日人名”命名，
格式统一，但工作表数量会不定期增加。

目标：
1、将工作表（名称带日期的）内的数据全部引用到当月的现金日记账总表（201609现金日记账）。
并实现数据汇总。
2、将工作表（名称带日期的）内的数据根据种类代码分别引用到相应的工作表内，
并实现数据汇总。
例如，种类代码为A01的相应行的数据，引用到工作表“A01费用汇总”，
      种类代码为B02的相应行的数据，引用到工作表“B02费用汇总”
      种类代码为C03的相应行的数据，引用到工作表“C03费用汇总”
      备注栏内为Z3的相应行的数据，引用到工作表“Z3专项费用汇总”
3、工作表（名称带日期的）数量增加后，总表数据及各个分类汇总表的数据自动更新。

附件为模板，

还请大神对处理方法稍做解释，
因为本人还要将解决方法稍做扩展，增加种类代码等，
并移植到其他月份的数据中。

再次感谢热心解答！

小花鹿 · 发表于 2017-1-1 10:23

还是举两个例子说明，比较好理解，毕竟别人不一定了解你的行业特点............................................

liurunxing · 发表于 2017-1-1 10:47

实例附件稍等下上传，

liurunxing · 发表于 2017-1-1 11:11

小花鹿发表于 2017-1-1 10:23
还是举两个例子说明，比较好理解，毕竟别人不一定了解你的行业特点...................................... ...

此贴中的附件为模拟效果，
并附加了简短说明。

为了更容易区别数据，
不同类别的数据用了不同颜色，
处理时不用增加颜色。

祝节日快乐！
多谢热心相助！

Kaohsing · 发表于 2017-1-1 12:45

看表格看的眼花缭乱，大体意思好像是这样：每个人发生的费用先计入日记账，在按支付凭证的类别（R01 A01 B02 C03 Z3好像有管理费，制造费呀，好像是生产型企业）细分一下记个账，最后汇总一下。不难呀。

liurunxing · 发表于 2017-1-1 13:05

Kaohsing 发表于 2017-1-1 12:45
看表格看的眼花缭乱，大体意思好像是这样：每个人发生的费用先计入日记账，在按支付凭证的类别（R01 A01 B0 ...

就是这个意思，
关键是个人不是搞文职的。

还请老师热心相助！

Kaohsing · 发表于 2017-1-1 13:16

liurunxing 发表于 2017-1-1 13:05
就是这个意思，
关键是个人不是搞文职的。

最好把 R01 A01 B02 C03 Z3这些代码换成真实的会计科目，否则代码出现大量的 If Not st.Name Like "*汇总" And Not st.Name Like "*日记账" Then，换成具体的费用名字。大家也就不再琢磨着写代码。

liurunxing · 发表于 2017-1-1 13:30

本帖最后由 liurunxing 于 2017-1-1 13:51 编辑

Kaohsing 发表于 2017-1-1 13:16
最好把 R01 A01 B02 C03 Z3这些代码换成真实的会计科目，否则代码出现大量的 If Not st.Name Like "* ...

多谢指导！
以前是个搞机械的，
现在拉到工地帮忙记这个。
对会计科目也不了解，
自己想着字符比汉字好处理，
就随意编个代码区分费用，

至于备注栏里的“Z3”代码，
是要单列出一个项目费用。

liurunxing · 发表于 2017-1-1 13:53

本帖最后由 liurunxing 于 2017-1-1 13:56 编辑

Kaohsing 发表于 2017-1-1 13:16
最好把 R01 A01 B02 C03 Z3这些代码换成真实的会计科目，否则代码出现大量的 If Not st.Name Like "* ...

模板文件已修改，
不知我理解的对不对？
现金日记账那个名称没有改，
因为有个年度汇总文件，
引用了表内的数据。

Kaohsing · 发表于 2017-1-1 14:42

登记日记账代码

Dim d
Sub 汇总费用()
Dim st As Worksheet
Dim arr
Dim i%, j%, m%
Dim iRow%
Dim brr(1 To 500, 1 To 7)
Set d = CreateObject("scripting.dictionary")
For Each st In Worksheets
If Not st.Name Like "*汇总" And Not st.Name Like "*日记账" Then
arr = st.Range("a1").CurrentRegion
If IsEmpty(arr) Then GoTo ghb
For i = 4 To UBound(arr)
If arr(i, 1) <> "" And arr(i, 1) <> "本单汇总" Then
d(arr(i, 3)) = arr(i, 1) & vbTab & arr(i, 2) & vbTab & arr(i, 3) & vbTab & arr(i, 4) & vbTab & arr(i, 5) & vbTab & arr(i, 6) & vbTab & arr(i, 7)
m = m + 1
For j = 1 To 7
brr(m, j) = arr(i, j)
Next
End If
Next i
End If
Next
ghb:
iRow = Sheets("201609现金日记账").Cells(Rows.Count, "a").End(xlUp).Row + 1
Sheets("201609现金日记账").Range("a" & iRow).Resize(m, 7) = brr
For i = 4 To Sheets("201609现金日记账").Cells(Rows.Count, "a").End(xlUp).Row - 1
If i = 4 Then Cells(4, 8).Formula = "=rc[-2]-rc[-1]"
Cells(i + 1, 8).Formula = "=r[-1]c-rc[-1]"
Next
End Sub

复制代码

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

[求助] 如何实现“一对多”跨表的条件数据引用