如何设置全局变量

jimiho163 · 发表于 2010-10-21 17:50

如何设置全局变量

范围是该工作薄内每一个过程都可以调用的

camle · 发表于 2010-10-21 17:54

模块里用 public 声明就可以吧.

jimiho163 · 发表于 2010-10-21 18:04

谢谢camle老师的提示,举个简单的例子可以不.声明的格式是怎么的

yb010 · 发表于 2010-10-21 18:09

在模块第一行：
public myArr as string
就行了，这样myArr就是全局变量！

jimiho163 · 发表于 2010-10-21 18:11

谢谢 yb010的帮忙

yrysf · 发表于 2010-10-21 18:38

一个VB工程中可添加多个模块，但每个模块中声明的全局变量名不能重复，否则会产生二义性。

camle · 发表于 2010-10-22 08:57

赋值要放在sub里.

jimiho163 · 发表于 2010-10-22 08:48

谢谢 yrysf 老师的提醒
Public x As Integer
x = 1

Sub test ()

Dim sh As Worksheet
Set sh = Workbooks("test.xls").Sheets(1)
With Application.FileSearch
.LookIn = "G:\data\"
.Filename = "*.xls"
If .Execute() > 0 Then
For i = x To .FoundFiles.Count
Application.Workbooks.Open Filename:=.FoundFiles(i)
sh.Cells(x + 1, 3) = Sheets(1).Range("j2") - Sheets(1).Range("i2")
Workbooks(2).Close
Next i
End If
End With
Application.ScreenUpdating = True
End Sub

运行时提示
无效外部过程
是不是全局变量 x=1 这句设错地方了

[ 本帖最后由 jimiho163 于 2010-10-22 08:50 编辑 ]

jimiho163 · 发表于 2010-10-22 09:01

谢谢 camle老师的指导,差点又走错路了,原来要在sub里赋值
就是说随便在一个过程里赋值全部过程都是同一值了

jimiho163 · 发表于 2010-10-22 09:06

再请教老师们一打开工作薄就自动运行的变量初始化过程应该放在那里

		自动登录	找回密码
密码			免费注册