高手帮忙看什么问题，很卡，转圈圈才出来

lansk888 · 发表于 2021-6-25 20:01

行只有2万多行，字典不至于这么卡吧

3190496160 · 发表于 2021-6-26 09:48

代码中没有见到任何字典的影子，见到的是直接操作单元格，速度肯定是有问题的，把数据区域赋值给数组，然后在数组中循环筛选符合条件的数据，速度就会快很多了

lansk888 · 发表于 2021-6-26 20:18

3190496160 发表于 2021-6-26 09:48
代码中没有见到任何字典的影子，见到的是直接操作单元格，速度肯定是有问题的，把数据区域赋值给数组，然后 ...

能否帮忙写个代码，我对VBA小白一个，现在刚开始学

3190496160 · 发表于 2021-6-27 08:06

你连具体的需求都没有说，想帮你也无从下手啊

lansk888 · 发表于 2021-6-27 13:07

3190496160 发表于 2021-6-27 08:06
你连具体的需求都没有说，想帮你也无从下手啊

就是双击单元格，弹出物料查询（模糊查找）找到相应的物料，然后鼠标双击就写到表里面，和发的附件一样，附件是双击，在输入关键字时卡，把这个卡改为字典或数组查询不卡就好了

3190496160 · 发表于 2021-6-27 13:55

Private Sub UserForm_Initialize()
ar = Sheets("物料").[a1].CurrentRegion
With ListBox1
.Clear
.ColumnCount = 5 '设置列数
For j = 1 To .ColumnCount
w = w & Sheet3.Cells(1, j).Width & ";"
Next
w = Left(w, Len(w) - 1)
.ColumnWidths = w
.ColumnHeads = False '是否显示列标题
.List = ar
End With
End Sub

3190496160 · 发表于 2021-6-27 13:55

来料登记表（如何解决输入关健字卡问题）.rar (1022.8 KB, 下载次数: 1)

3190496160 · 发表于 2021-6-27 13:56

只是修改了激活窗体时显示数据的代码，至于筛选的个人觉得没必要弄得如此复杂的，直接输入一个关键的汉字搜索即可

lansk888 · 发表于 2021-6-27 18:31

3190496160 发表于 2021-6-27 13:55

显示这个参数类型不符

3190496160 · 发表于 2021-6-27 23:42

lansk888 发表于 2021-6-27 18:31
显示这个参数类型不符

说过了，具体请看8楼提示吧

		自动登录	找回密码
密码			免费注册

高手帮忙看什么问题，很卡，转圈圈才出来

评分