Question

我正在尝试添加范围名称以使电子表格符合ADA。我试过下面的代码;

    ActiveWorkbook.Names.Add Name:="On_Draft_List_D", RefersToR1C1:=("Sheet1!R1C1:R" & LastRow - 35 & "C1")
    ActiveWorkbook.Names("On_Draft_List_D").Comment = ""

虽然条目确实出现在名称管理器中，但它不会出现在电子表格的名称框中。我的互联网搜索没有成功，希望有人能指出我正确的方向。我感谢你能给我的任何帮助。

Answer 1

我认为您的R1C1参考无效，这就是它不会出现的原因。我测试了你的代码并遇到了同样的问题。明确设置范围如：

Dim cell As Range
Set cell = Range("A1:B3")
ActiveWorkbook.Names.Add Name:="On_Draft_List_D", RefersTo:=cell
ActiveWorkbook.Names("On_Draft_List_D").Comment = ""

效果更好。 RefersTo参数可能更容易使用，通过设置.Add调用之外的范围，您可以更容易地选择正确的范围

excel vba，为ADA合规性添加范围名称

1 个答案: