Смешной вопрос - как перекрасить текст в ячейке?

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

Смешной вопрос - как перекрасить текст в ячейке?

Сообщение z3f » 26.08.2005 (Пт) 9:30

Задача - сложить ячейки a1, a3, a5, и сравнить с b1.
если сумма больше чем в b1 то перекрасить текст в красный цвет.
вопрос конечно смешной но я никак с ним не могу справится =(

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

Сообщение uhm » 26.08.2005 (Пт) 9:34

Прочитай хелп по теме "Условное форматирование". Потом зайди в "Формат - Условное форматирование" и сделай все, что тебе нужно. И никаких макросов! :)

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Re: Смешной вопрос - как перекрасить текст в ячейке?

Сообщение lord0n » 26.08.2005 (Пт) 9:36

z3f писал(а):Задача - сложить ячейки a1, a3, a5, и сравнить с b1.
если сумма больше чем в b1 то перекрасить текст в красный цвет.
вопрос конечно смешной но я никак с ним не могу справится =(


люди читайте книги, в них иногда умные веши пишут
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

z3f
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 26.01.2005 (Ср) 10:44

Сообщение z3f » 26.08.2005 (Пт) 9:38

Ектель - некогда читать!
сейчас читаю млин!
короче это нужно сделать с макросами потому как много таких ячеек и это лишь часть задачи!

как сделать?
activesheet.cells - ругается !
как сделать?

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

Сообщение uhm » 26.08.2005 (Пт) 9:47

Прочитай хелп по теме "Условное форматирование". Потом зайди в "Формат - Условное форматирование" и сделай все, что тебе нужно. И никаких макросов! :evil:

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 26.08.2005 (Пт) 12:07

z3f писал(а):Ектель - некогда читать!
сейчас читаю млин!
короче это нужно сделать с макросами потому как много таких ячеек и это лишь часть задачи!

как сделать?
activesheet.cells - ругается !
как сделать?


если тебе нужно сделать макрос, то воспользуйся пунктом меню "запись макросов"

попробуй, тебе понравится :lol:
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

z3f
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 26.01.2005 (Ср) 10:44

Сообщение z3f » 26.08.2005 (Пт) 12:29

Классные ответы =(
Добродушный форум =(

2 uhm
а если строк (ячеек) более 400! Я замучаю мышку кликами по пункту меню условное форматирование!

2 lord0n
Пробовал - не нравится=(

мне нужно чтоыб был нормальный скрипт (или как там у микробакса это называется) в нормальном текстовом формате!
я просил все лишь навсего что-то типа -
ActiveWorkbook.ActiveSheet. Cells (2,t).Color = red
но данная комбинация - не работает
кто-нить может мне дать нормальную комбинацию этих грёбаных сочетаний?!!!???

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

Сообщение uhm » 26.08.2005 (Пт) 12:36

1) Условное форматирование а) растягивается, как обычная формула; б) может быть применено к диапазону ячеек, а не только к одной.

2) ActiveWorkbook.ActiveSheet.Cells(2,t).Interior.Color = RGB(255, 0, 0) или .Interior.ColorIndex = 3

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 26.08.2005 (Пт) 12:45

z3f писал(а):Классные ответы =(
Добродушный форум =(

2 uhm
а если строк (ячеек) более 400! Я замучаю мышку кликами по пункту меню условное форматирование!


знаешь есть такая класная вешь как форматирование оп образцу (щеточка рядом с кнопкой вставить)

RTFM, мли

z3f писал(а):2 lord0n
Пробовал - не нравится=(

мне нужно чтоыб был нормальный скрипт (или как там у микробакса это называется) в нормальном текстовом формате!
я просил все лишь навсего что-то типа -
ActiveWorkbook.ActiveSheet. Cells (2,t).Color = red
но данная комбинация - не работает
кто-нить может мне дать нормальную комбинацию этих грёбаных сочетаний?!!!???


For x = 1 To 1000
Range("a" & x).Cells.Interior.ColorIndex = 3
Next x

ты вообще программировать умеешь?
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

z3f
Начинающий
Начинающий
 
Сообщения: 22
Зарегистрирован: 26.01.2005 (Ср) 10:44

Сообщение z3f » 26.08.2005 (Пт) 12:46

uhm

>>а) растягивается, как обычная формула;
не получается так как меняются названия ячеек в формуле условного форматирования (хотя они и стандартные)

>>б) может быть применено к диапазону ячеек, а не только к одной.
то же самое что и вверху

>> ActiveWorkbook.ActiveSheet.Cells(2,t).Interior.Color = RGB(255, 0, 0) или .Interior.ColorIndex = 3

а вот за это - СПАСИБО ГРОМАДНОЕ

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 26.08.2005 (Пт) 12:48

z3f писал(а):не получается так как меняются названия ячеек в формуле условного форматирования (хотя они и стандартные)

RTFM про абсолютные ссылки.

z3f писал(а):то же самое что и вверху

То же самое, что и вверху.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

hohol_kz
Обычный пользователь
Обычный пользователь
 
Сообщения: 90
Зарегистрирован: 05.08.2005 (Пт) 6:21

Сообщение hohol_kz » 30.08.2005 (Вт) 12:01

В дополнение к:
>> ActiveWorkbook.ActiveSheet.Cells(2,t).Interior.Color = RGB(255, 0, 0) или .Interior.ColorIndex = 3


Если не нравится указывать цвет числами, как вариант используй именованные константы цветов. Их количества для подавляющего большинства задач достаточно.
На правах саморекламмы: "Кофейник" - это тот же "чайник", только круче.


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

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

Сейчас этот форум просматривают: AhrefsBot, Google-бот, SemrushBot, Yandex-бот и гости: 61

    TopList