изменения цвета объектов поочередности

Вход

Регистрация

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

= Мир MS Excel/изменения цвета объектов поочередности - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменения цвета объектов поочередности (Макросы/Sub)

изменения цвета объектов поочередности

85Muslim85

Дата: Среда, 18.03.2015, 19:50 | Сообщение № 1

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

Ранг: Участник

Сообщений: 60

Репутация: -23 ±

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

Excel 2007

Добрый вечер, хотел бы узнать как , кликания на commandbutton, мне менять цвета по очередности, то есть клик 1 раз цвет для label1 задать красным остальные остаются стандартным цветом, далее кликая еще раз label2 становиться красным остальные стандартным, то есть до конца объетов label... поскал не нашел в архиве ((

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

Ответить

RAN

Дата: Среда, 18.03.2015, 20:07 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Dim p As Integer
Private Sub CommandButton1_Click()
     Dim ctrl As Object
     For Each ctrl In Me.Controls
         If TypeOf ctrl Is MSForms.Label Then ctrl.BackColor = &H8000000F
     Next
     Me.Controls("Label" & p + 1).BackColor = &HFF&
     p = p + 1
     If p > 8 Then p = 0
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

85Muslim85

Дата: Среда, 18.03.2015, 20:14 | Сообщение № 3

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

Ранг: Участник

Сообщений: 60

Репутация: -23 ±

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

Excel 2007

RAN, спасибки) заработало)а это с шаблон команд для любого объекта?)

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » изменения цвета объектов поочередности (Макросы/Sub)

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