Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Функция FILLCOLOR / 10 сообщений из 10, страница 1 из 1
18.04.2007, 11:59:41
    #34469100
gvozdev
gvozdev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
Добрый день. Кто-нибудь знает про функцию FILLCOLOR. Как ее использовать?
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 12:42:59
    #34469365
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
Апи что-ли?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 15:00:53
    #34469951
gvozdev
gvozdev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
по идее эта функция должна возвращать номер цвета ячейки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 15:08:44
    #34469995
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
Код: plaintext
MsgBox Range("A1").Interior.ColorIndex
?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 15:10:48
    #34470002
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
А вот RGB:
Код: plaintext
MsgBox QBColor(Range("A1").Interior.ColorIndex)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 15:52:04
    #34470184
gvozdev
gvozdev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
Есть задача. Проверить цвет ячейки и в зависимости от цвета выполнить какие-то действия.
Я конечно могу написать что-то типа :If Selection.Interior.ColorIndex = 1 Then, но будет слишком много вариантов, хотелось бы написать с помощью Select Case. А как задать условия я не знаю. Вычитал про эту ф-ю FILLCOLOR
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 16:03:11
    #34470238
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
Тю ну вот тебе тогда:

Код: plaintext
1.
2.
3.
4.
5.
Msgbox FILLCOLOR(Range("A1"))


Function FILLCOLOR(a as range)
FILLCOLOR=QBColor(Range(a).Interior.ColorIndex)
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 16:51:47
    #34470431
gvozdev
gvozdev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
Выдает ошибку Run-Time error 1004
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 17:02:51
    #34470483
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub sdas()
MsgBox FILLCOLOR(Range("A1"))
End Sub

Function FILLCOLOR(a As Range)
FILLCOLOR = a.Interior.ColorIndex
End Function



или


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub sdas()
MsgBox FILLCOLOR("A1")
End Sub



Function FILLCOLOR(a As String)
FILLCOLOR = Range(a).Interior.ColorIndex
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2007, 17:41:24
    #34470694
gvozdev
gvozdev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция FILLCOLOR
Большое спасибо. Все работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Функция FILLCOLOR / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 318ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2183110]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 182ms
total:  318ms
x
x
Закрыть


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