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

Вход

Регистрация

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

 

= Мир MS Excel/Команда для изменения цвета фигур - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Команда для изменения цвета фигур (Макросы/Sub)
Команда для изменения цвета фигур
xsens Дата: Воскресенье, 13.03.2016, 16:24 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте.
Есть несколько овалов и нужно написать команду(С помощью KeyDown) чтобы при нажатии на кнопку находящейся на форме эти овалы перекрашивались например из синих в красный цвет ,потом еще раз при нажатии из красных в зеленых.
Заранее спасибо..

Файл прекрепил.
Изменить допустим те овалы что розовые.
К сообщению приложен файл: Konkurs.xlsm(29Kb)


Сообщение отредактировал xsens - Воскресенье, 13.03.2016, 16:25
 
Ответить
СообщениеЗдравствуйте.
Есть несколько овалов и нужно написать команду(С помощью KeyDown) чтобы при нажатии на кнопку находящейся на форме эти овалы перекрашивались например из синих в красный цвет ,потом еще раз при нажатии из красных в зеленых.
Заранее спасибо..

Файл прекрепил.
Изменить допустим те овалы что розовые.

Автор - xsens
Дата добавления - 13.03.2016 в 16:24
Karataev Дата: Воскресенье, 13.03.2016, 21:05 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 643
Репутация: 227 ±
Замечаний: 0% ±

Excel
Тестируйте на листе Тест. Макрос перекрашивает желтые овалы в красный цвет.
К сообщению приложен файл: Konkurs_v2.xlsm(18Kb)




Сообщение отредактировал Karataev - Воскресенье, 13.03.2016, 21:35
 
Ответить
СообщениеТестируйте на листе Тест. Макрос перекрашивает желтые овалы в красный цвет.

Автор - Karataev
Дата добавления - 13.03.2016 в 21:05
xsens Дата: Воскресенье, 13.03.2016, 22:04 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Там есть ,просто нужно открыть изменение макросов и там будет форма (UserForm1) где есть кнопка "Играть" и при нажатии запускается игра -змейка- и тамже появляются овалы в том числе и розовые ,вот я и говорил про то что создать новую кнопку и чтобы при нажатии на нее перекрашивались эти овалы.
 
Ответить
СообщениеТам есть ,просто нужно открыть изменение макросов и там будет форма (UserForm1) где есть кнопка "Играть" и при нажатии запускается игра -змейка- и тамже появляются овалы в том числе и розовые ,вот я и говорил про то что создать новую кнопку и чтобы при нажатии на нее перекрашивались эти овалы.

Автор - xsens
Дата добавления - 13.03.2016 в 22:04
xsens Дата: Воскресенье, 13.03.2016, 22:06 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вот получилось ,только не те овалы
[vba]
Код
Private Sub CommandButton2_Click()
Dim sha As Shape
For Each sha In Sheets("Лист1").Shapes
Select Case sha.Fill.ForeColor.RGB
Case vbBlue
sha.Fill.ForeColor.RGB = vbWhite
Case vbRed
sha.Fill.ForeColor.RGB = vbGreen
Case vbGreen
sha.Fill.ForeColor.RGB = vbYellow
Case vbYellow
sha.Fill.ForeColor.RGB = vbBlue
Case vbWhite
sha.Fill.ForeColor.RGB = vbRed
End Select
Next
End Sub
[/vba]
[moder]Оформляйте коды тегами (кнопка #)
На первый раз поправила за Вас[/moder]


Сообщение отредактировал Manyasha - Воскресенье, 13.03.2016, 22:20
 
Ответить
СообщениеВот получилось ,только не те овалы
[vba]
Код
Private Sub CommandButton2_Click()
Dim sha As Shape
For Each sha In Sheets("Лист1").Shapes
Select Case sha.Fill.ForeColor.RGB
Case vbBlue
sha.Fill.ForeColor.RGB = vbWhite
Case vbRed
sha.Fill.ForeColor.RGB = vbGreen
Case vbGreen
sha.Fill.ForeColor.RGB = vbYellow
Case vbYellow
sha.Fill.ForeColor.RGB = vbBlue
Case vbWhite
sha.Fill.ForeColor.RGB = vbRed
End Select
Next
End Sub
[/vba]
[moder]Оформляйте коды тегами (кнопка #)
На первый раз поправила за Вас[/moder]

Автор - xsens
Дата добавления - 13.03.2016 в 22:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Команда для изменения цвета фигур (Макросы/Sub)
Страница 1 из 11
Поиск:

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