如何在VBA表单中从Excel单元格中查找UPC条码?

jxct1oxe  于 2023-05-01  发布在  其他
关注(0)|答案(1)|浏览(269)

我有一个库存数据库在Excel与用户输入表格与下一个和上一个按钮,显示较早输入的数据。我怎么能添加一个选项,比如说“查找条形码”按钮,它会自动在www.example中搜索它 www.example.com 。所有我需要的是一旦查找按钮被输入,它将打开浏览器,并自动搜索条形码是在条形码单元在表。谢谢你的帮助。
看了一下API,但我不知道Java脚本。

Private Sub UserForm_Initialize()

    MultiPage1.Value = 0
    Call resetForm

         With Worksheets("Data")
    ComboBox1.List = .Range(.Range("A1"), .Range("A1").End(xlDown)).Value
    End With

    With Worksheets("Data")
    ComboBox2.List = .Range(.Range("B1"), .Range("B1").End(xlDown)).Value
    End With

    'ComboBox1.ListRows = 8

    ' Set the first item in combobox
    ComboBox1.ListIndex = 0
    ComboBox2.ListIndex = 0

'worksheet with your data
    Set wsDatabase = Sheets("Inventory")
        'find last row in data range
        LastRow = wsDatabase.Cells(wsDatabase.Rows.Count, "A").End(xlUp).Row
        'Cells(Rows.Count, 1).End(xlUp).Row
    'start at first record
    r = LastRow

    'or from activecell
    'r = ActiveCell.Row - 1

    Navigate Direction:=r

End Sub
ahy6op9u

ahy6op9u1#

一旦进入查找按钮,它将打开浏览器并自动搜索工作表中条形码单元格中的条形码
这有一个简单的解决方法:
复制下面的函数,把完整的URL和/放在最后,添加条形码,瞧。老朋友马上就出现了。

Sub gotopage(url As String, barcode As String)
    Shell ("C:\Program Files\internet explorer\iexplore.exe " & url & barcode)
End Sub

相关问题