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

Вход

Регистрация

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

 

= Мир MS Excel/Скрытие столбцов через список с флажками - Мир MS Excel

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

2010
Здравствуйте, уважаемые участники форума!

У меня такая проблема.
В большой таблице требуется скрывать те столбцы, которые не нужны для работы в данный момент. Но чтобы не "мотать" таблицу, выбирая ненужные столбцы, требуется создать список (в файле-примере: на месте столбца "А"). Какие флажки в этом списке будут установлены - такие столбцы и будут отображаться.

Не знаю, есть ли подходящий для этой задачи элемент управления. Или всё же придётся ставить по одному флажку к каждому столбцу, а потом писать макрос, скрывающий столбцы "ЛОЖЬ" по нажатию кнопки. На большее, к сожалению, у меня знаний не хватает.

Поделитесь, пожалуйста, мыслями, как можно проще решить эту задачу.
К сообщению приложен файл: 6139686.xlsx (19.0 Kb)
 
Ответить
СообщениеЗдравствуйте, уважаемые участники форума!

У меня такая проблема.
В большой таблице требуется скрывать те столбцы, которые не нужны для работы в данный момент. Но чтобы не "мотать" таблицу, выбирая ненужные столбцы, требуется создать список (в файле-примере: на месте столбца "А"). Какие флажки в этом списке будут установлены - такие столбцы и будут отображаться.

Не знаю, есть ли подходящий для этой задачи элемент управления. Или всё же придётся ставить по одному флажку к каждому столбцу, а потом писать макрос, скрывающий столбцы "ЛОЖЬ" по нажатию кнопки. На большее, к сожалению, у меня знаний не хватает.

Поделитесь, пожалуйста, мыслями, как можно проще решить эту задачу.

Автор - Brisk
Дата добавления - 13.09.2014 в 02:27
_Boroda_ Дата: Суббота, 13.09.2014, 03:37 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Посмотрите тут. Может, понравится. Только до конца тему прочитайте и все примеры посмотрите - там много вариантов.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПосмотрите тут. Может, понравится. Только до конца тему прочитайте и все примеры посмотрите - там много вариантов.

Автор - _Boroda_
Дата добавления - 13.09.2014 в 03:37
alex77755 Дата: Суббота, 13.09.2014, 10:30 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

Может так?
кнопку Ctr используйте.

Цитата
Какие флажки в этом списке будут установлены - такие столбцы и будут отображаться.

тогда поправьте
[vba]
Код
Columns(c + 2).EntireColumn.Hidden = Not ListBox1.Selected(c)
[/vba]
Исправил. Перезалил
К сообщению приложен файл: 6139680_.rar (31.0 Kb)


Могу помочь в VB6, VBA
Alex77755@mail.ru


Сообщение отредактировал alex77755 - Суббота, 13.09.2014, 10:39
 
Ответить
СообщениеМожет так?
кнопку Ctr используйте.

Цитата
Какие флажки в этом списке будут установлены - такие столбцы и будут отображаться.

тогда поправьте
[vba]
Код
Columns(c + 2).EntireColumn.Hidden = Not ListBox1.Selected(c)
[/vba]
Исправил. Перезалил

Автор - alex77755
Дата добавления - 13.09.2014 в 10:30
Brisk Дата: Воскресенье, 14.09.2014, 22:26 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

2010
Посмотрите тут. Может, понравится.

Смотрел. Но, к сожалению, для себя ничего не смог приспособить.
Может так?
кнопку Ctr используйте.

Да, именно так. Здорово! hands

Спасибо большое)
 
Ответить
Сообщение
Посмотрите тут. Может, понравится.

Смотрел. Но, к сожалению, для себя ничего не смог приспособить.
Может так?
кнопку Ctr используйте.

Да, именно так. Здорово! hands

Спасибо большое)

Автор - Brisk
Дата добавления - 14.09.2014 в 22:26
Brisk Дата: Понедельник, 29.09.2014, 23:09 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

2010
Ребят, мне неловко, что я снова обращаюсь с этим вопросом.
Но я уже за много дней всю голову сломал, закипел совсем.

Всё отлично работает в файле, что прикрепил alex77755. Всё отлично работает, если создать новый файл с таким же списком и кодом.
Но когда я пытаюсь внедрить такую штуку в свой рабочий файл, куда она и предназначалась, он выдаёт ошибку при попытке использовать список: "Could not get the Selected property. Invalid argument".
Пробовал удалять из книги всё, кроме листа с формой. Пробовал создавать новый лист в книге. Ничего не помогает.
Выделяет жёлтым строку:
Цитата
Columns(c + 2).EntireColumn.Hidden = Not ListBox1.Selected©


Есть предположения, как с этим справиться? Прикрепил "больной" файл по ссылке: http://rghost.ru/58272053. Он весьма весомый (наверное, из-за других макросов. только что заметил, что они остались).

P.S.: в книге много листов с формулами, ссылающимися на этот лист. Переделывать книгу заново - тяжелый и очень нежелательный вариант.


Сообщение отредактировал Brisk - Понедельник, 29.09.2014, 23:12
 
Ответить
СообщениеРебят, мне неловко, что я снова обращаюсь с этим вопросом.
Но я уже за много дней всю голову сломал, закипел совсем.

Всё отлично работает в файле, что прикрепил alex77755. Всё отлично работает, если создать новый файл с таким же списком и кодом.
Но когда я пытаюсь внедрить такую штуку в свой рабочий файл, куда она и предназначалась, он выдаёт ошибку при попытке использовать список: "Could not get the Selected property. Invalid argument".
Пробовал удалять из книги всё, кроме листа с формой. Пробовал создавать новый лист в книге. Ничего не помогает.
Выделяет жёлтым строку:
Цитата
Columns(c + 2).EntireColumn.Hidden = Not ListBox1.Selected©


Есть предположения, как с этим справиться? Прикрепил "больной" файл по ссылке: http://rghost.ru/58272053. Он весьма весомый (наверное, из-за других макросов. только что заметил, что они остались).

P.S.: в книге много листов с формулами, ссылающимися на этот лист. Переделывать книгу заново - тяжелый и очень нежелательный вариант.

Автор - Brisk
Дата добавления - 29.09.2014 в 23:09
Wasilich Дата: Вторник, 30.09.2014, 00:15 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Может так проще будет!
К сообщению приложен файл: Brisk.xls (66.5 Kb)
 
Ответить
СообщениеМожет так проще будет!

Автор - Wasilich
Дата добавления - 30.09.2014 в 00:15
Brisk Дата: Вторник, 14.10.2014, 13:56 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

2010
Может так проще будет!


Спасибо за предложение, Wasilic. Но тут их нельзя выделять "массово".
Свою проблему решил, заменив в своей книге лист с нерабочей формой листом с рабочей (из файла, который загрузил alex77755). victory
 
Ответить
Сообщение
Может так проще будет!


Спасибо за предложение, Wasilic. Но тут их нельзя выделять "массово".
Свою проблему решил, заменив в своей книге лист с нерабочей формой листом с рабочей (из файла, который загрузил alex77755). victory

Автор - Brisk
Дата добавления - 14.10.2014 в 13:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие столбцов через список с флажками (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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