range: расчет в нескольких ячейках

[monrus]

Всем привет.

есть такой макрос:

Код:

Dim oRange
Set oRange = Selection

If oRange.Offset(0, -1).Value = 1 Then
    oRange.Value = 1
Else
    oRange.Value = 0
End If

End Sub

При выделении одной ячейки работает, если несколько ячеек - то нет.
Как нужно изменить макрос чтобы он работал при выделении нескольких ячеек?

[baldr]

monrus, как я понял, проблема в том, что ты пытаешься сравнить значение диапазона (Range) с фиксированной величиной.
В случае одной ячейки умный VBA автоматически приводит типы, но при выборе нескольких ячеек - какое именно значение ты имеешь в виду? В первой? Во второй? В сумме? Вот VBA тоже не понимает.
Объясни что ты хочешь получить этим макросом, а то вдруг код в корне неправильный...
Вообще, если ты хочешь обработать значение группы ячеек - нужно сначала его посчитать.. Например, сумму или объединение строк.

[monrus]

В общем есть таблица. По строке которой надо проверить значение в одной ячейке, и в зависимости от значения сделать какие-то манипуляции и результат вывести в этой же строке, но в другой ячейке.
И так с каждой строкой.

[HandKot]

добавьте в свой код порход по все строкам и/или ячейкам

Код:

For each ... in oRange. и так далее

и свой If внутри этого прохода
 

P.S: не забывайте явно объявлять переменные. всегда поможет и избавит от непредвиденных ошибок

[baldr]

monrus, а формула не подойдет? Если простое преобразование значений, то это можно сделать и без макросов вообще...

[monrus]

ДА спасибо пришлось делать через For each. Просто думал есть проще варианты.