您好,我是我公司的零件分析师。我在我们的在线目录中搜索引擎序列号,以查看网站上是否为客户提供所需信息。我每个月要检查大约三千个号码。我有一个 Excel 表,我从中复制发动机序列号并将其粘贴到在线目录的搜索中。这是一项非常乏味的任务。我一直在研究一个宏来自动化这个过程。我在宏中有一个数组。我希望数组跳过不需要搜索的序列号。到目前为止,宏将打开浏览器到电子目录并循环遍历数组,突出显示包含数组中值的所有序列号。我现在需要数组来跳过这些值。
设想
- 我在 excel 中单击一个按钮,它会打开所需的文件并开始在 A 列中搜索序列号。
- 如果 F2 = Y 则跳过在目录中搜索 A2,但是如果 F2 = N 则搜索 A2
- 如果搜索A2返回所需信息,则在F2中输入Y,否则在F2中输入N,转到A3并重复过程。
我搜索了很多论坛,但我一直无法找到解决方案。我的宏在下面。我需要帮助来完成宏。我试图让数组跳过数组中的值并通过在 if 语句中添加 Not 来突出显示所有其他值。这不起作用,而是当我在 if 语句中添加“Not”时突出显示所有序列号。任何建议表示赞赏。
Sub HighlightValue()
Dim MyVals As Variant
MyVals = Array("*472908*", "*471905*", "*471914*", "*471935*", "*471917*", "*471920*", "*471933*", "*471932*", "*471934*") 'Enter all the values to search for
Application.Goto Range("A2"), False
Do Until IsEmpty(ActiveCell)
For Each esn In Selection
For i = LBound(MyVals) To UBound(MyVals)
If esn.Value Like MyVals(i) Then
esn.Interior.ColorIndex = 6 'yellow
Exit For
End If
Next i
Next esn
ActiveCell.Offset(1, 0).Select
Loop
结束子