1

我正在开发一个成本核算系统，该系统将根据我在宏中的过滤条件将行项目从数据库中提取出来。它将这些行项目拉到另一个工作表上并将它们分组为部分。因此，对于每个系统，这些部分大小可能是不同的大小，每次的行数都不同。我需要的是每个部分下方的小计行，但我无法让公式正常工作，因为这些部分可以改变大小，公式不断不同。我需要 excel 中的 AutoSum 函数，但我需要能够将其放入宏中，但我不知道该怎么做。下面是我用来添加我的第一个小计行的代码。最后会有大约 5 个不同的部分，所以会有 5 个不同的小计，我还需要一个总体总计，我 我不知道该怎么做，因为就像我说的这些部分可能会定期改变大小。任何帮助深表感谢。

'To add subtotal
    Range("B11").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(2, 0).Select
        Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveCell.FormulaR1C1 = "Subtotal"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 2).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 3).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
4

0 回答 0