Скрытие строк по условию.
KolyvanOFF
Дата: Понедельник, 26.01.2015, 09:46 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Добрый день. Почитал форум нашел темы которые меня интересуют. Но вот незадача пытаюсь применить на своем файле не получается. Можно ли скрыть строки в которых Слово "скрыть"? Проблема в том что строки объединены!
Добрый день. Почитал форум нашел темы которые меня интересуют. Но вот незадача пытаюсь применить на своем файле не получается. Можно ли скрыть строки в которых Слово "скрыть"? Проблема в том что строки объединены! KolyvanOFF
С уважением, Евгений
Ответить
Сообщение Добрый день. Почитал форум нашел темы которые меня интересуют. Но вот незадача пытаюсь применить на своем файле не получается. Можно ли скрыть строки в которых Слово "скрыть"? Проблема в том что строки объединены! Автор - KolyvanOFF Дата добавления - 26.01.2015 в 09:46
SLAVICK
Дата: Понедельник, 26.01.2015, 13:11 |
Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
Что - то я не увидел внутри макроса, которым Вы хотите скрывать строки Чтобы тот макрос работал нужно: Либо доп. столбец в котором не будет объеденных ячеек. Либо доработать макрос
Что - то я не увидел внутри макроса, которым Вы хотите скрывать строки Чтобы тот макрос работал нужно: Либо доп. столбец в котором не будет объеденных ячеек. Либо доработать макрос SLAVICK
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение Что - то я не увидел внутри макроса, которым Вы хотите скрывать строки Чтобы тот макрос работал нужно: Либо доп. столбец в котором не будет объеденных ячеек. Либо доработать макрос Автор - SLAVICK Дата добавления - 26.01.2015 в 13:11
KolyvanOFF
Дата: Вторник, 27.01.2015, 07:22 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
SLAVICK, макрос не вписывал в файл, т.к. он скрывает строки до размера 15px. Как можно написать макрос чтобы он не изменял размер объединённых ячеек?
SLAVICK, макрос не вписывал в файл, т.к. он скрывает строки до размера 15px. Как можно написать макрос чтобы он не изменял размер объединённых ячеек? KolyvanOFF
С уважением, Евгений
Ответить
Сообщение SLAVICK, макрос не вписывал в файл, т.к. он скрывает строки до размера 15px. Как можно написать макрос чтобы он не изменял размер объединённых ячеек? Автор - KolyvanOFF Дата добавления - 27.01.2015 в 07:22
KolyvanOFF
Дата: Вторник, 27.01.2015, 11:43 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация:
7
±
Замечаний:
60% ±
Excel 2010
Уважаемые форумчане. Прошу посмотреть код макроса в файле. Никак не могу приладить под свои нужды.
Уважаемые форумчане. Прошу посмотреть код макроса в файле. Никак не могу приладить под свои нужды. KolyvanOFF
С уважением, Евгений
Ответить
Сообщение Уважаемые форумчане. Прошу посмотреть код макроса в файле. Никак не могу приладить под свои нужды. Автор - 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]
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
Яндекс.Деньги 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]
Не может быть. выделяем две соседних строки (в вашем прримере строки 12 и 34), щелкаем ПКМ - Показать или так [vba]Код
Sub ttt() Rows("1:33").Hidden = False End Sub
[/vba] nilem
Яндекс.Деньги 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
С уважением, Евгений
Ответить
Сообщение 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
С уважением, Евгений
Ответить
Сообщение Это что вообще? [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), то просто удалите их Кстати, посмотрите что у вас есть в модуле ЭтаКнига. Или давайте фал, вместе посмотрим.
наверное, заготовки для кодов, отвечающих на события листа если они пустые (только Sub и End Sub), то просто удалите их Кстати, посмотрите что у вас есть в модуле ЭтаКнига. Или давайте фал, вместе посмотрим. nilem
Яндекс.Деньги 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]
nilem, файл весит 11 мегов. Каким образом вам скинуть? [moder] кроме nilem на форуме зарегистрировано еще огромное количество участников. Поэтому файлик придется все же приложить на общее обозрение. Каким образом? - уменьшить, удалив с него всю лишнюю инфу.[/moder] KolyvanOFF
С уважением, Евгений
Сообщение отредактировал DJ_Marker_MC - Среда, 28.01.2015, 12:43
Ответить
Сообщение nilem, файл весит 11 мегов. Каким образом вам скинуть? [moder] кроме nilem на форуме зарегистрировано еще огромное количество участников. Поэтому файлик придется все же приложить на общее обозрение. Каким образом? - уменьшить, удалив с него всю лишнюю инфу.[/moder] Автор - KolyvanOFF Дата добавления - 28.01.2015 в 07:06