跨表提单元格金额

gwjkkkkk

xing_chen 发表于 2023-2-6 20:10
老师，我将数据补齐了，附在下面。有空看看！谢谢！

看你的代码应该是找到合计，然后将合计对应的E例值写入对应单元格，但工作表中无合计无法汇总
1.如加入合计，你这代码也有问题，参考
Sub kdy()
For Each sht In Sheets
    If VBA.IsNumeric(sht.Name) Then
        n = Sheets(sht.Name & "B").Cells(Rows.Count, 2).End(xlUp).Row
        For i = 1 To n
            If Sheets(sht.Name & "B").Range("b" & n) = "合计" Then
                sht.Range("e2") = Sheets(sht.Name & "B").Range("e" & n)
            End If
        Next
    End If
Next
End Sub

xing_chen

高个子 发表于 2023-2-6 21:04
你原本有小计但是现在没有，当然没反应了

谢谢老师！那么，怎么在“B"表上也显示小计金额呀？

xing_chen

高个子 发表于 2023-2-6 21:04
你原本有小计但是现在没有，当然没反应了

为什么没有反应
Sub test()
    For Each sht In Sheets
        If VBA.IsNumeric(sht.Name) Then
            i = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
                ActiveSheet.Cells(i, 5) = WorksheetFunction.Sum(Range("e2:e" & i))
                sht.Range("e2") = ActiveSheet(sht.Name & "B").Range(i, 5)
        End If
    Next
End Sub

xing_chen

xing_chen 发表于 2023-2-6 22:27
谢谢老师！那么，怎么在“B"表上也显示小计金额呀？

为什么没有反应；
Sub kdy¸Ä1()
    For Each sht In Sheets
        If VBA.IsNumeric(sht.Name) Then
            i = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
                ActiveSheet.Cells(i, 5) = WorksheetFunction.Sum(Range("e2:e" & i))
                sht.Range("e2") = ActiveSheet(sht.Name & "B").Range(i, 5)
        End If
    Next
End Sub

xing_chen

xing_chen 发表于 2023-2-6 22:27
谢谢老师！那么，怎么在“B"表上也显示小计金额呀？

发了代码，网上怎么审核这么久呀

xing_chen

xing_chen 发表于 2023-2-6 22:43
发了代码，网上怎么审核这么久呀

老师！错在哪里？帮忙指出。谢谢

高个子

xing_chen 发表于 2023-2-6 22:27
谢谢老师！那么，怎么在“B"表上也显示小计金额呀？

1. Sub kdy()
   
2. For Each sht In Sheets
   
3.     If VBA.IsNumeric(sht.Name) Then
   
4.         sht.Range("e2") = Application.WorksheetFunction.Sum(Sheets(sht.Name & "B").Range("e:e"))
   
5.     Else
   
6.         sht.Range("e" & sht.Cells(Rows.Count, 5).End(xlUp).Row + 1) = Application.WorksheetFunction.Sum(sht.Range("e:e"))
   
7.         sht.Range("b" & sht.Cells(Rows.Count, 2).End(xlUp).Row + 1) = "合计"
   
8.     End If
   
9. Next
   
10. End Sub
    

复制代码

你多说一句绿色的都要自动生成我就不会误会了……

xing_chen

高个子 发表于 2023-2-6 23:35
你多说一句绿色的都要自动生成我就不会误会了……

谢谢老师！运行如愿!您帮了我的大忙呀！我折腾了1小时还没有成功，刚看见。你说的对，那绿色的合计数画蛇添足，给老师添麻烦，也给自己折腾。谢谢！现在表格的流程可以继续下去了

xing_chen

gwjkkkkk 发表于 2023-2-6 21:30
看你的代码应该是找到合计，然后将合计对应的E例值写入对应单元格，但工作表中无合计无法汇总
1.如加入 ...

谢谢老师！刚看见！