[求助]碰到错误类型13：类型不匹配

Der_Fluch

我在学下拉列表多选。看到论坛上上传了这个文件，就跟着学。但是现在遇到了点小问题，求大侠相助！
在 中我想把其中的数据与Sheet2表中数据相关联 ，原先VBA中是这么写的：

然后我改成了：

进行调试的时候就出现了以下问题：


详情请参见附件：
客户记录表（有问题）.zip (41.48 KB, 下载次数: 10)

2013-3-13 01:29 上传

点击文件名下载附件

另外，再请问有没有方法可以实现在这个多选框选定后自动在旁边算出来对应值？
如现在多选是这个样子：
，在Sheet2中德龙与中阳分别代表的有值： ，然后我想在多选选中德龙+中阳后，后面的那一栏能够自动加出来这个值： 。请问这在VBA中又该怎么实现啊？万分感激！！！！！！！！！！

zez

Private Sub UserForm_Initialize()
Dim Arr, i As Integer
Arr = Sheets("Sheet1").Range("A2:A5")
For i = 1 To UBound(Arr)
    ListBox1.AddItem Arr(i, 1)
Next
End Sub

Der_Fluch

zez 发表于 2013-3-13 07:53
Private Sub UserForm_Initialize()
Dim Arr, i As Integer
Arr = Sheets("Sheet1").Range("A2:A5")

谢谢，不过还是不行哎~显示Run-time error'9': Subscript out of range

hehex

Der_Fluch 发表于 2013-3-13 10:13
谢谢，不过还是不行哎~显示Run-time error'9': Subscript out of range

你要引用的单元格A2:A5 所在的工作表名字叫什么
Arr = Sheets("Sheet").Range("A2:A5") '<- 这语句的引号里就填什么，明白？
出现下标越界的原因应该是语句里的Sheet1 这张表其实是不存在的，一定是改了名字了。

Der_Fluch

hehex 发表于 2013-3-13 10:28
你要引用的单元格A2:A5 所在的工作表名字叫什么
Arr = Sheets("Sheet").Range("A2:A5") '

客户记录表（有问题）.zip (41.02 KB, 下载次数: 9)

2013-3-13 10:57 上传

点击文件名下载附件

您好，还是有问题的。给您看原文件吧~

zez

Private Sub UserForm_Initialize()'这里，你写的是Private Sub UserForm1_Initialize()
Dim Arr, i As Integer
Arr = Sheets("DataSource").Range("A2:A5")'这里，你写的是Arr = Sheet("DataSource").Range("A2:A5")
For i = 1 To UBound(Arr)
    ListBox1.AddItem Arr(i, 1)
Next
End Sub
写程序一定要认真！

Der_Fluch

zez 发表于 2013-3-13 12:29
Private Sub UserForm_Initialize()'这里，你写的是Private Sub UserForm1_Initialize()
Dim Arr, i As In ...

受教！！！但是我的窗口名字本身就是UserForm1,难道不应该是UserForm1_Initialize()么？可是这个问题还是木有解决啊。本人才接触VBA,望大神赐教！！！ 客户记录表（有问题）.zip (40.74 KB, 下载次数: 4)

2013-3-13 13:31 上传

点击文件名下载附件

hehex

Der_Fluch 发表于 2013-3-13 13:32
受教！！！但是我的窗口名字本身就是UserForm1,难道不应该是UserForm1_Initialize()么？可是这个问题还是 ...

Private Sub UserForm_Initialize() 是窗体事件的过程名，和你具体窗体叫啥名字无关。这个过程名是不可以改的。

Der_Fluch

hehex 发表于 2013-3-13 14:31
Private Sub UserForm_Initialize() 是窗体事件的过程名，和你具体窗体叫啥名字无关。这个过程名是不可以 ...

是这样的？不过我更改后还是错的。提示subscript out of range. Sheet的名字我也改为真正的Sheet名了

hehex

Der_Fluch 发表于 2013-3-13 14:54
是这样的？不过我更改后还是错的。提示subscript out of range. Sheet的名字我也改为真正的Sheet名了

参考附件。存成2003 格式了，我在公司，手头只有2003。
另外那个表，搞不定，格式太乱。