引用命名区域

下例引用了名为“MyBook.xls”的工作簿中的名为“MyRange”的单元格区域。

Sub FormatRange()

Range(\"MyBook.xls!MyRange\").Font.Italic = True End Sub

下例引用名为“Report.xls”的工作簿中的特定工作表单元格区域“Sheet1!Sales”。

Sub FormatSales()

Range(\"[Report.xls]Sheet1!Sales\").BorderAround Weight:=xlthin End Sub

若要选定命名区域，请用 GoTo方法，该方法将激活工作簿和工作表，然后选定该区域。

Sub ClearRange()

Application.Goto Reference:=\"MyBook.xls!MyRange\" Selection.ClearContents End Sub

下例显示对于活动工作簿将如何编写相同的过程。

Sub ClearRange()

Application.Goto Reference:=\"MyRange\" Selection.ClearContents End Sub

在命名区域中的单元格上循环

下例用 For Each...Next 循环语句在命名区域中的每一个单元格上循环。如果该区域中的任一单元格的值超过limit 的值，就将该单元格的颜色更改为黄色。

Sub ApplyColor()

Const Limit As Integer = 25 For Each c In Range(\"MyRange\") If c.Value > Limit Then

c.Interior.ColorIndex = 27 End If Next c End Sub

上页：Excel VBA教程：引用多个单元格区域 下页：Excel VBA教程：引用行和列

Excel VBA教程：引用命名区域 Excel VBA教程：引用行和列

Excel VBA教程：按索引编号引用工作表

Excel VBA教程：按名称引用工作表Excel VBA教程：返回集合中的对象

Excel VBA教程：将文档保存为 Web 页Excel VBA教程：选定和激活单元格

Excel VBA教程：代码运行时使用控件值Excel VBA教程：设置控件属性

Excel VBA教程：在工作表上使用 ActiveX 控Excel VBA教程：Application对象事件的用

件法

Excel VBA教程：嵌入图表事件的用法

Excel VBA教程：在文档中使用 ActiveX 控

件

Excel VBA教程：使用 Microsoft Excel对

象事件的方法

Excel VBA教程：在窗体上使用 Microsoft

Office Web 组件

Excel VBA教程：QueryTable对象事件的用

法

Excel VBA教程：在 Visual Basic 中使用

Microsoft Excel 工作表函数

Excel VBA教程：工作簿对象事件

Excel VBA教程：处理三维区域

Excel VBA教程：处理图形（绘图对象）

Excel VBA教程：处理活动单元格

Feiesoft.com - VBA教程 - Excel VBA教程 - 引用命名区域