Большой трабл с vb

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Nature
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 04.04.2005 (Пн) 13:33

Большой трабл с vb

Сообщение Nature » 07.06.2005 (Вт) 9:18

Народ помогите с проблеммой. Мне надо чтобы в странице excel макрос сравнивалусловия и в зависимости от них менял цвет ячейки.
Т.е. есть ячейки с датами типа 11.11.11 и есть ячейки с числом, например 15. Если
11.11.11+15>=11.11.11+15 тогда эта ячейка выделяется красным цветом.
Заранее огромное спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 07.06.2005 (Вт) 9:20

Читаем хелпник к Excel и ищем там Conditional Formatting.

MeMBus
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 450
Зарегистрирован: 23.02.2005 (Ср) 7:03
Откуда: Из леса...

Сообщение MeMBus » 07.06.2005 (Вт) 10:38

А через что ты работаешь с xls? Если с помощью VB+Excel то это будет выглядеть что-то типа:
If oExcelObject.Range("C1").Value +
oExcelObject.Range("D1").Value >=
oExcelObject.Range("A1").Value +
oExcelObject.Range("B1").Value Then
oExcelObject.Range("B1").Interior.ColorIndex = 45
End If


Если VBA тогда (условия сравнения +):
Range("B1").Select
With Selection.Interior
.ColorIndex = 45
End With
Бороться и искать, найти и перепрятать!

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 07.06.2005 (Вт) 11:01

На всякий случай, еще раз: макрос здесь НЕ НУЖЕН (если возможных форматов не больше четырех, в противном случае поступаем примерно так, как говорит MeMBus, только выкидываем ненужные строчки типа Range.Select). Достаточно встроенного средства Эксель, которое называется "Условное форматирование" (находится в меню "Формат").

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 07.06.2005 (Вт) 11:02

ЗЫ Как же мне нравятся такие заголовки... :roll:


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 188

    TopList