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

Вход

Регистрация

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

 

= Мир MS Excel/Ячейка как кнопка, условие для повторного нажатия - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ячейка как кнопка, условие для повторного нажатия (Макросы/Sub)
Ячейка как кнопка, условие для повторного нажатия
Zheki Дата: Вторник, 04.04.2017, 12:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Нужно сделать так чтобы при нажатии на ячейку запускался макрос и менялся цвет ячейки. При повторном нажатии ячейки нужно чтобы выполнялся другой макрос и возращался цвет обратно или чтобы отменялся первый макрос.
Запустить макрос получается, но как сделать обратное или другой макрос при повторном нажатии?Какие команды использовать?

End Sub
К сообщению приложен файл: post_316915.xls (48.0 Kb)


Сообщение отредактировал Zheki - Вторник, 04.04.2017, 13:40
 
Ответить
СообщениеНужно сделать так чтобы при нажатии на ячейку запускался макрос и менялся цвет ячейки. При повторном нажатии ячейки нужно чтобы выполнялся другой макрос и возращался цвет обратно или чтобы отменялся первый макрос.
Запустить макрос получается, но как сделать обратное или другой макрос при повторном нажатии?Какие команды использовать?

End Sub
Автор - Zheki
Дата добавления - 04.04.2017 в 12:21
китин Дата: Вторник, 04.04.2017, 12:28 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата Zheki, 04.04.2017 в 12:21, в сообщении № 1 ()
Нужно сделать так

нужно правила почитать

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата Zheki, 04.04.2017 в 12:21, в сообщении № 1 ()
Нужно сделать так

нужно правила почитать
Автор - китин
Дата добавления - 04.04.2017 в 12:28
Manyasha Дата: Вторник, 04.04.2017, 12:57 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
Zheki, оформите код тегами

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеZheki, оформите код тегами
Автор - Manyasha
Дата добавления - 04.04.2017 в 12:57
Zheki Дата: Вторник, 04.04.2017, 13:07 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата Manyasha, 04.04.2017 в 12:57, в сообщении № 3 ()
оформите код тегами

Не понимаю, поподробнее!
 
Ответить
Сообщение
Цитата Manyasha, 04.04.2017 в 12:57, в сообщении № 3 ()
оформите код тегами

Не понимаю, поподробнее!
Автор - Zheki
Дата добавления - 04.04.2017 в 13:07
китин Дата: Вторник, 04.04.2017, 13:18 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата Zheki, 04.04.2017 в 13:07, в сообщении № 4 ()
Не понимаю, поподробнее!

ТУТ

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата Zheki, 04.04.2017 в 13:07, в сообщении № 4 ()
Не понимаю, поподробнее!

ТУТ
Автор - китин
Дата добавления - 04.04.2017 в 13:18
Zheki Дата: Вторник, 04.04.2017, 13:41 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Кто то подскажет решение проблемы?
 
Ответить
СообщениеКто то подскажет решение проблемы?
Автор - Zheki
Дата добавления - 04.04.2017 в 13:41
_Boroda_ Дата: Вторник, 04.04.2017, 13:57 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16956
Репутация: 6630 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
К сообщению приложен файл: post_316915_1.xls (43.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
Автор - _Boroda_
Дата добавления - 04.04.2017 в 13:57
Zheki Дата: Вторник, 04.04.2017, 14:04 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Цитата _Boroda_, 04.04.2017 в 13:57, в сообщении № 7 ()
Так нужно?

Да, мне главное чтобы чередовались макросы. Все равно не соображаю в кодах, поэтому далее буду делать колхозно!
СПАСИБО!!!


Сообщение отредактировал Zheki - Вторник, 04.04.2017, 14:05
 
Ответить
Сообщение
Цитата _Boroda_, 04.04.2017 в 13:57, в сообщении № 7 ()
Так нужно?

Да, мне главное чтобы чередовались макросы. Все равно не соображаю в кодах, поэтому далее буду делать колхозно!
СПАСИБО!!!
Автор - Zheki
Дата добавления - 04.04.2017 в 14:04
Zheki Дата: Четверг, 20.04.2017, 09:27 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Другие макросы сделал, перестало работать. Помогите!
К сообщению приложен файл: 3288883.xlsm (29.5 Kb)
 
Ответить
СообщениеДругие макросы сделал, перестало работать. Помогите!
Автор - Zheki
Дата добавления - 20.04.2017 в 09:27
Zheki Дата: Четверг, 20.04.2017, 09:32 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Макросы работают отдельно а в коде таком нет.
Код:
[vba]
Код
If Target.Address <> "$B$5" Then Exit Sub
If Range("B5").Interior.ColorIndex = 3 Then
Call Module1.MPvsUTG
Else
Call Module1.cl
End If

Range("A3").Select
[/vba]


Сообщение отредактировал Zheki - Четверг, 20.04.2017, 11:08
 
Ответить
СообщениеМакросы работают отдельно а в коде таком нет.
Код:
[vba]
Код
If Target.Address <> "$B$5" Then Exit Sub
If Range("B5").Interior.ColorIndex = 3 Then
Call Module1.MPvsUTG
Else
Call Module1.cl
End If

Range("A3").Select
[/vba]
Автор - Zheki
Дата добавления - 20.04.2017 в 09:32
Manyasha Дата: Четверг, 20.04.2017, 10:16 | Сообщение № 11
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
Zheki, используйте для оформления кода кнопку #, а не спойлер. Поправьте свой последний пост.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеZheki, используйте для оформления кода кнопку #, а не спойлер. Поправьте свой последний пост.
Автор - Manyasha
Дата добавления - 20.04.2017 в 10:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ячейка как кнопка, условие для повторного нажатия (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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