Question

Dim WorkRng As Range
Dim r As Range, rC As Range
Dim j, k As Long
Dim SplitRow As Integer

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set r = Nothing
Set rC = Nothing

j = 0
k = 0

Set r = WorkRng
For Each rC In r
    j = j + 1
    If j = r.Count Then Exit For
Next rC

SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)

k = j / SplitRow

这是我的代码，它将对行进行计数，并且行计数将除以输入值！但是我想做的是，如果行数是8并且输入值是2，则结果将是4，所以前4行应该是一种颜色，接下来的四行应该是另一种颜色！为了弄清楚，我需要用输入的颜色给行着色，输入将除以行的总和，并用答案将行着色。 Kindle帮我解决这个问题！

Answer 1

您可以尝试执行此循环-直到i等于所选范围中的可用行除以dateTimePicker。

请注意，SplitRow不能保留小数（不能计数4.5行）。 FormatRange将始终转换为整数，因此您可能希望对此进行控制，或者当您的除法运算结果不为整数时，您可能会得到不想要的结果。

FormatRange

我需要根据行数为行涂上不同的颜色

1 个答案: