请教：定义一个公共数组，怎么定义啊？

Long_III

好了，终于试验出枚举怎么使用的了，呵呵，原来是这样的

Public Enum dd aa = 1 bb = 2 cc = 3 End Enum

Sub hjs() Dim a As dd a = aa Debug.Print a End Sub

FENGJUN

Split函数法：

Public Const arrj As String = "1,2,3"

Sub SplitDemo() Dim txt As String Dim x As Variant Dim i As Long txt = arrj x = Split(txt, ",") For i = 0 To UBound(x) Debug.Print x(i) Next i End Sub

[此贴子已经被作者于2005-8-19 16:17:37编辑过]

FENGJUN

怎么“2、用一个Function来”呢？

Long_III

怎么“2、用一个Function来”呢？ 就是说做一个自定义函数，这个自定义函数就等于这个数组，每次要调用的先调用自定义函数

[此贴子已经被作者于2005-8-19 16:24:50编辑过]

fchnipj

Sub SplitDemo() Dim txt As String Dim x As Variant Dim i As Long txt = "The Split function is versatile" x = Split(txt, " ") For i = 0 To UBound(x) Debug.Print x(i) Next i End Sub

我想问下，Debug.Print x(i)这个数值是存在什么地方的，还是说直接打印出来的？？

Long_III

在VBE里按ctrl+G，结果打印在立即窗口里

plxmm

在VBA窗口下的立即窗口里显示。

Long_III

各位朋友，谁用枚举比较多的，能否上传几个示例的代码让我看看啊

感觉使用的时候很受限制啊

mini5417

再提个菜鸟级问题：

为什么没有回答怎么定义公用数组呢？看帮助说可以用public定义公用数组的，可是运行却提示数组没有定义。尝试用public定义了一个动态数组，再事件过程中用redim定义了维数后没有提示错误，但是给数组赋的值却在另外的事件中无法使用了，还是提示没有定义，再定义一下赋的值就没有了。

原以为公用数组在一个事件中赋值后，在其他事件中也可以使用。因为公用变量就是这样，为什么数组就不行呢？还是我的理解有错误？

如果我的方法是错误的话，又该怎么办呢？

Long_III

可以定义公共数组，需要在模块里定义，看看你操作不成功的例子

跟这个题目的定义常量数组是不一样的