Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выделение другим цветом / 4 сообщений из 4, страница 1 из 1
12.04.2007, 09:53:10
    #34454922
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение другим цветом
Всем привет!!!
Есть кусок кода :
Код: plaintext
If prozent >  0  Then Cells(i,  4 ).Value = "На" & " " & prozent & " " & "% меньше"
В четвертой колонке пояаляется запись след. типа : На 27,13 % меньше. Вся запись здесь разумеется одного шрифта и цвета. Но для более наглядного вида я хотел бы у цифры "prozent" увеличить шрифт и выделить, например, красным цветом.
Как такое сделать?
Может в объявлении переменных что-то сделать или я не прав....? Сам не знаю
...
Рейтинг: 0 / 0
12.04.2007, 10:17:57
    #34455012
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение другим цветом
Код: plaintext
1.
2.
3.
4.
If prozent >  0  Then
    Cells(i,  4 ).Value = "На " & prozent & " " & "% меньше"
    Cells(i,  4 ).Characters(Start:= 4 , Length:= 4  + Len(prozent)).Font.Size =  12 
    Cells(i,  4 ).Characters(Start:= 4 , Length:= 4  + Len(prozent)).Font.ColorIndex =  3 
End If
...
Рейтинг: 0 / 0
12.04.2007, 10:20:47
    #34455019
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение другим цветом
пардон так
Код: plaintext
1.
2.
3.
4.
If prozent >  0  Then
    Cells(i,  4 ).Value = "На " & prozent & " % меньше"
    Cells(i,  4 ).Characters(Start:= 4 , Length:=Len(prozent)).Font.Size =  12 
    Cells(i,  4 ).Characters(Start:= 4 , Length:=Len(prozent)).Font.ColorIndex =  3 
End If
...
Рейтинг: 0 / 0
12.04.2007, 10:27:39
    #34455047
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение другим цветом
Спасибо огромное!!! Все прекрасно работает.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выделение другим цветом / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]