[已解决]【求助】单元格区域如何命名？

xdwy81129

下面是一个学习资料，我用了很多方法都没有做到给单元格区域命名，请老师赐教怎么做？？我假定区域为[a3:b6]

例1：要选择当前工作表中名为“Database”区域，然后将该区域向下扩展5行，可以使用下面的代码：Range("Database").Select

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-9 17:58

先定义名称aaaa或直接用代码生成名称：

Sub MMM()
Sheet1.[a3:b5].Name = "aaa"
Range("aaa").Select
End Sub

跳转到最佳答案楼层

lotte

SET Datebase=......

xdwy81129

QUOTE:

以下是引用lotte在2009-11-9 16:38:00的发言：
SET Datebase=......

我都试过的，不对，请直接指明或者实验。

Sub MMM()
Dim AAA As Object '或者用AAA As Range
Set AAA = [A3:B5]
Range("AAA").Select
End Sub

lotte

Sub MMM()

Set AAA = Range("A3:B5")

AAA.Select

End Sub

xdwy81129

QUOTE:

以下是引用lotte在2009-11-9 17:41:00的发言：

Sub MMM()

Set AAA = Range("A3:B5")

AAA.Select

End Sub

这个我知道，我说的是这种表示：（1楼）使用下面的代码：Range("Database").Select

雨狐

先定义名称aaaa或直接用代码生成名称：

Sub MMM()
Sheet1.[a3:b5].Name = "aaa"
Range("aaa").Select
End Sub

吕?布

Sub TTT()
    On Error Resume Next
    ThisWorkbook.Names("DataBase").Delete
    On Error GoTo 0
    ActiveWorkbook.Names.Add Name:="Database", RefersToR1C1:="=Sheet1!R3C1:R6C2"
    Range("DataBase").Select
End Sub

xdwy81129

QUOTE:

以下是引用雨狐在2009-11-9 17:58:00的发言：

先定义名称aaaa或直接用代码生成名称：

Sub MMM()
Sheet1.[a3:b5].Name = "aaa"
Range("aaa").Select
End Sub

呀，原来是这样思考的呀

只想成aaa=什么了

谢谢了，没有反应过来。。。。。。。。。。。

xdwy81129

QUOTE:

以下是引用吕?布在2009-11-9 18:00:00的发言：
Sub TTT()
    On Error Resume Next
    ThisWorkbook.Names("DataBase").Delete
    On Error GoTo 0
    ActiveWorkbook.Names.Add Name:="Database", RefersToR1C1:="=Sheet1!R3C1:R6C2"
    Range("DataBase").Select
End Sub

这个运行是错的

雨狐

QUOTE:

以下是引用xdwy81129在2009-11-9 18:03:00的发言：

这个运行是错的

这个更严谨，我只是说明一下大概的意思