gpt4 book ai didi

insert - VBA Excel 在大纲级别 3 上插入一行进入大纲级别 2

转载 作者:行者123 更新时间:2023-12-04 20:47:37 25 4
gpt4 key购买 nike

Here's the problem.当小计分组中只有一行时:

  • 插入的行没有进入正确的大纲级别。
  • 小计不会自动包含插入的单元格。

  • 这是插入行的代码(我之前定义过):
               For j = 2 To lEndRow * (1.5)
    If InStr(Cells(j, i), "Total") Then
    Cells(j - 1, i).EntireRow.Insert
    With Cells(j - 1, i)
    .EntireRow.Font.ColorIndex = 3
    .EntireRow.Interior.ColorIndex = 2
    End With
    Cells(j - 1, i).EntireRow.OutlineLevel = 2 ' This didn't work,
    ' it puts all the inserted rows at 2 but doesn't group it
    ' the subtotal.
    Cells(j - 1, i + 8) = "1% Discount within terms"
    Cells(j - 1, i + 24).FormulaR1C1 = "=Round((R[2]C[-8])*(.01),2)"
    j = j + 1
    End If
    Next

    我想这是一个简单的问题,如果你知道的话。我只是不知道,这让我很沮丧。祝我第一次发帖快乐,祝你节日快乐。

    最佳答案

    这是一个猜测,但我认为值得一试。

    来自 MS Help 的关于概述工作表

  • “要概述的数据应该在范围内,其中每一列在第一行都有一个标签并包含相似的事实,并且没有空白行或列[我的突出显示]在范围内。”

  • 在您设置大纲时,小计行是空白的,因此不能成为范围的一部分。尝试:
                 Cells(j - 1, i + 8) = "1% Discount within terms"
    Cells(j - 1, i + 24).FormulaR1C1 = "=Round((R[2]C[-8])*(.01),2)"
    Cells(j - 1, i).EntireRow.OutlineLevel = 2

    祝你好运。

    关于insert - VBA Excel 在大纲级别 3 上插入一行进入大纲级别 2,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8621002/

    25 4 0
    Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
    广告合作:1813099741@qq.com 6ren.com