vba - 为什么我的条件格式在用VBA添加时会偏移？

Question

我试图添加这样的条件格式:

If 表达式 =($G5<>"")然后将设置内部设置为绿色，使用此价格为 $A$5:$H$25。

尝试了这个，工作正常，正如预期的那样，然后尝试使用以下代码将其改编为 VBA 代码，该代码可以工作，但不符合预期:

With ActiveSheet.UsedRange.Offset(1)
  .FormatConditions.Delete
  'set used row range to green interior color, if "Erledigt Datum" is not empty
  With .FormatConditions.Add(Type:=xlExpression, _
                             Formula1:="=($" & cstrDefaultProgressColumn & _
                                                      .row & "<>"""")")
        .Interior.ColorIndex = 4
      End With
End With

问题是，.row在调试时提供正确的行，但是我添加的条件公式似乎缺少一行或多行 - 取决于我设置行的解决方案。因此，我最终得到了条件格式，它具有到应该已格式化的行的偏移​​量。

在对话框中，它是 =($G6<>"")或 G3 或 G100310 或类似的东西。但不是我想要的 G5。

将行必须设置为动态的，因为这用于在不同的工作表上设置条件格式，这些工作表的数据可以从不同的行开始。

我怀疑我的With安排，但并没有解决这个问题。

编辑:更具体地说，这不是一个UsedRange问​​题，有同样的问题:

Dim rngData As Range
Set rngData = ActiveSheet.Range("A:H") 'ActiveSheet.UsedRange.Offset(1)

rngData.FormatConditions.Delete

With rngData.FormatConditions.Add(Type:=xlExpression, _
                                  Formula1:="=($" & cstrDefaultProgressColumn & _
                                                  1 & "<>"""")")
    .Interior.ColorIndex = 4
End With

我的数据如下所示:

1 -> empty cells
2 -> empty cells
3 -> empty cells
4 -> TitleCols -> A;B;C;...;H
5 -> Data to TitleCols
. .
. .
. .
25

当我在 Excel 2007 上执行此编辑的代码并在条件对话框中查找公式时，它是 =($G1048571<>"") - 应该是=($G1<>"") ，然后一切正常。

更奇怪的是 - 这是一个良好工作代码的编辑版本，它用于为每一行添加条件格式。但后来我意识到，可以编写一个表达式来格式化整行或部分行 - 认为这会在一分钟内进行调整，现在是这个 ^^

编辑: 其他任务信息

我在这里使用条件格式，因为这个函数应该设置一个表来对用户输入使用react。因此，如果正确设置并且用户编辑此表格的条件化列中的某些单元格，则所使用的行范围的相应行将变为绿色。

现在，因为主标题行之前可能有行，并且可能有不同数量的数据列，而且目标列可能会发生变化，所以我当然会使用一些特定信息。

为了保持最小化，我使用 NamedRanges 来确定正确的偏移量并确定正确的 DefaultProgessColumn 。

GetTitleRow用于通过 NamedRange 或 header-contents 确定 header-row。

With ActiveSheet.UsedRange.Offset(GetTitleRow(ActiveSheet.UsedRange) - _
                                ActiveSheet.UsedRange.Rows(1).row + 1)

更正了我的 Formula1，因为我发现之前的构造格式不正确。

Formula1:="=(" & Cells(.row, _
           Range(strMatchCol1).Column).Address(RowAbsolute:=False) & _
           "<>"""")"

strMatchCol1 - 是范围的名称。

Answer 1

明白了，哈哈。在进行繁重工作之前设置 ActiveCell...

ActiveSheet.Range("A1").Activate

Excel 正在拉动其自动范围调整，当添加 FromatCondition 时，该调整会导致公式失效。