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

Вход

Регистрация

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

 

= Мир MS Excel/cделать схему раскрашивала в разные цвета - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » cделать схему раскрашивала в разные цвета (Макросы/Sub)
cделать схему раскрашивала в разные цвета
Алекс174 Дата: Среда, 04.02.2015, 11:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
сделать пробывал из CommandButton1 одна кнопка получилась пробывал вторую скопировал не получается
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
If [A1] = 1 Then
.CommandButton1.BackColor = vbRed
ElseIf [A1] = 2 Then
.CommandButton1.BackColor = vbGreen
ElseIf [A1] = 0 Then
.CommandButton1.BackColor = vbCyan
Else
.CommandButton1.BackColor = vbButtonFace
End If
End With
End Sub
[/vba]
К сообщению приложен файл: post_289568.xls (41.5 Kb)


Сообщение отредактировал DJ_Marker_MC - Четверг, 05.02.2015, 17:55
 
Ответить
Сообщениесделать пробывал из CommandButton1 одна кнопка получилась пробывал вторую скопировал не получается
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With ActiveSheet
If [A1] = 1 Then
.CommandButton1.BackColor = vbRed
ElseIf [A1] = 2 Then
.CommandButton1.BackColor = vbGreen
ElseIf [A1] = 0 Then
.CommandButton1.BackColor = vbCyan
Else
.CommandButton1.BackColor = vbButtonFace
End If
End With
End Sub
[/vba]
Автор - Алекс174
Дата добавления - 04.02.2015 в 11:27
krosav4ig Дата: Четверг, 05.02.2015, 02:29 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
А у мну все получилось :p

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеА у мну все получилось :p
Автор - krosav4ig
Дата добавления - 05.02.2015 в 02:29
Manyasha Дата: Четверг, 05.02.2015, 07:43 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
У меня, кстати, тоже все работает, или может я не поняла задание?

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеУ меня, кстати, тоже все работает, или может я не поняла задание?
Автор - Manyasha
Дата добавления - 05.02.2015 в 07:43
krosav4ig Дата: Пятница, 06.02.2015, 19:55 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Как понял...
[p.s.]т.к. замечаний по поводу названия темы не было, сделаю вид, что оно нормальное <_<
К сообщению приложен файл: post_289568.xlsm (30.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 06.02.2015, 20:54
 
Ответить
СообщениеКак понял...
[p.s.]т.к. замечаний по поводу названия темы не было, сделаю вид, что оно нормальное <_<
Автор - krosav4ig
Дата добавления - 06.02.2015 в 19:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » cделать схему раскрашивала в разные цвета (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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