Удалить скрытые столбцы и строки на всех листах

Дата: Среда, 08.11.2023, 20:24 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 138

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

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

Всем хорошего вечера, вопрос в принципе весь отражён в названии темы… только добавлю что - макросом)
Че то покопался на форумах и чтоб и то и то удалять , не нашел

Дата: Среда, 08.11.2023, 22:30 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

За основу можно взять мой код отсюда. Фактически там надо подправить одну строку в цикле удаления строк и одну строку в цикле удаления столбцов - собственно, где условие отбора и последующее удаление в одной строке кода. Так вот, надо условие отбора пустых строк/столбцов заменить на условие отбора скрытых. Проверять скрытость либо по свойству Hidden = True, либо по Height/Width = 0 соответственно.

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Среда, 08.11.2023, 22:35

Дата: Среда, 08.11.2023, 22:34 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 138

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

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

Gustav, спасибо попробую…все методом научного тыка))

Дата: Среда, 08.11.2023, 22:54 | Сообщение № 4

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

Ранг: Форумчанин

Сообщений: 138

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

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

Gustav,
вот в этих строчках?
[vba]

Код

[vba][code] If wf.CountA(wks.UsedRange.Rows(i - iMin + 1)) = 0 Then wks.Rows(i).Delete
If wf.CountA(wks.UsedRange.Columns(i - iMin + 1)) = 0 Then wks.Columns(i).Delete

[/vba]

попробовал вот так - не пашет)) грамматики не знаю
[vba]

Код

If wf.Hidden(wks.UsedRange.Rows(i - iMin + 1)) = True Then wks.Rows(i).Delete
If wf.Hidden(wks.UsedRange.Columns(i - iMin + 1)) = True Then wks.Columns(i).Delete

[/vba]
правда не разберусь

Сообщение отредактировал Gjlhzl - Среда, 08.11.2023, 22:55

Дата: Среда, 08.11.2023, 23:46 | Сообщение № 5

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата Gjlhzl, 08.11.2023 в 22:54, в сообщении № 4 (

)

попробовал вот так - не пашет

Не туда Hidden приставляли, надо матчасть подучить. Вот так надо:
[vba]

Код

If wks.Rows(i).Hidden Then wks.Rows(i).Delete

If wks.Columns(i).Hidden Then wks.Columns(i).Delete

[/vba]

МОИ: Ник, Tip box: 41001663842605

Дата: Четверг, 09.11.2023, 05:05 | Сообщение № 6

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

Ранг: Форумчанин

Сообщений: 138

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

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

Gustav, спасибо!

Дата: Пятница, 10.11.2023, 18:31 | Сообщение № 7

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

Ранг: Форумчанин

Сообщений: 138

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

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

Gustav, А подскажите еще...почему макрос работает только если он есть в модуле книги в которой нужно удалить...просто книги открываются макросом потом хочу в них удалить скрытые и пустые строки столбцы..
[vba]

Код

Sub mF()
    Dim arrFILES(), i&
    arrFILES = Application.GetOpenFilename _
    (" (*.xlsx),*.xlsx", , "Open all the necessary files", , True)
    For i = LBound(arrFILES) To UBound(arrFILES)
        Workbooks.Open arrFILES(i)
        Call Удаление_скрытых_и_пустых_строк_и_столбцов_на_всех_листах
    Next 'i
End Sub

[/vba]
при таком раскладе книга открывается и выдает ошибку - 1004 не удалось переместить объекты за пределы листа...и подсвечивает строку
[vba]

Код

If wf.Hidden(wks.UsedRange.Columns(i - iMin + 1)) = True Then wks.Columns(i).Delete

[/vba]

конец строки - wks.Columns(i).Delete подсвечивает

Сообщение отредактировал Gjlhzl - Пятница, 10.11.2023, 18:32

Дата: Пятница, 10.11.2023, 18:45 | Сообщение № 8

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата Gjlhzl, 10.11.2023 в 18:31, в сообщении № 7 (

)

If wf.Hidden(wks.UsedRange.Columns(i - iMin + 1)) = True Then wks.Columns(i).Delete

А что это за строка у вас?! Мы же ее три сообщения назад поменяли на:
[vba]

Код

If wks.Columns(i).Hidden Then wks.Columns(i).Delete

[/vba]
Сейчас какой год? А время года?

МОИ: Ник, Tip box: 41001663842605

Дата: Пятница, 10.11.2023, 18:56 | Сообщение № 9

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Цитата Gjlhzl, 10.11.2023 в 18:31, в сообщении № 7 (

)

почему макрос работает только если он есть в модуле книги в которой нужно удалить

Потому что есть такая строка:
[vba]

Код

For Each wks In ThisWorkbook.Worksheets

[/vba]
ThisWorkbook - это ссылка на книгу, в которой выполняется код VBA. Вы же раньше ничего не говорили о том, что хотите во многих книгах сразу использовать - я и не заботился об этом особо. Попробуйте заменить на ActiveWorkbook, т.е. вот такую строку сделайте:
[vba]

Код

For Each wks In ActiveWorkbook.Worksheets

[/vba]
Если не поможет, будем дальше код исправлять.

МОИ: Ник, Tip box: 41001663842605

Дата: Пятница, 10.11.2023, 19:21 | Сообщение № 10

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

Ранг: Форумчанин

Сообщений: 138

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

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

Gustav, извиняюсь...случайно старую версию файла открыл:))
и за последнюю подсказку спасибо!