求教: 全局常量的声明位置. 语法

cgx5871

频繁引用一个Range.  位置是每个工作表的  [A5:Z9]注:  每个工作表的样式相同.  引用位置也相同.=ActiveSheet.Range("A5:Z9")
需求:
1. 每个工作表都要引用这个位置
2. 模块也要引用这个位置.   是当前激活的工作的[A5:Z9]
-------------
比如:
Public  Are As Range=ActiveSheet.Range("A5:Z9")
问题:
是放在模块,  还是WorkBook  Oper/Activate 还是单独的每个WorkSheet?
具体的语法结构要怎么写?

liulang0808

public 放在模块顶部
不过ActiveSheet.Range("A5:Z9")这个随着激活表的不同，意义不一样的
楼主可以定义一个常量，用来保存Range("A5:Z9").address吧，然后再调用

cgx5871

liulang0808 发表于 2018-7-9 07:31
public 放在模块顶部
不过ActiveSheet.Range("A5:Z9")这个随着激活表的不同，意义不一样的
楼主可以定义 ...

1. Public FilterAreas As Range
   
2. Set FilterAreas = ActiveSheet.Range("a9:z365")
   
3. Sub bb()
   
4.     FilterAreas.Select
   
5. End Sub

复制代码

这段代码, 放在哪都提示编译错误.
具体要怎么书写呢?

不知道为什么

cgx5871 发表于 2018-7-9 12:23
这段代码, 放在哪都提示编译错误.
具体要怎么书写呢?

Public FilterAreas As Range
Sub bb()
    Set FilterAreas = ActiveSheet.Range("a9:z365")
    FilterAreas.Select
End Sub

cgx5871

不知道为什么 发表于 2018-7-9 12:26
Public FilterAreas As Range
Sub bb()
    Set FilterAreas = ActiveSheet.Range("a9:z365")

这个是模块里,
那我每个工作表都要引用这个位置.  要怎么设?就是说每个工作, 很多地方都会引用这个位置.( 当前激活工作的range)
有没有办法, 调成一个全局变量.
模块, 工作表.  共用.
引用位置就是---当前激活工作表的[a:z]

liulang0808

cgx5871 发表于 2018-7-9 12:23
这段代码, 放在哪都提示编译错误.
具体要怎么书写呢?

Public Const FilterAreas = "a9:z365"

Sub bb()
    Range(FilterAreas).Select
End Sub

cgx5871

liulang0808 发表于 2018-7-9 13:53
Public Const FilterAreas = "a9:z365"

Sub bb()

尝试在:
1.  WorkBook中添加代码:

1. Private Sub Workbook_Open()
   
2. Set FilterAreas = Range("a9:z365")
   
3. End Sub

复制代码

2. 在每个WorkSheet中添加代码:

1. 
   
2. Private Sub Worksheet_Activate()
   
3. Set FilterAreas = Range("a9:z365")
   
4. End Sub

复制代码

好像可以用了.

cgx5871

1. 在thisworkbook中添加:
Private Sub Workbook_Open()
    Set FilterAreas = Range("a9:z365")
2. 在每个worksheet中添加:
Private Sub Worksheet_Activate()
    Set FilterAreas = Range("a9:z365")
End Sub
============
暂时可以用.