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

Вход

Регистрация

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

 

= Мир MS Excel/доделка макроса для удаления вместо скрытия строк по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » доделка макроса для удаления вместо скрытия строк по условию (Excel)
доделка макроса для удаления вместо скрытия строк по условию
вадим0101 Дата: Четверг, 14.07.2016, 23:04 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Добрый день, есть отлично работающий макрос но только ни как не могу добиться чтобы строки удалялись а не скрывались.
Если кто подскажет, буду благодарен.

[vba]
Код
Sub №1()
'
' №1 Макрос
'

'
Columns("F:H").Hidden = True
Columns("J:S").Hidden = True
Rows("1:7").Hidden = True
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки
If cell.Value = "*" Then cell.EntireColumn.Hidden = True 'если в ячейке x - скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(1).Cells 'проходим по всем ячейкам первого столбца
If cell.Value = "*" Then cell.EntireRow.Hidden = True 'если в ячейке x - скрываем строку
Next
Application.ScreenUpdating = True
End Sub
[/vba]


Сообщение отредактировал Pelena - Пятница, 15.07.2016, 14:39
 
Ответить
СообщениеДобрый день, есть отлично работающий макрос но только ни как не могу добиться чтобы строки удалялись а не скрывались.
Если кто подскажет, буду благодарен.

[vba]
Код
Sub №1()
'
' №1 Макрос
'

'
Columns("F:H").Hidden = True
Columns("J:S").Hidden = True
Rows("1:7").Hidden = True
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки
If cell.Value = "*" Then cell.EntireColumn.Hidden = True 'если в ячейке x - скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(1).Cells 'проходим по всем ячейкам первого столбца
If cell.Value = "*" Then cell.EntireRow.Hidden = True 'если в ячейке x - скрываем строку
Next
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - вадим0101
Дата добавления - 14.07.2016 в 23:04
вадим0101 Дата: Четверг, 14.07.2016, 23:25 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Друзья нашел тут же!
Работает вроде как надо

[vba]
Код
Sub deleteEmptyRows()
Dim x, i&, delRa As Range
x = Range("A1:A" & [a65535].End(xlUp).Row).Value
For i = 1 To UBound(x)
If x(i, 1) = "*" Then
If delRa Is Nothing Then
Set delRa = Cells(i, 1)
Else
Set delRa = Union(Cells(i, 1), delRa)
End If
End If
Next
If Not delRa Is Nothing Then delRa.EntireRow.Delete
End Sub
[/vba]

большое спасибо пользователю SkyPro
если есть замечания то скажите ваши комментарии.


Сообщение отредактировал Pelena - Пятница, 15.07.2016, 14:39
 
Ответить
СообщениеДрузья нашел тут же!
Работает вроде как надо

[vba]
Код
Sub deleteEmptyRows()
Dim x, i&, delRa As Range
x = Range("A1:A" & [a65535].End(xlUp).Row).Value
For i = 1 To UBound(x)
If x(i, 1) = "*" Then
If delRa Is Nothing Then
Set delRa = Cells(i, 1)
Else
Set delRa = Union(Cells(i, 1), delRa)
End If
End If
Next
If Not delRa Is Nothing Then delRa.EntireRow.Delete
End Sub
[/vba]

большое спасибо пользователю SkyPro
если есть замечания то скажите ваши комментарии.

Автор - вадим0101
Дата добавления - 14.07.2016 в 23:25
RAN Дата: Четверг, 14.07.2016, 23:26 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4533
Репутация: 920 ±
Замечаний: 0% ±

2010
Если кто подскажет, буду благодарен.

Если вы заглянете в Правила, то обнаружите, как мало там того, что бы вы не нарушили.
Загляните, будем благодарны.


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Если кто подскажет, буду благодарен.

Если вы заглянете в Правила, то обнаружите, как мало там того, что бы вы не нарушили.
Загляните, будем благодарны.

Автор - RAN
Дата добавления - 14.07.2016 в 23:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » доделка макроса для удаления вместо скрытия строк по условию (Excel)
Страница 1 из 11
Поиск:

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