vba - 根据单元格值更新文件路径

Question

我正在尝试将公式复制并粘贴到特定的单元格范围中。我的公式(如下所示)需要根据源工作簿中的单元格内容进行更新。在某些上下文中，下面的宏所在的 Excel 文件是由源工作簿(源单元格内容所在)中的宏打开的。

在这种情况下，源单元格将更新“May2017”。

Sub PullPUProj()

Range("D18:D104").Formula = "=IFERROR(OFFSET('[Athens_OperatingProjection_May2017.xlsx]Budget Detail'!$A$7,MATCH($A16,'[Athens_OperatingProjection_May2017.xlsx]Budget Detail'!$A$8:$A$284,0),MATCH('[Athens_OperatingProjection_May2017.xlsx]Budget Detail'!$BK$7,'[Athens_OperatingProjection_May2017.xlsx]Budget Detail'!$B$7:$CP$7,0)),0)"

End Sub

任何帮助或引用将不胜感激!!

Answer 1

假设单元格 A1 包含您想要用来代替“May2017”的文本。您可以通过关闭 "" 并添加 & [variable] & " 来重新打开公式来拆分公式。

Range("D18:D104").Formula = "=IFERROR(OFFSET('[Athens_OperatingProjection_" & A1 & ".xlsx]Budget Detail'!$A$7,MATCH($A16,'[Athens_OperatingProjection_" & A1 & ".xlsx]Budget Detail'!$A$8:$A$284,0),MATCH('[Athens_OperatingProjection_" & A1 & ".xlsx]Budget Detail'!$BK$7,'[Athens_OperatingProjection_" & A1 & ".xlsx]Budget Detail'!$B$7:$CP$7,0)),0)"

注意:如果您想拖动该公式但保留对 A1 的引用，则可能需要将 A1 引用设置为绝对引用(因此 $A $1)。