困扰了我很久的问题, 如何设置一个全局区域?

cgx5871

模块顶端:  Public Const sTitle As String = "a11:z11"       '标题区

起初, 在This WorkBook的Open事件中

1. 
   
2. Private Sub Workbook_Open()
   
3.     Set aTitle = Range(sTitle)          '标题区域
   
4. End Sub

复制代码

但这个aTitle  各种丢失, ----调试出错, 对象就丢失. 又得重新Open

然后不得不专门设制一个函数来取得Range.

1. Public Const sTitle As String = "a11:z11"       '标题区
   
2. 
   
3. Function aTitle() As Range
   
4. Set aTitle = Range(sTitle)
   
5. End Function

复制代码

总感觉这样好繁琐,  是不是有更好的解决方案?

cgx5871

我只是想设制几个固定区域,  作为常量.
供给各个工作表通用.  

Chip_Kenny

直接定義名稱不就可以嗎

cgx5871

Chip_Kenny 发表于 2019-6-20 16:48
直接定義名稱不就可以嗎

名称不行,  每个工作表还得设一个名称.
我是多个工作表, Range地址一样.

Chip_Kenny

上個模擬附件, 說明下需要, 看看

cgx5871

Chip_Kenny 发表于 2019-6-20 18:56
上個模擬附件, 說明下需要, 看看

这个需求很简单呀,  就是1-12月的报表.  每个工作表的样式和格式是相同的.
模块里很多公式都要引用ActiveSheet的同一地址.  比如:  Range("a9:z9")
意思就是上面的地址能不能设成一个常量,  类似:  set rng=ActiveSheet.Range("a9:z9").   方便调用.

Chip_Kenny

1. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   
2. Dim rng As Range
   
3. Set rng = ActiveSheet.[a9:z9]
   
4. End Sub

复制代码

microyip

建立类来，当类似调试出错并停止执行时，对应类就可能丢失，但再次使用时，利用类的初始化功能就可能重新调用了。
附上附件以供参考

fanyoulin

既然是固定区域，是不是全局变量其实没关系，直接在代码中写上“a11:z11”这个固定的区域就可以了。
直接写上固定的区域与把这个固定区域设置为全局常量我认为没区别。

cgx5871

fanyoulin 发表于 2019-6-21 08:30
既然是固定区域，是不是全局变量其实没关系，直接在代码中写上“a11:z11”这个固定的区域就可以了。
直接 ...

有的时候,  表格的样式,  需要调整.
没有一个常量.  就要改动所有的代码的这个地址了.