Хотелось бы решить тривиальную задачу по обнаружению факта вхождения одного текста в другой. Исходные данные берутся из ячейки [C2]. В ней находится артикул товара. Сложность заключается в том, что артикул имеет постоянную составляющую (переменное кол-во первых букв) и переменную составляющую зависящую от даты. В теле программы задается массив, в котором содержатся возможные маски. Пусть в ячейке C2 сейчас BRX1. Однако сравнить по маске не получается. Code 1 выдает всегда 0, Code 2 всегда выдает ошибку, хотя смотрел и вроде, судя по описанию, всё должно работать без ошибок. Не пойму в чем затык, помогите плиз).
| Код |
|---|
Option Explicit
Option Base 1
Sub Tiker_array_ALL()
Dim j As Integer
Dim Ticker As Variant
Ticker = Array("BR??", "БОЛТ", "Гайка*", "US*", "Сев*")
' Code 1
For j =1 To Ubound(Ticker)
Cells(j + 1, 10) = InStr(1, [C2], Ticker(j), 1)
Next
' Code 2
For j =1 To Ubound(Ticker)
Cells(j + 1, 11) = WorksheetFunction.Match(Ticker(j), [C2], 0)
Next
End Sub
|
