Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Если в одной ячейке значение то в другой новое - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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
 
Ответить
СообщениеЗдравствуйте!

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

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

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

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

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

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

Автор - azartan
Дата добавления - 21.01.2016 в 15:27
buchlotnik Дата: Четверг, 21.01.2016, 16:10 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3120
Репутация: 854 ±
Замечаний: 0% ±

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


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
Сообщениепример будет? может тогда станет ясно, чем вам ЕСЛИ() не угодила

Автор - buchlotnik
Дата добавления - 21.01.2016 в 16:10
Udik Дата: Четверг, 21.01.2016, 16:13 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1589
Репутация: 192 ±
Замечаний: 0% ±

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


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеУ меня только одна догадка - результат нужен не всегда, а строго после нажатия кнопки.
Но без файла не хочется гаданием заниматься.

Автор - Udik
Дата добавления - 21.01.2016 в 16:13
buchlotnik Дата: Четверг, 21.01.2016, 22:27 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3120
Репутация: 854 ±
Замечаний: 0% ±

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(17Kb)


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
Сообщениетак что ли? [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]

Автор - buchlotnik
Дата добавления - 21.01.2016 в 22:27
_Boroda_ Дата: Пятница, 22.01.2016, 12:30 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11546
Репутация: 4754 ±
Замечаний: 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
 
Ответить
Сообщениекусок
[vba]
Код
Offset(0, 1)
[/vba]
означает, что смещаемся на 0 строк вниз и на 1 столбец вправо. Для F (относительно А) 1 нужно заменить на 6

Автор - _Boroda_
Дата добавления - 22.01.2016 в 12:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если в одной ячейке значение то в другой новое (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!