Kuzmich, да я не хотел вас обидеть, задание писал уже порядком подуставший,- когда тыкаешь целый день, уже всех ньуансов невозможно учесть,- у вас так не бывает?? у вас всё супер работает, только куда его девать в моем случае неизвестно.
Код |
---|
With ActiveSheet 's("Домик") Set goods = .Columns(5).Find(what:="Наименование товара") lrow = .Cells(.Rows.count, 5).End(xlUp).row Set nrange = .Range(.Cells(goods.row, 5), .Cells(lrow, 5)) Set objRegExp = CreateObject("VBScript.RegExp") 'objRegExp.Pattern = "(\S)(\d){1,2}( )?([А-Яа-яA-zA-z])\b" 'вот здесь строго -тупо одну букву зырим objRegExp.Pattern = "(\S)(\d){1,2}( )?([Xx])\b" numb_temp = "" numb_goods = "" For i = lrow To goods.row Step -1 If .Cells(i, 7).Value <> "" Then numb_temp = .Cells(i, 7).Value If objRegExp.test(.Cells(i, 5)) Then .Cells(i, 5).Interior.Color = 16709070 numb_goods = IIf(numb_goods = "", numb_temp, numb_temp & ", " & numb_goods) End If Next If numb_goods <> "" Then MsgBox "в товаре(ах) № " & numb_goods & " есть неописанные фраги" End With |