[已解决]复制过来不能用啦.

jds · 发表于 2015-12-12 09:17

本帖最后由 jds 于 2015-12-12 11:20 编辑

从无聊的疯子老师那里下载的，复制过来不能用啦.麻烦各位老师看看，谢谢

最佳答案

zjdh

2015-12-12 10:27

本帖最后由 zjdh 于 2015-12-12 10:29 编辑

你说的问题我没去测试。
其实问题还有：
1. TextBox1与TextBox2不匹配时，Listview的内容只随最后一个变化而筛选。
2. 刷新命令时Listview的内容与2个TextBox内容不匹配。
3. 资料名称可以模糊筛选，只输入一段首字母。

跳转到最佳答案楼层

zjdh · 发表于 2015-12-12 09:35

复制过来不能用啦.rar (26.23 KB, 下载次数: 2)

zjdh · 发表于 2015-12-12 09:38

原因是使用了Listview控件，需要引用Microsoft Windows Common Controls 6.0 (SP6) 。

jds · 发表于 2015-12-12 09:43

zjdh 发表于 2015-12-12 09:35

zjdh老师
1、UserForm4窗口只能提取【文件通知数据】工作表的数据。没有解决

2、如果UserForm4窗口在【设备】工作表打开，提取的也必须是【文件通知数据】工作表的数据. 没有解决

3、复制过来不能用，提示未定义类型。这个问题您给解决了

谢谢

zjdh · 发表于 2015-12-12 10:27

本帖最后由 zjdh 于 2015-12-12 10:29 编辑

你说的问题我没去测试。
其实问题还有：
1. TextBox1与TextBox2不匹配时，Listview的内容只随最后一个变化而筛选。
2. 刷新命令时Listview的内容与2个TextBox内容不匹配。
3. 资料名称可以模糊筛选，只输入一段首字母。

zjdh · 发表于 2015-12-12 11:09

查询.rar (34.32 KB, 下载次数: 3)

jds · 发表于 2015-12-12 11:18

zjdh 发表于 2015-12-12 11:09

老师您太厉害了，首先谢谢您。这些代码是我东凑西拼的，实在不会弄了，自学半年了有些东西确实不理解。再次谢谢您的帮助

For r3 = 2 To Sheets("文件通知数据").[A65536].End(xlUp).Row
         Set itm3 = .ListItems.Add()
         itm3.Text = Sheets("文件通知数据").Cells(r3, 1)
         For c3 = 1 To 8
            itm3.SubItems(c3) = Sheets("文件通知数据").Cells(r3, c3 + 1)

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