[已解决]Excel 2003 VBA 问题

grf1973

设置一下属性。

spp0063

grf1973 发表于 2016-11-16 09:52
设置一下属性。

你好,
已经可以了,学习到了!

spp0063

grf1973 发表于 2016-11-16 09:52
设置一下属性。

你好,
请问这个程式码范围是否有错? "a6:a",谢谢

• Private Sub UserForm_Initialize()
•     Set d = CreateObject("scripting.dictionary")
•     With Sheets(1)
•         arr = .Range("a6:a" & .[a65536].End(3).Row)
•         For i = 1 To UBound(arr)
•             If Len(arr(i, 1)) Then d(arr(i, 1)) = ""
•         Next
•         brr = d.keys
•         Me.ListBox1.List = brr
•     End With
• End Sub
  

grf1973

没有啊，第一张表数据不是从第6行开始的吗？

spp0063

grf1973 发表于 2016-11-16 16:53
没有啊，第一张表数据不是从第6行开始的吗？

你好,
OK,学习了

lkk0063

grf1973 发表于 2016-11-16 09:52
设置一下属性。

grf1973 你好,
如果要设置可一次全部勾选的,如何设定?

grf1973

list加个“全部”，通过勾选“全部”，用代码实现全选。

lkk0063

grf1973 发表于 2016-12-26 10:57
list加个“全部”，通过勾选“全部”，用代码实现全选。

grf1973 你好,我还是有点不明白怎么设定, 能请你协助指导一下如何使用VBA

功能需求如下:
输入批号后, 于下栏自动带出批号相关资料, 在从上方按下勾选后, 自动将批号相关资料勾选

grf1973

找不到合适的事件，只好用双击事件。在列表框中双击第一条，会全部选中或不选中。

lkk0063

grf1973 发表于 2016-12-26 14:26
找不到合适的事件，只好用双击事件。在列表框中双击第一条，会全部选中或不选中。

测试后,可以使用, 谢谢!