основная идея заключается в том что
если ячейке назначена проверкаданных/список/допустимыезначения
при активации ячейки ??НЕЧТО?? внутри экселя добавляет рядом с ячейкой значок выпадающего списка.
Этот значок относиться к excel.shapes.
Остаётся вычислить появился ли новый рисованный объект при активации ячейки.
Сравниваем коллекцию sheet.DrawingObjects с коллекцией sheet.Shapes
то чего нет в первой коллекции, но есть во второй и является значком открытия выпадающего спика проверки данных.
К сожалению с ним мало что можно сделать средствами VBA, фактически можно только подвигать его по экрану, но это оказывается достаточно, чтоб изменить ширину выпадающего списка.
Кроме этого есть проблема, что если повторно кликнуть по ячейке — активировать её ещё раз. Эта блин её shape обновляется, а событие selection_change не наступает, поэтому непосредственно в код добавлено
SendKeys «%{down}»
чтоб сразу же раскрыть выпадающий список проверки данных.
кстати CellDropdown формально присутствует для всех ячеек, просто пока не назначена проверкаданных/список/допустимыезначения она невидима, Shp.Visible = msoFalse, поэтому присутствует строка If myShp.Visible = msoTrue Then, хотя здесь она вроде и не нужна из-за On Error GoTo endfind. Но если поставить On Error resume next, myShp будет находиться для любой активированной ячейки.
p.s. Для того чтоб ухватить ??НЕЧТО??, реально за ноздрю, наверное нужно обращаться к программистам под windows.
Изменение размера выпадающего списка в Excel 2003 |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
Ширина выпадающего списка.
Автор oleg, 22.10.2008, 11:51
« назад — далее »
Подскажите пожалуйста возможно ли сделать ширину выпадающего списка шире ячейки в два-три раза? Ширина столбца — 10, а значения состоят из нескольких слов. (Список создан: Данные-Проверка-Список).
Спасибо.
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли
Спасибо, но автомасштабирование не подходит, чем отличается список из элементов управления? как его создать?
Цитата: oleg от 22.10.2008, 13:18
Чем отличается список из элементов управления?
Тем, что его размеры задаются произвольно. Возьмите с ПИ «Элементы управления» элемент «Поле со списком» и задайте в его свойствах (через КМ) LincedCell (адрес изменяемой ячейки, напр. B1) и LiftFillRange (диапазон списка, напр. A1:A10).
Примечание: Первая кнопка на рассматриваемой ПИ – вкл/выкл режима конструктора.
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли
- Профессиональные приемы работы в Microsoft Excel
-
►
Обмен опытом -
►
Microsoft Excel -
►
Ширина выпадающего списка.
0 / 0 / 0 Регистрация: 14.12.2018 Сообщений: 2 |
|
1 |
|
Как увеличить длину выпадающего списка14.12.2018, 13:20. Показов 20554. Ответов 2
Всем добрый день. Столкнулся с проблемой, как увеличить длину выпадающего списка в Excel 2013. Облазил уже весь интернет, но решение так и не нашёл. Помогите пожалуйста)
0 |
772 / 615 / 294 Регистрация: 05.01.2014 Сообщений: 1,338 |
|
14.12.2018, 13:35 |
2 |
Если список создан через «Проверку данных», то никак, в раскрывающемся списке может отображаться не более 8 элементов. Но если сделать через «элемент управления формы», то там сами можете задавать кол-во отображаемых значений.
0 |
0 / 0 / 0 Регистрация: 14.12.2018 Сообщений: 2 |
|
14.12.2018, 15:02 [ТС] |
3 |
А есть ли возможность решение данной задачи использованием макросов для «Проверки данных»?
0 |
Выпадающий список — очень полезная функция в Excel, когда вы создаете раскрывающийся список на своем листе, пробовали ли вы когда-нибудь увеличить размер шрифта раскрывающегося списка, чтобы сделать выбранную запись больше и более читаемой, как показано на скриншоте слева? В этой статье будет рассказано об обходном пути для ее решения.
Увеличьте размер шрифта раскрывающегося списка с помощью кода VBA, чтобы увеличить масштаб
Увеличьте размер шрифта раскрывающегося списка с помощью кода VBA, чтобы увеличить масштаб
На самом деле, у нас нет прямого способа увеличить размер шрифта раскрывающегося списка, но вы можете применить следующий код VBA, чтобы изменить настройку масштабирования ячеек раскрывающегося списка, чтобы текст выглядел больше. Пожалуйста, сделайте следующее:
1. Перейдите на рабочий лист, содержащий раскрывающийся список, размер шрифта которого вы хотите увеличить.
2. Щелкните правой кнопкой мыши вкладку листа и выберите Просмотреть код из контекстного меню во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустое Модули окна:
Код VBA: увеличьте размер шрифта раскрывающегося списка, чтобы увеличить масштаб ячейки
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
ActiveWindow.Zoom = xZoom
End Sub
3. Затем сохраните и закройте этот код, теперь, когда вы щелкаете ячейки раскрывающегося списка, масштаб ячейки будет увеличен, а раскрывающийся список будет казаться больше, но, когда вы щелкнете другие ячейки, не содержащие раскрывающегося списка, увеличение ячейки будет нормальным.
Внимание: В приведенном выше коде хЗум = 130 изменит масштаб ячеек раскрывающегося списка на 130, вы можете изменить это значение масштабирования по своему усмотрению.
Создать выпадающий список с флажками в Excel
Если вам нужно создать раскрывающийся список с несколькими флажками, чтобы выбрать несколько элементов из списка в одну ячейку, возможно, у вас нет прямого способа решить эту задачу. Но, Kutools for Excel поддерживают удивительную функцию — Раскрывающийся список с флажкамис помощью этой функции вы можете быстро создать раскрывающийся список с флажками в указанном диапазоне, текущем листе, текущей книге или всех открытых книгах в зависимости от ваших потребностей. Нажмите, чтобы скачать Kutools for Excel!
Демонстрация: увеличьте размер шрифта раскрывающегося списка с помощью кода VBA, чтобы увеличить масштаб
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Комментарии (27)
Оценок пока нет. Оцените первым!