用于条形码扫描的VBA Excel代码,可返回扫描时间

维尔纳·艾维(WernerAvie)

我有用于扫描文件条形码的电子表格。我有宏可以返回扫描文件的日期,但是我也想避免条形码连续多次被扫描。

这是我的代码:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A2:A3000")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub

    Dim lc As Long
    With Application
      .EnableEvents = False
      .ScreenUpdating = False
       lc = Cells(Target.Row, Columns.Count).End(xlToLeft).Column

       If lc = 1 Then
         Cells(Target.Row, lc + 2) = Format(Now, "m/d/yyyy h:mm")
       ElseIf lc > 2 Then
         Cells(Target.Row, lc + 1) = Format(Now, "m/d/yyyy h:mm")        
       End If

      .EnableEvents = True
      .ScreenUpdating = True
    End With

End Sub

例如,在60秒的间隔内多次扫描文件时,我需要放入计时器以返回msgbox的帮助。谢谢

保罗·S

您可以只使用一个公共变量来存储上次扫描时间+ 1分钟,如果当前时间小于该时间,则过早退出该子程序,如果这样做很好,只需再次运行代码并更新时间

Public NextScan as Double

Public Sub Test
   If NOT NextScan < DateTime.Now Then Exit Sub

   'YOUR CODE

   NextScan = DateTime.Now + DateTime.TimeSerial(0, 1, 0)
End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

条形码扫描损坏

来自分类Dev

在WebView Android中扫描条形码

来自分类Dev

如何模拟条形码扫描事件

来自分类Dev

从移动网站扫描条形码?

来自分类Dev

用于条形码扫描的Excel电子表格

来自分类Dev

iOS:AVFoundation条形码扫描-更改扫描区域

来自分类Dev

iOS:AVFoundation条形码扫描-更改扫描区域

来自分类Dev

适用于PhoneGap / cordova的条形码扫描仪

来自分类Dev

适用于IOS的Firebase条形码扫描仪

来自分类Dev

适用于iOS / Android的移动条形码扫描仪

来自分类Dev

用于html5和jquery应用程序的条形码扫描仪

来自分类Dev

康耐视条形码SDK不扫描代码

来自分类Dev

如何使用zxing扫描条形码并使用jsonp返回?

来自分类Dev

条形码扫描仪仅显示条形码的第一位

来自分类Dev

在iOS 8中扫描条形码并显示条形码

来自分类Dev

如何使条形码扫描仪从数据库中检查条形码编号?

来自分类Dev

如何从C#Winforms中的条形码扫描仪读取条形码值

来自分类Dev

条形码扫描仪仅显示条形码的第一位

来自分类Dev

iOS条形码扫描API能够同时读取3条条形码

来自分类Dev

扫描HTML5 / JavaScript中的条形码

来自分类Dev

蓝牙条形码扫描仪的解码输出

来自分类Dev

Rails应用的条形码扫描仪

来自分类Dev

本地扫描UIImage的条形码(即不使用ZBar)

来自分类Dev

从Swing中的条形码扫描仪读取

来自分类Dev

使用Zbar或Zxing在各个方向进行条形码扫描

来自分类Dev

在Java中使用Zxing扫描多个条形码

来自分类Dev

从Gallery Android中的图像扫描条形码

来自分类Dev

Winforms按键和条形码扫描仪

来自分类Dev

Xamarin形成条形码扫描仪