Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.10.2007, 17:58   #1
Bayers
 
Регистрация: 17.07.2007
Сообщений: 7
Стрелка Скрытие ненужных строк/столбцов

Уважаемые дамы и господа!
Кто нибудь знает, как скрыть неиспользуемые строки и столбцы, чтобы были видны только рабочие. Выделять и срывать пробовал - слишком много времени уходит (пока 12000 строк выделит). Как можно автоматизировать сей процесс? Можт есть у кого соответствующий макрос? С удовольствием и благодарностью Приму
Bayers вне форума
Старый 17.10.2007, 22:02   #2
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

хм, а кто там у вас выделяет 12000 строк?

я делаю так, чтобы скрыть строки
1) выделяю 1 ряд, допустим строка 30
2) нажимаю Ctrl+Shift+Стрелочка вниз
3) на выделеной области нажимаю правой клавишей мыши и в контекстном меню выбираю "Скрыть"

Для того, чтобы скрыть столбцы
1) выделяю один столбец, допустим F
2) нажимаю Ctrl+Shift+стрелочка вправо
3) на выделеной области нажимаю правой клавишей мыши и в контекстном меню выбираю "Скрыть"
Pavel55 вне форума
Старый 17.10.2007, 22:12   #3
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Добавлю:
Ctrl - добавляет к выделенному.
Shift - выделяет облась от указателя ло курсора.
Поэкспериментируйте с этими клавивами и с их комбинацией.
Alex21 вне форума
Старый 17.10.2007, 22:37   #4
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

Ну, а если я очень хотел бы макрос, то, наверное, для себя бы написал такой.

Для работы макроса столбец А и 1-й ряд должны содержать любые данные

Код:
Sub HideRowsColumns()
Dim iLastRow&, iLastColumn&, ColLetter$
    'скрываем ряды
    iLastRow = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 'последняя заполненная строка в столбца А
    If iLastRow <> 1 Then
        Rows(iLastRow + 5 & ":" & Rows.Count).EntireRow.Hidden = True
    End If
    'скрываем стобцы
    iLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column 'последний заполненный столбец в 1 ряду
    ColLetter = Replace(Cells(1, iLastColumn + 3).Address(0, 0), 1, "") 'переводим номер столбца в букву
    If iLastColumn <> 1 Then
        Columns(ColLetter & ":IV").EntireColumn.Hidden = True 'IV - последний столбец в Excel 2003
    End If
End Sub
Pavel55 вне форума
Старый 19.10.2007, 12:05   #5
Bayers
 
Регистрация: 17.07.2007
Сообщений: 7
По умолчанию

Павел, Алекс! Спасибо огромное!
Bayers вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как избавиться от ненужных чисел Славный Общие вопросы Delphi 1 09.06.2008 22:40
Скрытие столбцов по условию snake980 Microsoft Office Excel 6 26.02.2008 16:52
Запрет на удаление строк и столбцов Shavminator Microsoft Office Excel 2 12.01.2008 13:36
очистка диска от ненужных файлов }{@TT@BЬ)Ч Софт 4 30.11.2007 05:25
как в стрингриде задавать ширину(высоту) ячеек, а для отдельных строк (столбцов)) sdp Компоненты Delphi 3 20.06.2007 23:02