Изменение значения в столбцах при условии

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

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

Изменение значения в столбцах при условии (Макросы/Sub)

mulbnat

Дата: Суббота, 07.01.2023, 22:43 | Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2013

Добрый вечер! Есть таблица, в которую ввожу данные. Если выбираю значение в столбце В "Расход", то вводимая сумма в столбце D должна умножаться на -1.
На форуме нашла подобный код, но он применим для одной строки, а мне нужно для всей таблицы,строк на 1000.
If Target.Address = "$D$3" And Range("B3") = "Расход" Then
Спасибо !

К сообщению приложен файл: 9988.xlsm (11.8 Kb)

Ответить

gling

Дата: Суббота, 07.01.2023, 23:14 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2563

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

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

2010

Здравствуйте. Попробуйте так[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
'Application.EnableEvents = False
If Not Intersect(Target, Range("B3:B1000")) Is Nothing Then
    If Target.Value = "Расход" Then
        Target(1, 3) = -Abs(Target(1, 3))
    Else
        Target(1, 3) = Abs(Target(1, 3))
    End If
End If
'Application.EnableEvents = True
End Sub

[/vba]

ЯД-41001506838083

Ответить

mulbnat

Дата: Воскресенье, 08.01.2023, 00:15 | Сообщение № 3

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

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

Сообщений: 6

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

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

Excel 2013

gling, Большое Вас СПАСИБО !! Суть поняла yes

Подкорректировала для применения в своей рабочей таблице и новый учетный год начинаю с обновкой ))

Ответить

Изменение значения в столбцах при условии (Макросы/Sub)

Страница 1 из 1
1