Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как покрасить в Excel столбец по условию ??? / 6 сообщений из 6, страница 1 из 1
26.03.2009, 10:46
    #35892856
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как покрасить в Excel столбец по условию ???
Здравствуйте !!!
Собственно сабж...
В Excel експортирую какие-то данные :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub exc_Click()
Dim n As Integer, n1 As Integer
Dim i As Integer
Dim Dat  As String, Ret As String, Er As String
Dim Rut As Integer
Dim objExcel As Excel.Application

On Error GoTo Error

Set objExcel = New Excel.Application
objExcel.Workbooks.Add ("D:\Raport\BN.xls")
.
.
.
 If InStr("Строка","L") Then
 objExcel.Cells(n, n1).Value = "L"  ' Столбик n1 покрасить цветом ???
 End If

Спасибо.
...
Рейтинг: 0 / 0
26.03.2009, 12:15
    #35893248
Krasnaja Shapka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как покрасить в Excel столбец по условию ???
пользуйся меню / макросы / запись нового макроса
...
Рейтинг: 0 / 0
26.03.2009, 20:51
    #35895001
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как покрасить в Excel столбец по условию ???
Krasnaja Shapka,
не говорите ерунды.

Valeriu , используйте условное форматирование.
...
Рейтинг: 0 / 0
31.03.2009, 13:25
    #35903021
Krasnaja Shapka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как покрасить в Excel столбец по условию ???
какая ерунда если требуется VBA решение и условие уже есть???
...
Рейтинг: 0 / 0
01.04.2009, 13:12
    #35905543
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как покрасить в Excel столбец по условию ???
Valeriu,
Код: plaintext
Columns(n1).Interior.ColorIndex =  6 
...
Рейтинг: 0 / 0
06.04.2009, 15:28
    #35914747
Skiffspb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как покрасить в Excel столбец по условию ???
PlanBValeriu,
Код: plaintext
Columns(n1).Interior.ColorIndex =  6 


или просто .Interior.Color - тогда можно не просто индекс из стандартной палитры, а полноценный RGB подсовывать (если стандартных цветов недостаточно, или делается экспорт цвета из сторонней программы, ничего про эекселевсие "индексы" и понятия не имеющей).
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как покрасить в Excel столбец по условию ??? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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