将公式分配给与特定单元格相关的名称(名称管理器)
Assign formula to Name relating to certain cell (Name Manager)
我尝试通过 VBA 将公式分配给这样的名称(图片):
我知道手动怎么实现,但是宏怎么实现呢?
公式与单元格有关(并非所有链接都已锁定,当您手动操作时,您必须关注选定的单元格),这是将其投影到的最复杂的事情VBA.
有这段代码,帮我开始了:
Sub auto()
ThisWorkbook.Sheets("SF_{} {RU04}").Cells(204, 15).Select
ThisWorkbook.Names.Add Name:="Sometotal", _
RefersTo:="=IFERROR(VLOOKUP(H168,GIT!$M:$N6,2,0),0)"
End Sub
编辑: 我根据已接受的答案和评论中的指导解决了我的问题。
请尝试以下操作:
Sub NameRange_Add()
Dim RangeName As String
RangeName = "Sometotal"
ThisWorkbook.Names.Add Name:=RangeName, RefersToR1C1:="=IFERROR(VLOOKUP(R168C8,GIT!R93C13:R126C14,2,0),0)"
End Sub
我尝试通过 VBA 将公式分配给这样的名称(图片):
我知道手动怎么实现,但是宏怎么实现呢?
公式与单元格有关(并非所有链接都已锁定,当您手动操作时,您必须关注选定的单元格),这是将其投影到的最复杂的事情VBA.
有这段代码,帮我开始了:
Sub auto()
ThisWorkbook.Sheets("SF_{} {RU04}").Cells(204, 15).Select
ThisWorkbook.Names.Add Name:="Sometotal", _
RefersTo:="=IFERROR(VLOOKUP(H168,GIT!$M:$N6,2,0),0)"
End Sub
编辑: 我根据已接受的答案和评论中的指导解决了我的问题。
请尝试以下操作:
Sub NameRange_Add()
Dim RangeName As String
RangeName = "Sometotal"
ThisWorkbook.Names.Add Name:=RangeName, RefersToR1C1:="=IFERROR(VLOOKUP(R168C8,GIT!R93C13:R126C14,2,0),0)"
End Sub