Решил автоматизировать примитивный процесс, надоело руками делать.
Есть список номеров и нужно сравнивать ячейку на содержание в ней одного из номеров, ячейки формата "общий", мне нужно не точное равенство, а что бы стаивлась галочка если в ячейки содержится такие-то цифры.
В визуал бейсике ничего почти не понимаю
вот примерно такой смысл
For i = 1 To 3
ActiveCell.Select
If ActiveCell.Value = 2867657 Then
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = "x"
ActiveCell.Offset(0, 1).Range("A1").Select
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next i
End Sub
Но требуется, проверять не на равенство и не одно числа, а сверять на содержание с группой ячеек в которой числа, подскажите хоть синтаксис и дальше я сам сварганю. Как можно сверять с групой ячеек по очереди? Понятно что цикл внутри цикла, но как предедвигатся от ячейки к ячейке в списке значений, ActiveCell то я уже использую на первом списке. Огромное спасибо заранее
P.S. Нет функция СЧЕТЕСЛИ неподходит, список номеров от 200 до 500.
Да нужно именно в VBA
Есть список номеров и нужно сравнивать ячейку на содержание в ней одного из номеров, ячейки формата "общий", мне нужно не точное равенство, а что бы стаивлась галочка если в ячейки содержится такие-то цифры.
В визуал бейсике ничего почти не понимаю
вот примерно такой смысл
For i = 1 To 3
ActiveCell.Select
If ActiveCell.Value = 2867657 Then
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = "x"
ActiveCell.Offset(0, 1).Range("A1").Select
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next i
End Sub
Но требуется, проверять не на равенство и не одно числа, а сверять на содержание с группой ячеек в которой числа, подскажите хоть синтаксис и дальше я сам сварганю. Как можно сверять с групой ячеек по очереди? Понятно что цикл внутри цикла, но как предедвигатся от ячейки к ячейке в списке значений, ActiveCell то я уже использую на первом списке. Огромное спасибо заранее
P.S. Нет функция СЧЕТЕСЛИ неподходит, список номеров от 200 до 500.
Да нужно именно в VBA
