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

Вход

Регистрация

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

 

= Мир MS Excel/Скрытие строк по условию. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие строк по условию. (Макросы/Sub)
Скрытие строк по условию.
KolyvanOFF Дата: Понедельник, 26.01.2015, 09:46 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
Добрый день. Почитал форум нашел темы которые меня интересуют. Но вот незадача пытаюсь применить на своем файле не получается.
Можно ли скрыть строки в которых Слово "скрыть"? Проблема в том что строки объединены!
К сообщению приложен файл: 2274776.xlsm (16.7 Kb)

С уважением, Евгений
 
Ответить
СообщениеДобрый день. Почитал форум нашел темы которые меня интересуют. Но вот незадача пытаюсь применить на своем файле не получается.
Можно ли скрыть строки в которых Слово "скрыть"? Проблема в том что строки объединены!
Автор - KolyvanOFF
Дата добавления - 26.01.2015 в 09:46
SLAVICK Дата: Понедельник, 26.01.2015, 13:11 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Что - то я не увидел внутри макроса, которым Вы хотите скрывать строки <_<

Чтобы тот макрос работал нужно:
Либо доп. столбец в котором не будет объеденных ячеек.
Либо доработать макрос

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеЧто - то я не увидел внутри макроса, которым Вы хотите скрывать строки <_<

Чтобы тот макрос работал нужно:
Либо доп. столбец в котором не будет объеденных ячеек.
Либо доработать макрос
Автор - SLAVICK
Дата добавления - 26.01.2015 в 13:11
KolyvanOFF Дата: Вторник, 27.01.2015, 07:22 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
SLAVICK, макрос не вписывал в файл, т.к. он скрывает строки до размера 15px.
Как можно написать макрос чтобы он не изменял размер объединённых ячеек?

С уважением, Евгений
 
Ответить
СообщениеSLAVICK, макрос не вписывал в файл, т.к. он скрывает строки до размера 15px.
Как можно написать макрос чтобы он не изменял размер объединённых ячеек?
Автор - KolyvanOFF
Дата добавления - 27.01.2015 в 07:22
KolyvanOFF Дата: Вторник, 27.01.2015, 11:43 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
Уважаемые форумчане. Прошу посмотреть код макроса в файле. Никак не могу приладить под свои нужды.
К сообщению приложен файл: 0940549.xlsm (15.7 Kb)

С уважением, Евгений
 
Ответить
СообщениеУважаемые форумчане. Прошу посмотреть код макроса в файле. Никак не могу приладить под свои нужды.
Автор - KolyvanOFF
Дата добавления - 27.01.2015 в 11:43
nilem Дата: Вторник, 27.01.2015, 13:57 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
KolyvanOFF,
наверное, вот так
[vba]
Код
Sub p()
Dim i As Long
For i = 1 To 33
     If Cells(i, 1) = "Скрыть" Then Rows(i).Hidden = True
Next
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеKolyvanOFF,
наверное, вот так
[vba]
Код
Sub p()
Dim i As Long
For i = 1 To 33
     If Cells(i, 1) = "Скрыть" Then Rows(i).Hidden = True
Next
End Sub
[/vba]
Автор - nilem
Дата добавления - 27.01.2015 в 13:57
nilem Дата: Вторник, 27.01.2015, 15:51 | Сообщение № 6
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Не может быть.
выделяем две соседних строки (в вашем прримере строки 12 и 34), щелкаем ПКМ - Показать
или так
[vba]
Код
Sub ttt()
Rows("1:33").Hidden = False
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеНе может быть.
выделяем две соседних строки (в вашем прримере строки 12 и 34), щелкаем ПКМ - Показать
или так
[vba]
Код
Sub ttt()
Rows("1:33").Hidden = False
End Sub
[/vba]
Автор - nilem
Дата добавления - 27.01.2015 в 15:51
KolyvanOFF Дата: Вторник, 27.01.2015, 16:10 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
nilem, у меня какая-то ерунда в "Исходном коде" написана.

С уважением, Евгений
 
Ответить
Сообщениеnilem, у меня какая-то ерунда в "Исходном коде" написана.
Автор - KolyvanOFF
Дата добавления - 27.01.2015 в 16:10
KolyvanOFF Дата: Вторник, 27.01.2015, 16:10 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
это может как то повлиять?

С уважением, Евгений
 
Ответить
Сообщениеэто может как то повлиять?
Автор - KolyvanOFF
Дата добавления - 27.01.2015 в 16:10
KolyvanOFF Дата: Вторник, 27.01.2015, 16:16 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
Это что вообще?

[vba]
Код
Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_Calculate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
[/vba]

С уважением, Евгений
 
Ответить
СообщениеЭто что вообще?

[vba]
Код
Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_Calculate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
[/vba]
Автор - KolyvanOFF
Дата добавления - 27.01.2015 в 16:16
nilem Дата: Вторник, 27.01.2015, 16:22 | Сообщение № 10
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
наверное, заготовки для кодов, отвечающих на события листа
если они пустые (только Sub и End Sub), то просто удалите их

Кстати, посмотрите что у вас есть в модуле ЭтаКнига. Или давайте фал, вместе посмотрим.

Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Вторник, 27.01.2015, 16:26
 
Ответить
Сообщениенаверное, заготовки для кодов, отвечающих на события листа
если они пустые (только Sub и End Sub), то просто удалите их

Кстати, посмотрите что у вас есть в модуле ЭтаКнига. Или давайте фал, вместе посмотрим.
Автор - nilem
Дата добавления - 27.01.2015 в 16:22
KolyvanOFF Дата: Среда, 28.01.2015, 07:06 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
nilem, файл весит 11 мегов. Каким образом вам скинуть?

[moder] кроме nilem на форуме зарегистрировано еще огромное количество участников. Поэтому файлик придется все же приложить на общее обозрение. Каким образом? - уменьшить, удалив с него всю лишнюю инфу.[/moder]

С уважением, Евгений

Сообщение отредактировал DJ_Marker_MC - Среда, 28.01.2015, 12:43
 
Ответить
Сообщениеnilem, файл весит 11 мегов. Каким образом вам скинуть?

[moder] кроме nilem на форуме зарегистрировано еще огромное количество участников. Поэтому файлик придется все же приложить на общее обозрение. Каким образом? - уменьшить, удалив с него всю лишнюю инфу.[/moder]
Автор - KolyvanOFF
Дата добавления - 28.01.2015 в 07:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие строк по условию. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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