Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/12: Рейтинг темы: голосов - 12, средняя оценка - 4.83
Zhbkjd
0 / 0 / 0
Регистрация: 01.05.2015
Сообщений: 2
1

Скрытие столбцов по условию

01.05.2015, 10:43. Просмотров 2312. Ответов 4
Метки нет (Все метки)

Здравствуйте! помогите решить задачу с вложенным файлом. Нужно написать макрос под кнопку ("скрыть" "отобразить"). В отчете после фильтрации остаются пустые столбцы их бы и надо скрыть с помощью макроса. Отчет, нарастающий по наименованию изделий, нормам и списанию на готовую продукцию. Помогите, буду очень признателен за помощь.
0
Вложения
Тип файла: xlsx Пример отчета 1.xlsx (23.1 Кб, 9 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2015, 10:43
Ответы с готовыми решениями:

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

Автоматическое скрытие строк по условию
Коллеги, необходимо реализовать автоматическое скрытие строк по следующему...

Пользовательская функция на скрытие строки по условию
Имеется стандартная функция: =ЕСЛИ(А1=0;Hide();А1) где "Hide()" -...

Скрытие и отображение столбцов
Возникла такая задачка: Есть 3 вида стоблбцов, которые чередуются (1-й вид,...

Скрытие и отображение столбцов в Excel
Уважаемые форумисты, у нас есть такая задача: Существуют столбцы 'План' и...

4
chumich
1483 / 845 / 280
Регистрация: 20.12.2014
Сообщений: 2,163
01.05.2015, 21:26 2
Поясните:
1) будет ли при этом использоваться фильтр?
2) в заголовках пустых столбцов так и будет: "Названия сырья" или будут конкретные названия?
3) нужно ли скрывать столбец "Артикул/рисунок изделия"?
4) для скрытия будет отдельная кнопка или нужно делать всё на одну?
0
Казанский
14306 / 5924 / 1570
Регистрация: 24.09.2011
Сообщений: 9,332
01.05.2015, 22:34 3
Так?
0
Вложения
Тип файла: xls Пример отчета 1.xls (64.5 Кб, 44 просмотров)
Zhbkjd
0 / 0 / 0
Регистрация: 01.05.2015
Сообщений: 2
02.05.2015, 20:25  [ТС] 4
Спасибо по моему так завтра попробую на отчете.

Добавлено через 21 минуту
1. Сначала фильтруем, да будет использоваться.
2. Будут конкретные названия.
3. Артикул скрывать не надо.
4. Кнопка она в примере есть , можно на ее, на одну

Добавлено через 21 час 1 минуту
Казанский
Спасибо огромное все работает великолепно. Вы бы не могли расписать, что к чему в макросе, что бы в случае чего можно было значение поменять? Например если в колонках остаются 0,00 они не скрываются ?
0
Казанский
14306 / 5924 / 1570
Регистрация: 24.09.2011
Сообщений: 9,332
05.05.2015, 10:31 5
Лучший ответ Сообщение было отмечено chumich как решение

Решение

Строка 5 - берется диапазон автофильтра, включая заголовок.
Строка 8 - диапазон изменяется так, чтобы не включать заголовок и итоговую строку.
Стр. 9-11 - цикл перебирает столбцы диапазона и вычисляет функцию ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3,...), т.е. определяет число видимых значений.
Если Вы хотите учитывать нули в итоговой строке, замените 2 на 1 в стр. 8.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim r As Range, c As Range
  If CommandButton1.Caption = "Скрыть" Then
    On Error Resume Next
    Set r = ActiveSheet.AutoFilter.Range
    If Err = 0 Then
      Application.ScreenUpdating = False
      Set r = r.Offset(1).Resize(r.Rows.Count - 2)
      For Each c In r.Columns
        If WorksheetFunction.Subtotal(3, c) = 0 Then c.EntireColumn.Hidden = True
      Next
      Application.ScreenUpdating = True
    End If
    CommandButton1.Caption = "Отобразить"
  Else
    Columns.Hidden = False
    CommandButton1.Caption = "Скрыть"
  End If
End Sub
0
05.05.2015, 10:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.05.2015, 10:31

Скрытие столбцов вне диапазона дат
Здравствуйте! Не селен пока в макросах поэтому очень нужна ваша помощь....

Вставка новых столбцов по условию
Добрый день! подскажите пожалуйста, как по диапазону A1:M1 проверить каждую...

Скрытие столбцов. Ошибка App-define od obj-define error
Привет) помогите, пожалуйста, ответить на следующие вопросы: 1) выскакивает...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru