Excel,如果在VBA中记录时单元格引用公式发生更改

Excel,如果在VBA中记录时单元格引用公式发生更改,vba,excel,reference,excel-formula,Vba,Excel,Reference,Excel Formula,我有一个宏可以正常工作。我正在向其中添加一个公式,用于描述工作簿的状态,以供其他人查看。当我将实现公式的宏记录到工作表中时,VBA使用相对引用记录它,即使我没有选择“相对引用”按钮。相对引用不正确,因此我需要修复它。我查看了这篇文章(),现在我想我应该用一些VBA参考代码来调整公式,但我不确定这篇文章使用的内容是否适合我。我走的方向对吗 Excel公式: =IF(Selections!K2="","Not prepped","Prepped") 当记录到VBA中时: ActiveCell.Fo

我有一个宏可以正常工作。我正在向其中添加一个公式,用于描述工作簿的状态,以供其他人查看。当我将实现公式的宏记录到工作表中时,VBA使用相对引用记录它,即使我没有选择“相对引用”按钮。相对引用不正确,因此我需要修复它。我查看了这篇文章(),现在我想我应该用一些VBA参考代码来调整公式,但我不确定这篇文章使用的内容是否适合我。我走的方向对吗

Excel公式:

=IF(Selections!K2="","Not prepped","Prepped")
当记录到VBA中时:

ActiveCell.FormulaR1C1 = _
    "=IF(Selections!R[-41]C[-1]="""",""Not prepped"",""Prepped"")"
我在VBA代码中需要什么:

ActiveCell.FormulaR1C1 = _
    =IF(Selections!K2="""",""Not prepped"",""Prepped"")

好的,那么这就是你的答案:

dim rng as range

set rng = thisworkbook.sheets("Sheet1").range("L5")
rng.Formula = "=IF(Selections!K2="""",""Not prepped"",""Prepped"")"

好的,那么这就是你的答案:

dim rng as range

set rng = thisworkbook.sheets("Sheet1").range("L5")
rng.Formula = "=IF(Selections!K2="""",""Not prepped"",""Prepped"")"

你的意思是ActiveCell.Formula=“=IF(Selections!K2=“”,“Not prepped”,“prepped”“)”是否有一个特定的单元格要将消息填充到其中?@area9我是,我编辑了我的帖子。Matt Cremeens我希望它填充到单元格L5中你是指ActiveCell.Formula=“=IF(Selections!K2=“”,“Not prepped”,“prepped”“)”是否有一个特定的单元格希望消息填充到其中?@area9我是,我编辑了我的帖子。Matt Cremeens我想让它填充到单元格L5中当你了解他们时事情才简单:)当你了解他们时事情才简单:)