VBNet - Форум - Надо скрыть пустые строки до конца листа

Вопрос: Надо скрыть пустые строки до конца листа Добавлено: 21.10.03 15:50

Автор вопроса: Boom

есть заполненная таблица. Нужно чтобы скрывались строки с первой пустой до конца (65536)

Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

dedtolya

Вопросов: 0
Ответов: 39

Профиль | | #1

Добавлено: 23.10.03 02:17

Sub Скрыть()

Dim r As Integer

r = ActiveSheet.UsedRange.Rows.Count + 1

Rows(r & ":65536").EntireRow.Hidden = True

End Sub

dedtolya

Ответить

Номер ответа: 2
Автор ответа:

Boom

Вопросов: 2
Ответов: 2

Профиль | | #2

Добавлено: 23.10.03 10:17

Спасибо за помощь. Есть одна проблемка, с которой я пока не разобрался, может ты поможешь.

В новом листе процедура работает, все ок. А вот на том, для которого все это нужно, нифига, пишет "Overflow". Из-за чего это может быть?

Ответить

Номер ответа: 3
Автор ответа:

.COM

ICQ: 212158853

Вопросов: 4
Ответов: 79

Профиль | | #3

Добавлено: 23.10.03 10:35

...r типа Integer, а "...Переменные типа Integer (целые) сохраняются как 16-разрядные (2-байтовые) числа в диапазоне от -32768 до 32767... "

т.е. если в строке r = ActiveSheet.UsedRange.Rows.Count + 1 пытаешься присвоить число больше 32767 будет "Overflow"...

попробуй сделать например Dim r As Long....

Ответить

Номер ответа: 4
Автор ответа:

Boom

Вопросов: 2
Ответов: 2

Профиль | | #4

Добавлено: 23.10.03 16:59

Сделал Dim r As Long

теперь на строке Rows(r & ":65536").EntireRow.Hidden = True

пишет Type Mishmatch

Ответить

Номер ответа: 5
Автор ответа:

.COM

ICQ: 212158853

Вопросов: 4
Ответов: 79

Профиль | | #5

Добавлено: 24.10.03 12:03

Sub Скрыть()
Dim r As Long
r = ActiveSheet.UsedRange.Rows.Count + 2
Rows(r & ":65536").EntireRow.Hidden = True
End Sub

ну не знаю...У меня вот так все стабильно работает...

Ответить

Страница: 1 |