Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: admin321

[已解决]请老师帮忙解决(窗体数据录入)难题'在线等~!!!

  [复制链接]
发表于 2011-9-7 16:54 | 显示全部楼层
学习下                        
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2011-9-7 18:09 | 显示全部楼层
admin321 发表于 2011-9-7 16:09
回复 zjdh 的帖子

难道与EXCEL2007不兼容?

现在不都可以了吗?
回复

使用道具 举报

发表于 2011-9-7 18:21 | 显示全部楼层
zll19860913 发表于 2011-9-7 16:38
回复 zjdh 的帖子

zjdh 老师,如果想要再增加3个关键字查询呢???

按如下修改,就可以任意检索分类1~分类3的字段,无论大小写都可以啦!
Private Sub TextBox1_Change()
    Dim ITM, arr, i%, j%, Y$
    Me.ListView1.ListItems.Clear
    With Sheets("资料")
        arr = .Range("B3:T" & .[B65536].End(3).Row)
    End With
    For i = 1 To UBound(arr)
        Y = UCase(arr(i, 1)) & " " & UCase(arr(i, 2)) & " " & UCase(arr(i, 3))
        If Y Like "*" & UCase(Me.TextBox1) & "*" Then
            Set ITM = ListView1.ListItems.Add()
        ITM.Text = arr(i, 1)
        For j = 1 To 18
            ITM.SubItems(j) = arr(i, j + 1)
        Next
        End If
    Next
    Label2 = "共发现数据:" & ListView1.ListItems.Count & " 条"
End Sub
回复

使用道具 举报

发表于 2011-9-7 18:27 | 显示全部楼层
回复 wsq7668 的帖子

请教引用控件的步骤~


请说下步骤谢谢!
回复

使用道具 举报

发表于 2011-9-8 12:29 | 显示全部楼层
回复 zjdh 的帖子

老师!

我把您写的代码,和窗体,

全部放到新的表格里,一运行就有错误提示?

是不是复制代码和导入窗体后,还有什么没做?

请老师指点~说下将代码转移到新表格里的过程!
回复

使用道具 举报

发表于 2011-9-8 13:09 | 显示全部楼层
我猜是你控件引用问题,看下图:
11.jpg
回复

使用道具 举报

发表于 2011-9-8 13:18 | 显示全部楼层
本帖最后由 zjdh 于 2011-9-8 13:19 编辑

还有数据源是否对:
With Sheets("资料")
        arr = .Range("B3:T" & .[B65536].End(3).Row)
End With
回复

使用道具 举报

发表于 2011-9-8 13:28 | 显示全部楼层
本帖最后由 zjdh 于 2011-9-8 13:29 编辑

你还得根据你的要求修改Listview的列标:
DH.gif
回复

使用道具 举报

发表于 2011-9-11 10:13 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复

使用道具 举报

发表于 2011-10-5 02:26 | 显示全部楼层
非常感谢你哈!呵呵!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 17:58 , Processed in 0.553758 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表