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
我想如果你知道这是一个简单的问题。我只是不知道它,这让我非常沮丧。祝我愉快的第一篇文章和祝你节日快乐。
答案 0 :(得分:1)
这是猜测,但我认为值得一试。
来自MS帮助的关于概述工作表
在设置轮廓时,子总行为空,因此不能成为范围的一部分。尝试:
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
祝你好运。