[已解决]对象变量或with块变量未设置？

Pomelo1223

在退出商品文字框的同时，单价自动填入，可是 if d.exists(商品.value) then， 这句表示“对象变量或with”块变量未设置，有木有大神帮忙提示一下~~~感谢感谢！

最佳答案

月排行榜 / 总排行榜

ghostjiao

2017-3-28 10:13

1. Private Sub UserForm_Initialize()

复制代码

窗体名字搞错了，不是UserForm1

跳转到最佳答案楼层

雪舞子

未执行窗体初始化过程，字典没有被写入。
将初始化代码装入 Private Sub UserForm_Initialize() 即可。

ghostjiao

1. Private Sub UserForm_Initialize()

复制代码

窗体名字搞错了，不是UserForm1

Pomelo1223

ghostjiao 发表于 2017-3-28 10:13
窗体名字搞错了，不是UserForm1

如果改回Private Sub UserForm_Initialize()的话就显示找不到工程或库，我以为应该跟输入窗口的Captiny一致？
刚开始学习VBA，问题有点小白。。不好意思{:011:}

Pomelo1223

雪舞子 发表于 2017-3-28 10:11
未执行窗体初始化过程，字典没有被写入。
将初始化代码装入 Private Sub UserForm_Initialize() 即可。

Private Sub UserForm_Initialize()
Dim arr, x
日期 = Date
Set d = CreateObject("scripting.dictionary")
arr = Sheets("sheet3").Range("G2:H4")
For x = 1 To UBound(arr)
   d(arr(x, 1)) = arr(x, 2)
Next x
End Sub

这个是装入字典了吗？

Excel学徒123

Pomelo1223 发表于 2017-3-28 11:11
Private Sub UserForm_Initialize()
Dim arr, x
日期 = Date

对，装入字典

Pomelo1223

Excel学徒123 发表于 2017-3-28 11:27
对，装入字典

额，原本的Excel已经是装入字典的，所以这个应该不是装入字典的问题

Pomelo1223

ghostjiao 发表于 2017-3-28 10:13
窗体名字搞错了，不是UserForm1

哈哈，谢谢提醒，确实需要把1去掉。。
然后我找到问题的所在。。。需要在工具菜单-引用-在把“丢失的....”取消。。