网站首页 极客学院 视频课堂 极客论坛 下载专区 行业新闻 欢迎光临极客研究院,今天是2019-08-24 星期六
会员面板
帐号:
密码:
验证码:
极客学院
教程搜索
输入要搜索的内容:

下载专区
精品教程
   网站首页 > 办公软件教程 > Excel宏编程教程 > 扫描查找条码的一个范例

扫描查找条码的一个范例

工作上需要一个小功能,查找扫描的条码,是否是指定列表的条码之一,如下图所示





 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
       If Target.Address <> "$B$4" Then         ‘判断一个Range对象的地址
          End
       End If
       
       Range("$C$3").Value = ""
       
       barcode = Range("$B$3").Value             ’获取指定单元格的内容
       
       Tag = 0
       For Each c In Range("A2:A20000")         ‘遍历工作表的一列
             
            If c.Value = barcode Then
                Tag = 1
                Exit For
            End If
       Next
       
       If Tag = 1 Then
        Range("$C$3").Value = "存在"                   '给指定单元格赋值
        Range("$C$3").Interior.ColorIndex = 6        '设定背景色
        
        
       Else
        Range("$C$3").Value = "不存在"
        Range("$C$3").Interior.ColorIndex = 4
       End If
       
        Range("$B$3").Select
        
End Sub
  相关文章
本文标题:扫描查找条码的一个范例
对本文有疑问?现在就进入论坛提问>>
 
粤ICP备18090445号