Если в одной ячейке значение то в другой новое

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если в одной ячейке значение то в другой новое (Макросы/Sub)

azartan

Дата: Четверг, 21.01.2016, 15:27 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 20

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

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

Excel 2013

Здравствуйте!

Нужен макрос, который будет срабатывать при нажатии на кнопку, формула ЕСЛИ не подходит

В столбце А 80 ячеек с данными 1 или 0, нужно чтобы макрос подставлял в столбец В значение ХХХ в соответствующую ячейку

Например,
если в А1 значение 0, то в В1 подставляется ХХХ
если в А5 значение 0, то в В5 подставляется ХХХ
....
если в А80 значение 0, то в В80 подставляется ХХХ

ХХХ - одинаковое значение

И если значения в ячейках столбца А = 1, то в ячейках столбца В - пусто

Спасибо
[moder]Файл с примером приложите[/moder]

Сообщение отредактировал Pelena - Четверг, 21.01.2016, 16:10

Ответить

buchlotnik

Дата: Четверг, 21.01.2016, 16:10 | Сообщение № 2

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

пример будет? может тогда станет ясно, чем вам ЕСЛИ() не угодила

Ответить

Udik

Дата: Четверг, 21.01.2016, 16:13 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1588

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

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

Excel 2016 х 64

У меня только одна догадка - результат нужен не всегда, а строго после нажатия кнопки.
Но без файла не хочется гаданием заниматься.

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

buchlotnik

Дата: Четверг, 21.01.2016, 22:27 | Сообщение № 4

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

так что ли? [vba]

Код

Sub Sbros()
For Each cell In Range("a2:a80")
If cell = 0 Then cell.Offset(0, 1) = 0 Else cell.Offset(0, 1) = 1000
Next cell
End Sub

[/vba]

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

Ответить

_Boroda_

Дата: Пятница, 22.01.2016, 12:30 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

кусок
[vba]

Код

Offset(0, 1)

[/vba]
означает, что смещаемся на 0 строк вниз и на 1 столбец вправо. Для F (относительно А) 1 нужно заменить на 6

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если в одной ячейке значение то в другой новое (Макросы/Sub)

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