模糊录入--基于EXCEL自动筛选功能++应用实例 0707更新

ldy · 发表于 2009-10-1 14:20

你所提到的双击的的代码，复制代码粘贴到编辑器里。

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListCount > 0 Then
      TextBox1.Visible = False
      If ListBox1.Text = "" Then ListBox1.ListIndex = 0
      TextBox1.TopLeftCell = Split(ListBox1, vbTab)(0)
      TextBox1.TopLeftCell(2, 1).Select
End If
End Sub

AVEL · 发表于 2009-10-1 20:22

第二个例子不错

值得好好学习

praijna · 发表于 2009-10-2 07:44

感谢版主的回复！
这段代码无法用在“快速录入”当中，请版主指教！

ldy · 发表于 2009-10-2 08:24

ldy快速录入.rar (64.07 KB, 下载次数: 85)

我这里没问题。

praijna · 发表于 2009-10-3 09:17

是的，版主，试用了您的附件，的确运行正常。感谢您！恭祝中秋快乐！

jie520 · 发表于 2009-10-10 21:27

如果多了怎么着，可以关键字选择录入吗？数据有就好，没有直接写入

xingye1001 · 发表于 2009-10-10 22:04

我真的很佩服,也想学学下

wenyaoqing · 发表于 2009-10-11 10:21

版主太厉害了，还得多多学习！！
我还是新手，问个简单问题，要想把这个功能实现到自己做的表格里应该怎么做呢？
直接把代码复制过去么？
我怎么弄过去提示用户定义类型未定义？

zjy58 · 发表于 2009-10-11 21:42

很佩服,也想学学下

yihesmxx · 发表于 2009-10-12 12:19

好东西，收藏学习了。

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

[分享] 模糊录入--基于EXCEL自动筛选功能++应用实例 0707更新

回复 636楼 praijna 的帖子