[已解决]定义一个全局变量，并进行区域赋值问题

yjwdjfqb

2.rar (5.28 KB, 下载次数: 9)

2014-4-24 12:29 上传

点击文件名下载附件



这样是不对的，请朋友们指点下，谢谢大家了！

定义一个　DataTable　变量　　并对这个赋值为　Sheets("测试").Range("C2:C5")　这个区域

我附件是不对

当我在整个工作工薄中代码中有　　DataTable　的地方就是代表　　Sheets("测试").Range("C2:C5")　这个区域区域

如，把　　DataTable　这个区域的字体加粗，应该怎么写代码，请朋友们指点下，谢谢大家了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-4-24 12:43

yjwdjfqb 发表于 2014-4-24 12:40
版主，那么　DataTable　的值这个变量

只能在　test1中使用了　　其它宏中可以吗

既然是全局的，那就是都可以使用了。
使用前，注意下是否赋值引用就成了，避免出错。

跳转到最佳答案楼层

hwc2ycy

set语句得放在过程里。

hwc2ycy

1. Option Explicit
   
2. 
   
3. Public DataTable As Range
   
4. 
   
5. Sub test1()
   
6.     Set DataTable = Sheets("测试").Range("C2:C5")
   
7.     MsgBox DataTable(0, 0)
   
8. End Sub
   

复制代码

yjwdjfqb

hwc2ycy 发表于 2014-4-24 12:38
public DataTable as range
sub test1()
set DataTable=Sheets("测试").Range("C2:C5")

版主，那么　DataTable　的值这个变量

只能在　test1中使用了　　其它宏中可以吗

set DataTable=Sheets("测试").Range("C2:C5")　　　这句可以放到工作薄事件中是吧，放到工作薄事件都，当前这个工作薄中据有的宏都能使用是吧

是不是　这样的　凡是要 set 进行赋值的　都要在模块中

像Public Const j  As String = "你好呀！"
Public Const y As Integer = 5
这样的就可以直接赋值



请老师指点，谢谢了！

hwc2ycy

yjwdjfqb 发表于 2014-4-24 12:40
版主，那么　DataTable　的值这个变量

只能在　test1中使用了　　其它宏中可以吗

既然是全局的，那就是都可以使用了。
使用前，注意下是否赋值引用就成了，避免出错。