Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование заливки ячейки / 5 сообщений из 5, страница 1 из 1
08.03.2006, 14:17:00
    #33588139
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование заливки ячейки
Range("Z1").Interior.ColorIndex = Range(ActiveCell.Columns & "2").Interior.ColorIndex дает ошибку run time error 1004
Если вместо ActiveCell.Columns & "2" поставить (например) "P2" то все нормально. В чем ошибка? Мне нужно брать цвет ячейки именно с текущей ячейки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2006, 14:22:47
    #33588151
Петров Андрей
Петров Андрей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование заливки ячейки
Left(ActiveCell.Address,1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2006, 14:37:25
    #33588170
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование заливки ячейки
Петров АндрейLeft(ActiveCell.Address,1)
Не проходит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2006, 15:29:40
    #33588201
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование заливки ячейки
Код: plaintext
1.
    Range("A1").Interior.Color = _
      Cells( 2 , ActiveCell.Column).Interior.Color

или

Код: plaintext
1.
    Range("A1").Interior.Color = _
      Range(Left(ActiveCell.Address(False, False),  1 ) & "2").Interior.Color
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2006, 17:50:55
    #33588284
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Копирование заливки ячейки
talgatRange("Z1").Interior.ColorIndex = Range(ActiveCell.Columns & "2").Interior.ColorIndex дает ошибку run time error 1004
Если вместо ActiveCell.Columns & "2" поставить (например) "P2" то все нормально. В чем ошибка? Мне нужно брать цвет ячейки именно с текущей ячейки.
Ошибка как обычно от невнимательности.
1) Не путай ActiveCell.Columns и ActiveCell.Column. Первое коллекция, второе номер колонки первой ячейки в области.
2) ActiveCell.Column даст тебе номер колонки. Цифра склееная с цифрой "2" никак не получится нормальный адрес ячейки

Перепиши свою строку в:
Код: plaintext
Range("Z1").Interior.ColorIndex = Cells( 2 , ActiveCell.Column).Interior.ColorIndex
и будет тебе щастье.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копирование заливки ячейки / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 380ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185156]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 111ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 207ms
total:  380ms
x
x
Закрыть


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