Создание макроса умножения столбцов в зависимости от..

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание макроса умножения столбцов в зависимости от.. (Макросы/Sub)

sarman

Дата: Воскресенье, 12.04.2015, 19:01 | Сообщение № 1

Группа: Гости

Добрый вечер! Обращаюсь к гуру макросов, пожалуйста, посодействуйте, перепробовал уже различные варианты и что-то не сходится все в полноценный макрос
Задача стоит такая:
есть 3 столбца (А, B и C)
необходимо:
в случае, если значение из столбца A > 0, то соответствующее значение в строке В (в той же строчке) было умножено на 3 и записано в соответствующую строчку столбца C.
если A<0, то B умножить на 2 и также записать в D
[moder]Читайте Правила форума.
Прикладывайте файл в Excel

Сообщение отредактировал _Boroda_ - Воскресенье, 12.04.2015, 19:15

Ответить

sarman

Дата: Воскресенье, 12.04.2015, 19:34 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Дополнительно прикладываю файл ^_^

К сообщению приложен файл: 2270988.xlsx (8.9 Kb)

Сообщение отредактировал sarman - Воскресенье, 12.04.2015, 19:34

Ответить

sarman

Дата: Воскресенье, 12.04.2015, 20:40 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Решение было найдено, спасибо!
Если кому-то интересно, оно выглядит так:
[vba]

Код

Sub Макрос()

For i = 5 To 19
x = Cells(i, 1).Value
y = Cells(i, 2).Value
If x >= 0 Then
result = y * 3
Else
result = y * 2
End If
Cells(i, 4).Value = result

Next i

End Sub

[/vba]