[已解决]请教怎样把窗体中的变量引用到模块中

zhouyuma

我在窗体命令按钮中建立一个数组：arrsh已设为全局变量了
Private Sub CommandButton1_Click()
    Dim arrsh As Variant
    arrsh = Array(TextBox1.Value, TextBox3.Value, TextBox5.Value, TextBox7.Value, TextBox9.Value, TextBox11.Value)
Unload Me
查看   ' 临时用的，原准备用来自制工作表的
End Sub


Sub 查看()
    For i = 0 To UBound(arrsh)
        If arrsh(i) <> "" Or arrsh(i) <> 0 Then
            MsgBox "第" & i + 1 & "数是：" & arrsh(i)
        End If
    Next i
End Sub
现在有两问题：
1、运行结果显示不匹配，请教怎样把窗体中的变量arrsh，引用到模块Sub 查看()中
2、组成这个数组的元素TextBox1～TextBox11有的可能为0或空，只查看不为空或0的元素。我把查看代码内容直接放到按钮代码中，不知道为什么不能把空或为0的元素过滤掉？
谢谢指教

最佳答案

月排行榜 / 总排行榜

zjdh

2014-10-7 09:45

zhouyuma 发表于 2014-10-6 22:44
因文件中代码较多，所以就没上传附件，需要我就费点事重做一个传上来吧，使用过程我在附近中说了，多谢 ...

附件1.rar (369.16 KB, 下载次数: 4)

2014-10-7 09:45 上传

点击文件名下载附件

跳转到最佳答案楼层

这儿有肥猫

1. 试试把arrsh改成，commandbutton1.arrsh
2. 自己做一个循环生成数组，比如controls("textbox"& i).value<>""

hwc2ycy

变量放在标准模块中声明。

hwc2ycy

直接上传个附件不更好。

zhouyuma

hwc2ycy 发表于 2014-10-6 22:10
直接上传个附件不更好。

因文件中代码较多，所以就没上传附件，需要我就费点事重做一个传上来吧，使用过程我在附近中说了，多谢帮忙

zjdh

zhouyuma 发表于 2014-10-6 22:44
因文件中代码较多，所以就没上传附件，需要我就费点事重做一个传上来吧，使用过程我在附近中说了，多谢 ...

附件1.rar (369.16 KB, 下载次数: 4)

2014-10-7 09:45 上传

点击文件名下载附件

zhouyuma

这儿有肥猫 发表于 2014-10-6 21:46
1. 试试把arrsh改成，commandbutton1.arrsh
2. 自己做一个循环生成数组，比如controls("textbox"& i).valu ...

大师傅，谢谢你支招，按你意思，我重设：arrshe为全局变量了（public arrshe As Variant，模块中设置的，窗体中不给设置）
Private Sub CommandButton1_Click()
    ‘Dim arrshe As Variant'这句我试了，有没有都一样，我怕与全局变量冲突，就没用
    arrshe = Array(TextBox1.Value, TextBox3.Value, TextBox5.Value, TextBox7.Value, TextBox9.Value, TextBox11.Value)
Unload Me
查看   ' 临时用的，原准备用来自制工作表的
End Sub


Sub 查看()
    Dim arrsh As Variant
    arrsh = CommandButton1.arrshe   'COPYSH.CommandButton1.arrshe
    For i = 0 To UBound(arrsh)
        If arrsh(i) <> "" Or arrsh(i) <> 0 Then
            MsgBox "第" & i + 1 & "数是：" & arrsh(i)
        End If
    Next i
End Sub
现问题：1、arrsh = CommandButton1.arrshe   '运行错误424,要求对象。改COPYSH.CommandButton1.arrshe’编译错误，方法和数据未找到。
2、我是菜鸟，循环生成数组我不会做，有葫芦有时能画个瓢，还请多指教，谢谢。

zhouyuma

zjdh 发表于 2014-10-7 09:45

回复了2楼，才看到你的答案，谢谢帮忙