Страница: 1 |
есть заполненная таблица. Нужно чтобы скрывались строки с первой пустой до конца (65536)
Sub Скрыть() Dim r As Integer r = ActiveSheet.UsedRange.Rows.Count + 1 Rows(r & ":65536").EntireRow.Hidden = True End Sub dedtolya Спасибо за помощь. Есть одна проблемка, с которой я пока не разобрался, может ты поможешь. В новом листе процедура работает, все ок. А вот на том, для которого все это нужно, нифига, пишет "Overflow". Из-за чего это может быть? ...r типа Integer, а "...Переменные типа Integer (целые) сохраняются как 16-разрядные (2-байтовые) числа в диапазоне от -32768 до 32767... " т.е. если в строке r = ActiveSheet.UsedRange.Rows.Count + 1 пытаешься присвоить число больше 32767 будет "Overflow"... попробуй сделать например Dim r As Long.... Сделал Dim r As Long теперь на строке Rows(r & ":65536").EntireRow.Hidden = True пишет Type Mishmatch Sub Скрыть() ну не знаю...У меня вот так все стабильно работает... Страница: 1 |
Вопрос: Надо скрыть пустые строки до конца листа
Добавлено: 21.10.03 15:50
Автор вопроса: Boom
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
dedtolya
Вопросов: 0
Ответов: 39
Профиль | | #1
Добавлено: 23.10.03 02:17
Номер ответа: 2
Автор ответа:
Boom
Вопросов: 2
Ответов: 2
Профиль | | #2
Добавлено: 23.10.03 10:17
Номер ответа: 3
Автор ответа:
.COM
ICQ: 212158853
Вопросов: 4
Ответов: 79
Профиль | | #3
Добавлено: 23.10.03 10:35
Номер ответа: 4
Автор ответа:
Boom
Вопросов: 2
Ответов: 2
Профиль | | #4
Добавлено: 23.10.03 16:59
Номер ответа: 5
Автор ответа:
.COM
ICQ: 212158853
Вопросов: 4
Ответов: 79
Профиль | | #5
Добавлено: 24.10.03 12:03
Dim r As Long
r = ActiveSheet.UsedRange.Rows.Count + 2
Rows(r & ":65536").EntireRow.Hidden = True
End Sub