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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос на скрытие столбцов с нулевым значение - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на скрытие столбцов с нулевым значение (Макросы/Sub)
Макрос на скрытие столбцов с нулевым значение
Лукашенко Дата: Пятница, 22.04.2022, 16:04 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Добрый день. Такая проблема, не получается создать макрос, чтобы скрывались все пустые столбцы и столбцы со значением ноль. Во вложении прикрепил екселевский файл, помогите пожалуйста дописать макрос. Заранее спасибо ;)
К сообщению приложен файл: _-version_1-.xlsb(44.4 Kb)
 
Ответить
СообщениеДобрый день. Такая проблема, не получается создать макрос, чтобы скрывались все пустые столбцы и столбцы со значением ноль. Во вложении прикрепил екселевский файл, помогите пожалуйста дописать макрос. Заранее спасибо ;)

Автор - Лукашенко
Дата добавления - 22.04.2022 в 16:04
msi2102 Дата: Пятница, 22.04.2022, 18:04 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 201
Репутация: 79 ±
Замечаний: 0% ±

Excel 2007
Так:
[vba]
Код
Sub Макрос3()
Dim i As Long, rng As Range
arr1 = Range("C5:AA345")
i = 1
For m = LBound(arr1, 2) To UBound(arr1, 2)
    For n = LBound(arr1) To UBound(arr1)
        If arr1(n, m) <> 0 And arr1(n, m) <> "" Then i = 0: Exit For
    Next n
    If i = 1 Then
        If rng Is Nothing Then Set rng = Columns(m + 2) Else Set rng = Union(rng, Columns(m + 2))
    End If
    i = 1
Next m
Range("C5:AA345").EntireColumn.Hidden = False
If Not rng Is Nothing Then rng.EntireColumn.Hidden = True
End Sub
[/vba]
К сообщению приложен файл: -version_1-.xlsb(47.2 Kb)


Сообщение отредактировал msi2102 - Пятница, 22.04.2022, 18:05
 
Ответить
СообщениеТак:
[vba]
Код
Sub Макрос3()
Dim i As Long, rng As Range
arr1 = Range("C5:AA345")
i = 1
For m = LBound(arr1, 2) To UBound(arr1, 2)
    For n = LBound(arr1) To UBound(arr1)
        If arr1(n, m) <> 0 And arr1(n, m) <> "" Then i = 0: Exit For
    Next n
    If i = 1 Then
        If rng Is Nothing Then Set rng = Columns(m + 2) Else Set rng = Union(rng, Columns(m + 2))
    End If
    i = 1
Next m
Range("C5:AA345").EntireColumn.Hidden = False
If Not rng Is Nothing Then rng.EntireColumn.Hidden = True
End Sub
[/vba]

Автор - msi2102
Дата добавления - 22.04.2022 в 18:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на скрытие столбцов с нулевым значение (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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