![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
![]()
скажите, пожалуйста, как сделать так, чтобы заливка была не до конца страницы, а до последней строки. в которую внесены данные, при условии что номер последней строки всегда разный.
Columns("A:Q").EntireColumn.Interio r.ColorIndex = 41 |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
![]()
Определяем номер последней заполненной строки iRow и
Range("A1:Q" & iRow).EntireColumn.Interior.ColorIn dex = 41
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
![]() |
![]() |
![]() |
#3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
Columns("A1:Q" & UsedRange.SpecialCells(xlCellTypeLa stCell).Row).Interior.ColorIndex = 41
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
![]()
IgorGO,
usedrange в моем макросе распознается как просто переменная, то есть выходит ошибка о том что не объявлена переменная |
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
![]()
а так если?
Range("A1:Q" & Cells.SpecialCells(xlLastCell).Row) .Interior.ColorIndex = 41 у меня работает
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
![]()
VictorM,
да, так получилось. спасибо! |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заливка таблиц | CyberMen | Microsoft Office Word | 6 | 18.08.2010 20:13 |
заливка изображений | kirosin | PHP | 5 | 27.06.2010 18:46 |
Заливка Гуро | Alenkakiss | C++ Builder | 1 | 07.03.2010 12:48 |