模糊输入自动过滤，不错的版本

YZC51

FOB_FN_L 发表于 2020-1-17 01:39
论坛中有个浮动的提示框那种的，曾经看过~~

谢谢老师花花鼓励！

mxscgwh

学习谢谢分享

ysjjess

本表支持数字、字母（大小写都可以）、汉字过滤，同时做了二个工作表可用，因为想到有的人有入库单就有出库单，分开比较好，格式还不同好自己调整，本来想做一个进销存管理系统的，但本人小白，没法做，网上有好多EXCEL做的进销存，功能都比较强大，但在单据录入方面不够灵活，希望高手能把这样的版本做成进销存管理系统，分享出来。

补充内容 (2020-2-7 19:30):
在Private Sub Worksheet_SelectionChange(ByVal Target As Range)下面加入以下代码，全选工作表也不会出现错误提示
On Error Resume Next
暂时没发现有问题的地方了，现在觉得最不完美的是文本框各列不随着数据变动

YZC51

ysjjess 发表于 2020-1-27 12:20
本表支持数字、字母（大小写都可以）、汉字过滤，同时做了二个工作表可用，因为想到有的人有入库单就有出库 ...

请参考
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
    If Me.ListBox1.ListIndex <> -1 Then '从此行到下面的End If为：当前输入项无匹配项直接输入（-1表示无匹配值）
        For i = 0 To 2
            ActiveCell.Offset(0, i) = Me.ListBox1.List(Me.ListBox1.ListIndex, i)
        Next
    Else
        ActiveCell.Offset(0, 0) = TextBox1
        With Sheets("货品资料") '数据源工作表名称
            Myr = .[A65536].End(xlUp).Row + 1
            .Range("A" & Myr) = TextBox1
        End With
    End If
        ActiveCell.Offset(, 3).Select '输入数据后光标跳转到右边第三个单元格
    End If
End Sub

YZC51

附件请参考
单据模板-拼音模糊录入-3.rar (311.85 KB, 下载次数: 51)

2020-1-28 13:58 上传

点击文件名下载附件

ysjjess

YZC51 发表于 2020-1-28 13:58
附件请参考

谢谢！都搞定了

vexce

搭车涨见识 。