《求助》扫码比对

Question

Dictionary 对象
               描述对象，用于存储数据关键字和条目对。语法Scripting.Dictionary说明Dictionary 对象与 PERL 关联数组等价。可以是任何形式的数据的条目被存储在数组中。每个条目都与一个唯一的关键字相关联。该关键字用来检索单个条目，通常是整数或字符串，可以是除数组外的任何类型。下面的代码举例说明了如何创建一个 Dictionary 对象：Dim d                   '创建一个变量
Set d = CreateObject(Scripting.Dictionary)
d.Add "a", "Athens"     '添加一些关键字和条目
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...
Add方法(Dictionary)
         描述添加一对相对应的关键字和条目到 Dictionary 对象。语法object.Add key, itemAdd方法的语法有如下几部分：部分 描述 
Object 必需的。一个 Dictionary 对象的名字。 
Key 必需的。与所添加的条目相关联的关键字。 
Item 必需的。与所添加的关键字相关联的条目。 
说明如果该关键字已经存在，则产生一个错误。

Answer 1

在vb里建立一个输入框，扫描枪扫描上屏后会自动发送回车，然后vb的keypress里判断回车后开始分析处理。最基本的if语句mid、left等字符串函数你不会不知道吧。 处理完一条就清空输入框。Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        MsgBox "处理" & Text1.Text
        '开始用if else等字符串函数之类的处理你的 2/3/4，基本你的VBA里写的代码都能重用
        Text1.Text = "" '处理完清空
    End If
End Sub

Answer 2

版主您好，VBA里变得代码
只有部分适用，其他功能我是利用EXCEL里面的“数据有效性””和“条件格式”搞定的。VBA代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Or Target.Row < 2 Then Exit Sub
Dim bz$
bz = [c2].Value
Target.Offset(0, 1) = Left(Target.Value, 7)
If Left(Target.Value, 7) <> bz Then
    Target.Offset(0, 1).Font.ColorIndex = 3
    Call PlayWAV
End If
End Sub
但要把全部整合在一起，就超出我的能力了。
谢谢！

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        'MsgBox "处理" & Text1.Text
        '开始用if else等字符串函数之类的处理你的 2/3/4，基本你的VBA里写的代码都能重用
Dim bz$,
bz ="A123456"
If Left(Text1.Text, 7) <> bz Then
    Call PlayWAV
else
  Text1.tag=Text1.tag & Text1.Text & vbcrlf
End If
        Text1.Text = "" '处理完清空
    End If
End Sub在所有都处理完成后保存Text1.tag的内容你要简单学习下又不困难的，如果每个代码都指望别人写这不叫讨论问题，这叫发包，出需求别人完成。

Answer 4

楼主想用VB6来做，还是用 Excel的 VBA来做？说实在的，无论用上述的哪个环境来做，都很简单的。