Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Цвет фона ячейки Exel в VBA, Пустяк да не знаю(((( 
:(
    Опции темы
Rain
Дата 7.4.2006, 08:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 4.11.2005
Где: г.Саратов

Репутация: нет
Всего: нет



Помогите пожалуйста ! Как в VBA определить цвет фона ячейки в ЕХеле.
Приведите пожалуйста кусок кода!

Заранее благодарен!
PM MAIL ICQ   Вверх
~FoX~
Дата 7.4.2006, 08:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68



Код

a = Cells(1, 1).Interior.ColorIndex



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Rain
Дата 9.4.2006, 07:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 4.11.2005
Где: г.Саратов

Репутация: нет
Всего: нет



Огромное спасибо!!! Я Обожаю этот форум!!!!!!!!!!!!!!
PM MAIL ICQ   Вверх
sexton
Дата 10.4.2006, 11:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sexton=Пономарь (eng)
**


Профиль
Группа: Участник
Сообщений: 503
Регистрация: 5.5.2004
Где: Ульяновск

Репутация: нет
Всего: 9



Цитата(Rain @ 7.4.2006, 08:18 Найти цитируемый пост)
Приведите пожалуйста кусок кода!

Этот код можно и самому получить.
Макрос-> Начать запись
Делаем что нужно
Остановить запись
потом Alt+f11 вызываем редактор VB, переходим в нем к папке Modules и смотрим код.
PM MAIL WWW ICQ   Вверх
PandPmusic
Дата 12.10.2020, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.10.2020

Репутация: нет
Всего: нет



Цитата(~FoX~ @ 7.4.2006,  08:44)
Код

a = Cells(1, 1).Interior.ColorIndex

Добрый день! 
А как применить Interior.ColorIndex
если переменная дата string, так что бы цвет менялся в зависимости от количества дней до значения от сегодня?
через макрос (онли!) 
PM MAIL   Вверх
Akina
Дата 12.10.2020, 21:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453



PandPmusic, заведите массив соответствия между количеством дней и цветом, а потом тупо
Код

Range(..).Interior.ColorIndex = ColorsArray(DaysCount)



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
PandPmusic
Дата 15.10.2020, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.10.2020

Репутация: нет
Всего: нет



Цитата(Akina @ 12.10.2020,  21:20)
PandPmusic, заведите массив соответствия между количеством дней и цветом, а потом тупо
Код

Range(..).Interior.ColorIndex = ColorsArray(DaysCount)

Хм....
а можно поподробней?
PM MAIL   Вверх
PandPmusic
Дата 28.10.2020, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 11.10.2020

Репутация: нет
Всего: нет



Цитата(PandPmusic @ 15.10.2020,  12:18)
Цитата(Akina @ 12.10.2020,  21:20)
PandPmusic, заведите массив соответствия между количеством дней и цветом, а потом тупо
Код

Range(..).Interior.ColorIndex = ColorsArray(DaysCount)

Хм....
а можно поподробней?

Есть в Теме живые участники?
кто может помочь?
Пожалуйста!
PM MAIL   Вверх
Akina
Дата 29.10.2020, 08:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453



Код

Dim ColorsArray(0 To 56) As Integer

Private Sub fill()
Dim i As Integer
Dim onecell As Range
For i = LBound(ColorsArray) To UBound(ColorsArray)
    ColorsArray(i) = i
Next i
For Each onecell In Range("a1:a30")
    onecell.Formula = "=TODAY() - RANDBETWEEN(0,56)"
Next onecell
End Sub

Private Sub recolor()
Dim onecell As Range
For Each onecell In Range("a1:a30")
    onecell.Interior.ColorIndex = ColorsArray(Date - onecell.Value)
Next onecell
End Sub

Суёшь в модуль листа. Сперва запускаешь fill(), потом recolor().


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.1274 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.