在EXCEL里，用条形码扫描枪筛选文件，并标注红色及语音提示

f359350181

背景说明，办公室里有很大一堆文件，每个文件都有编号和一个条形码，条形码=编号
如图，A列编号，是我需要找出的文件，我在B列，用条形码扫描枪，扫文件编号，自动检查是不是我需要的文件，
如果和A列中的某一个单元格的编号一样（如果是我需要的文件），那么就在A列里显示红色，并且有"OK"语音提示，反之则提示"NO"
备注:
1，在B列扫描时，扫完一个条形码，判断一个
2，语音文件我已准备好，
3，在判断编号是否一致时，要求必须所有位数必须和A列的编号一致，




例: A列是数据源，在B列输入某个值，判断是否和A列中的一致，若一致，就标注红色背景。

shiruiqiang

用find查找吧

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.colum = 2 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    r = Cells(Rows.Count, 1).End(xlUp).Row
    Dim rn As Range
    Set rn = Range("a1:a" & r).Find(T.Value, , , , , , 1)
    If Not rn Is Nothing Then
        rn.Interior.ColorIndex = 3
        CreateObject("SAPI.SpVoice").Speak "ok" 'Range("D11").Value   '调用系统语音
        DoEvents
    End If
End If
End Sub

3190496160

3190496160

筛选文件编号并标色.rar (68.23 KB, 下载次数: 15)

2024-2-24 08:07 上传

点击文件名下载附件

f359350181

3190496160 发表于 2024-2-24 08:07

老师，在实际操作时，出现报错，请帮忙看看。