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

我正在尝试添加范围名称以使电子表格ADA兼容。 我已经尝试了下面的代码;

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

当条目出现在名称pipe理器中时，它不会出现在电子表格的名称框中。 我在互联网search方面没有成功，希望有人能指点我的方向。 我感谢您能给我的任何帮助。

Answer 1

我认为你的R1C1参考是无效的，这就是为什么它不会出现。 我testing了你的代码，并有同样的问题。 显式设置范围如下所示：

 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调用之外的范围，您可以更轻松地select正确的范围