使用CreateNames表单名称vba

我在用

ActiveCell.CurrentRegion.CreateNames top:=True, left:=False 

这对命名顶部的列是有效的。 我需要使这些命名的范围本地的工作表。 有没有办法做到这一点与CreateNames而不是Names.Add？

任何帮助将不胜感激。

Answer 1

默认情况下，由CreateNames创build的名称范围是“工作簿”

你是这个意思吗？

 ActiveCell.CurrentRegion.Name = ActiveSheet.Name & "!" & _ ActiveCell.Offset(-1).Value 

逻辑是直接使用Activesheet的名称命名，以便作用域保留在相关表单中。 另外我使用.Offset来补偿top:=True 。 你将不得不相应地改变。

你也可以使用

 ActiveCell.CurrentRegion.Name = ActiveSheet.Name & "!" & _ Range(ActiveCell.CurrentRegion.Address).Cells(1, 1).Value 

我们需要理解top:=True将通过使用顶行中的标签来创build名称。 所以我假设第一个单元格有文本值。