工作簿中的多个客户工作表怎样把余额汇总到一张表里

zfynf

做的应收账款的表格，每个客户一个工作表，每个表里行数不一样，有些有运费有些没有，怎么样把这些工作表汇总应收款余额到一张表里呢，只需要余额，要变动每个表格能自动更新总表金额，现在都是手动粘进去的，有时候会出错，无法校对，上传附件 附件 应收账款及明细.rar (79.39 KB, 下载次数: 36)

2018-12-4 15:29 上传

点击文件名下载附件

zfynf

没有人吗  求高手解答

zfynf

自己做的是这样的，我现在需要的就是应收账款合计栏的金额能从明细表余额直接引用过来，能有什么公式吗？求助 应收款.rar (8.81 KB, 下载次数: 5)

2018-12-5 10:37 上传

点击文件名下载附件

zfynf

朱荣兴 发表于 2018-12-4 21:55
1、余额所在列每个工作表不相同，就有些麻烦，
2、关键是你没有提供一个汇总表的样式，不知道你需要如何汇 ...

附件上传了

liangmutou01

应能达到你的要求，注意：1，明细表和应收款表要放在同一文件夹内且明细表不要打开；2，现在用的文件名为 附件 应收账款及明细.xlsx，具体用时留神，否则要出错。

zfynf

liangmutou01 发表于 2018-12-5 15:58
应能达到你的要求，注意：1，明细表和应收款表要放在同一文件夹内且明细表不要打开；2，现在用的文件名为  ...

压缩文件解压不了

liangmutou01

在我机子上没问题呀，再发一个吧。

zfynf

liangmutou01 发表于 2018-12-5 20:20
在我机子上没问题呀，再发一个吧。

下载下来看不出什么，只能看到设了个宏按钮，具体应该怎么操作呢

liangmutou01

点击“登记应收账款”按钮，没有反应，还是还是什么状况。那我把代码给你：

Private Sub CommandButton1_Click()
  Application.ScreenUpdating = False
  Dim wb As Workbook
  On Error Resume Next
  Set wb = Workbooks.Open(ThisWorkbook.Path & "\附件 应收账款及明细.xlsx") '注意文件名
  ActiveWindow.Visible = False
  For ysh = 4 To 65536
    If Cells(ysh, 1) = "合计" Then Exit For
    With wb.Sheets("" & Cells(ysh, 1) & "")
      If .Name <> Cells(ysh, 1) Then
        MsgBox "明细表中无  " & Cells(ysh, 1) & "  ,忽略。", , "提示"
        GoTo abc
      End If
      L = .Cells.Find("余额").Column
      h = .Cells(65536, L).End(xlUp).Row
      If IsNumeric(.Cells(h, L)) Then Cells(ysh, "k") = .Cells(h, L)
    End With
abc: Next ysh
  wb.Close False
  Application.ScreenUpdating = True
End Sub