在VBA中对名称的基本操作.docVIP

在VBA中对名称的基本操作(1) 创建名称 可以使用下面的代码在当前工作簿中创建名称：ActiveWorkbook.Names.Add Name:=MyName, RefersToR1C1:==Sheet1!R2C2:R6C4或者ActiveWorkbook.Names.Add Name:=MyName, RefersTo:==Sheet1!$B$2:$D$6上面的代码在当前工作簿中将工作表Sheet1内的区域B2：D6命名为MyName，该名称为全局名称。在所命名的名称中不能出现空格和单元格引用，并且，如果对命名区域使用A1样式的引用，则最后使用绝对引用，否则所命名的区域将会不确定。在所命名的名称前加上工作表名，则创建局部名称，如：ActiveWorkbook.Names.Add Name:=Sheet1!MyName1, RefersTo:==Sheet1!$B$2:$D$6上面的代码在工作表Sheet1中命名区域B2:D6为MyName1，该名称为局部名称。也通过引用指定工作表来创建局部名称，如：Worksheets(sheet2).Names.Add Name:=MyName2, RefersTo:==Sheet2!$A$1:$B$3上面的代码在工作表Sheet2中创建一个局部名称MyName2，代表Sheet2中的单元格区域A1：B3。 一种简单的命名方法。例如：Worksheets(Sheet1).Range(B8:C10).Name = MyName3上面的代码将工作表Sheet1中的单元格区域B8:C10命名为MyName3，为全局名称。Worksheets(Sheet2).Range(H15:G16).Name = Sheet2!MyName4上面的代码将工作表Sheet2中的单元格区域H15:G16命名为MyName4，为局部名称。注意，这种方法只能应用于命名单元格区域，不能够用来命名公式、数字等。 在当前工作表中命名局部区域，该区域为其它工作表中的单元格区域。Worksheets(Sheet1).Range(E6:F8).Name = Sheet2!MyName5或者：Worksheets(sheet2).Names.Add Name:=MyName5, RefersTo:==Sheet1!$E$6:$F$8上面的代码在工作表Sheet2中命名工作表Sheet1中单元格区域E6:F8为MyName5，该名称为Sheet2中的局部名称。 命名数字Names.Add Name:=NameNumber, RefersTo:=666，将数字666命名为NameNumber。 命名字符串Names.Add Name:=NameString, RefersTo:=TV，将字符串TV命名为NameString。 命名数组Dim MyArray(10)Dim i As IntegerFor i = 1 To 10?? MyArray(i) = iNext iNames.Add Name:=NameArray, RefersTo:=MyArray上述代码先对数组赋值，然后指定名称。 命名公式Names.Add Name:=NameFormlas, RefersTo:==OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),1)上面的代码命名了一个公式，可以用来创建动态表格或引用动态的区域。使用上面的方法来命名数字、字符串、数组或公式存储经常要使用的值，比将该值存放在单元格中更有优势，它可以避免该值被易外修改并减少了对象的引用。 (2) 重命名已有的名称Worksheets(Sheet2).Names(MyName5).Name = MyName6上面的代码将工作表Sheet2中的局部名称MyName5改名为MyName6。但这种方法只能在单元格或单元格区域中进行重命名使用，而不能重命名代表公式、数组和字符串的名称。 (3) 改变所选区域所命名的名称的引用区域Worksheets(“Sheet1”).Names.Add Selection.Name.Name,Sheet1.Range(“B3:C4”)上面的代码将原来所选区域的名称的引用区域改为单元格区域B3:C4，即该名称所代表的区域已变为B3:C4，原来命名区域名称被取消。 (4) 提取命名区域。使用Evaluate方法，例如：代码Evaluate(MyName).Interior.ColorIndex = 3将工作表中名称MyName所代表的单元格区域的背景设置为红色。 (5) 隐藏名称Names.Add Name:=HideName, RefersT