Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автофильтр строк - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Автофильтр строк
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
 
Ответить
СообщениеДобрый день ребят скажите можно ли что то придумать такое же но побыстрее) что то долговато оно работает)
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

Автор - kristalniy
Дата добавления - 04.04.2015 в 14:49
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]
 
Ответить
СообщениеДобавьте в код строки
[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]

Автор - Kuzmich
Дата добавления - 04.04.2015 в 17:06
kristalniy Дата: Суббота, 04.04.2015, 18:09 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
спасибо все отлично
 
Ответить
Сообщениеспасибо все отлично

Автор - kristalniy
Дата добавления - 04.04.2015 в 18:09
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!