Автофильтр строк

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Автофильтр строк (Формулы/Formulas)

Автофильтр строк

kristalniy

Дата: Суббота, 04.04.2015, 14:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Добрый день ребят скажите можно ли что то придумать такое же но побыстрее) что то долговато оно работает)
Private Sub CommandButton1_Click()
Dim xRow As Integer, xCol As Integer
Dim i As Integer
If ActiveCell.Value = "" Then Exit Sub
xRow = ActiveCell.Row
xCol = ActiveCell.Column
For i = 1 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
If Cells(xRow, i).Value = "" Then
ActiveSheet.Columns(i).Hidden = True
Else
ActiveSheet.Columns(i).Hidden = False
End If
Next
End Sub

Ответить

Kuzmich

Дата: Суббота, 04.04.2015, 17:06 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 715

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Добавьте в код строки
[vba]

Код

'выключаем некоторые параметры для увеличения скорости обработки файла
     With Application
       .ScreenUpdating = False             'отключение обновление экрана
       .Calculation = xlCalculationManual  'отключение пересчёт формул вручную
       .EnableEvents = False               'отключение событий
       .DisplayAlerts = False              'отключение предупреждающих сообщений
     End With

      'ОСНОВНОЙ КОД....

     With Application
       .ScreenUpdating = True
       .Calculation = xlCalculationAutomatic
       .EnableEvents = True
       .DisplayAlerts = True
     End With
End Sub

[/vba]

Ответить

kristalniy

Дата: Суббота, 04.04.2015, 18:09 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

спасибо все отлично

Ответить

Автофильтр строк (Формулы/Formulas)

Страница 1 из 1
1