Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Скрыть строки в таблице VBA, Улучшить работу
 
#1
28.04.2013 18:49:51
Добрый день,
В приложение пример с таблицей в которой при вводе порядкового номера в столбике "B" автоматически открывается скрытая ячейка, так же при удаление последней строки скрывается лишняя.
Вопрос, можно ли сделать так, чтобы при удаление нескольких строк так же скрывались несколько строк и была только одна свободная. (Иначе сейчас необходимо удалять по порядку чтобы скрыть лишние строки).

Прошу посмотреть пример в приложении.
 
 
 
#2
28.04.2013 21:23:55
Цитата
Teklan пишет:
пример с таблицей в которой при вводе порядкового номера в столбике "B" автоматически открывается скрытая ячейка
Здравствуйте, и каким - же образом это проверить?
Вот открыл файл, посмотрел) ничего не понял, закрыл.
Опишите более подробно.
 
 
 
#3
28.04.2013 23:01:38
По примеру:
В ячейке B9 вводим число - добавилась еще одна строка (открылась), ввели число в B10 - открылась след. пустая строка.

Дальше, удаляем из B10 - скрылась 1 пустая строка и т.д.
Вопрос был в том, можно ли сделать так, чтобы при удаление сразу же 2ух строк (к примеру B9,B10) скрылись так же 2 строки, а не одна.
 
 
 
#4
29.04.2013 11:28:18
Можно так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i&, j&
  i = 4
  On Error Resume Next
  i = [MATCH(9E+307,B:B)]
  j = [MATCH("яяя",B:B)]
  If i >= j Then Exit Sub
  With Application
    .EnableEvents = False
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    Rows(4).Resize(j - 5).Hidden = False
    Rows(i + 2).Resize(j - i - 2).Hidden = True
    Cells(i + 1, ActiveCell.Column).Select
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
    .ScreenUpdating = True
  End With
End Sub
Изменено: ZVI - 29.04.2013 11:31:42
 
 
 
#5
29.04.2013 17:55:15
Что-то не работает у меня.
А это для чего? :
Код
j = [MATCH("яяя",B:B)]
 
 
 
#6
29.04.2013 18:58:00
Цитата
Teklan:Что-то не работает у меня.
Приложил один в один Ваши данные и мой код, работает.


Цитата
А это для чего? : j = [MATCH("яяя",B:B)]
Для поиска номера строки с Total
 
 
 
Страницы: 1
Наверх