以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  Option Explicit 提示编译器错误 1024  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=25163)
--  作者：beensu
--  发布时间：2012/9/2 16:30:51
--  Option Explicit 提示编译器错误 1024
Option Explicit \\\' 要求在脚本中声明所有的变量
　　Dim Mystring

　　Mystring="This is my string"

提示编译器错误 1024

这个在金字塔vba里 如何表达
--  作者：guotx2010
--  发布时间：2012/9/2 21:26:16
--  

不能使用这个语句的，如果是模块中共用的变量，你可以在模块前面使用private定义，如果是过程中使用的变量，不定义也可以使用。

 

如：

private abc

 

sub test1()

    abc=10

    a1="aaaaaaa"

    appliation.msgout "只在test1过程中有效的变量a1:"&a1

end sub

 

sub test2()

    application.msgout "模块中都可以使用的变量:"&abc

    appliation.msgout "只在test1过程中有效的变量a1:"&a1

end sub

 

此例子中的abc变量是模块级的变量，所以在过程test1中赋值为10，在test2过程中显示出来依然是10，而test1中定义的变量a1，在test1中可见，而在test2中没有这个变量，显示的结果就是空字符了。

 

[此贴子已经被作者于2012-9-3 8:31:08编辑过]