[已解决]请老师帮忙解决（窗体数据录入）难题'在线等~！！！

无聊的疯子 · 发表于 2011-9-7 13:34

回复 zjdh 的帖子

出错原因是 T列中的公式返回了错误值，所以在写入第19列的时候，发生了错误

但是不知道为什么你那里会没问题？？

无聊的疯子 · 发表于 2011-9-7 13:38

回复 zjdh 的帖子

给你看个我的图片

zjdh · 发表于 2011-9-7 13:40

原因找出来啦：
楼主T列的公式在2003可行

在2007不可行

无聊的疯子 · 发表于 2011-9-7 13:46

回复 zjdh 的帖子

他这个不是定义函数？？？

我在代码中没有发现代码！

或者说03的默认记录了值，重新打开的时候不会重新计算，而07和10的重新打开的时候要重新计算！所以就是错误值？？

zjdh · 发表于 2011-9-7 13:54

问题解决了：

窗体数据录入.rar (95.45 KB, 下载次数: 121)

long826121 · 发表于 2011-9-7 14:10

我很赞同15楼的！但我想提个意不知道可不可以？
关键字后面的文本框应该以分类2为标准，那样更合理？更具说服力！当输入别的类时最好提示“请输入分类2关键字”

zjdh · 发表于 2011-9-7 14:26

关键字改列简单，改一个字就行，输入别的列内容就不好说了，输错了没有显示即可：
Private Sub TextBox1_Change()
Dim ITM, arr, i%, j%
Me.ListView1.ListItems.Clear
With Sheets("资料")
      arr = .Range("B3:T" & .[B65536].End(3).Row)
End With
For i = 1 To UBound(arr)
      If arr(i, 2) Like "*" & 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

long826121 · 发表于 2011-9-7 14:30

回复 zjdh 的帖子

非常感谢你哈！呵呵！我不但学习了，更学习了怎么合理规划！非常你！

admin321 · 发表于 2011-9-7 16:09

回复 zjdh 的帖子

难道与EXCEL2007不兼容？

zll19860913 · 发表于 2011-9-7 16:38

回复 zjdh 的帖子

zjdh 老师，如果想要再增加3个关键字查询呢？？？
还有怎么修改成英文字母大小写都可以查询呢？？？

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