Текст подсказка в excel

Хитрости »

26 Декабрь 2016              59631 просмотров

Всплывающая подсказка в ячейке

Сегодня хочу поделиться одним маленьким приемом, который поможет сделать удобные и красивые подсказки к ячейкам:

На создание такой подсказки меня навел однажды вопрос на одном из форумов — как можно сделать удобный перевод текста из ячейки, чтобы он показывался при наведении на ячейку мышью? Не выделении — именно наведении. Можно использовать примечания(вкладка Рецензирование -Создать примечание). Но в случае с примечаниями есть несколько не очень удобных моментов: размеры примечания придется подгонять для каждой подсказки отдельно; примечания как правило будут показываться справа от ячейки, а не чуть ниже; при большом количестве примечаний файл может значительно увеличиться в размерах и некоторые возможности будут мешать их корректному отображению(например, если закрепить области, то примечание может и съехать и «срезаться»). Первое, что пришло в голову — а что если сделать как в гиперссылках (Что такое гиперссылка?)? Если точнее — что если именно эти подсказки использовать? Но как же тогда делать гиперссылку? Куда? Все просто — я решил, что можно создать гиперссылку на ячейку, в которой сама гиперссылка. Тогда даже при нажатии на ячейку с гиперссылкой нас никуда не перекинет. Я покажу как это можно сделать вручную и как это можно сделать при помощи кода VBA.
Для начала немного об исходных данных. У нас есть лист с ячейками, в которых надо создать подсказки и есть лист «справочник», в котором указано для каких значений какие должны быть подсказки.

РУЧНОЕ СОЗДАНИЕ ПОДСКАЗКИ
Выделяем ячейку, подсказку для которой хотим создать -правый клик мыши -Гиперссылка (Hyperlink). Откроется окно добавления гиперссылки.

Выбираем местом в документе
Введите адрес ячейки — указываем адрес той ячейки, в которой хотим создать подсказку
Или выберите место в документе — указываем тот лист, на котором наша ячейка, в которой создаем подсказку.
Далее жмем кнопку Подсказка и в появившемся окне вписываем текст всплывающей подсказки -Ок. Так же в основном окне жмем Ок. Подсказка создана.
Ниже небольшой ролик, в котором показано как это все делается пошагово:

В этом способе все хорошо, кроме двух вещей:

1. Если подсказок много, то создавать их весьма непростое занятие. Необходимость листа «справочник» при ручном методе так же ставится под сомнение
2. При создании гиперссылки формат ячейки автоматом изменяется. А для нашей цели это в большинстве случаев не надо. Это можно обойти, создавая подсказки вторым способом — при помощи кодов VBA.

СОЗДАНИЕ ПОДСКАЗКИ АВТОМАТИЧЕСКИ КОДОМ VBA
Здесь особо рассказывать нечего — лучше сначала скачать файл, приложенный к статье. Там есть лист «справочник», в котором забита пара значений для подсказок и лист, в котором подсказки создаются.
Как это работает. Выделяются ячейки для создания подсказок(в примере это D15:D16). И кнопкой запускается код, который в выделенных ячейках создаст всплывающие подсказки. Сам принцип: код просматривает каждую выделенную ячейку и если она не пустая запоминает её значение. Ищет это значение в первом столбце листа «справочник» и если находит — создает гиперссылку и значение из второго столбца листа «справочник»(в строке с найденным значением) вставляет в качестве подсказки к гиперссылке.
Но помимо этого код перед созданием гиперссылки запоминает большую часть форматирования текста в ячейке и после создания гиперссылки возвращает его. Хотя и здесь не без ложки дегтя — код не сможет корректно обработать и вернуть смешанное форматирование (например, разный цвет шрифта в одной ячейке, разный стиль и т.п.). Но подсказки при этом все равно будут созданы.
Что следует знать: код ищет каждое значение ячейки полностью, а не каждое слово отдельно. Это значит, что если в ячейке будет записано «аннуитентный платеж», а не просто «аннуитентный» как в примере — то подсказка для такой ячейки не будет создана.
Если добавить или изменить значения в листе «справочник», то для того, чтобы подсказки обновились необходимо запустить код заново. Внесение изменений в сам код при этом не требуется.
Созданные подсказки останутся в файле даже если удалить сам код. Т.е. если создать подсказки в файле, а затем файл переслать другому человеку — он сможет использовать подсказки без дополнительных действий.

Скачать пример:

  Всплывающая подсказка в ячейке (59,0 KiB, 3 902 скачиваний)

Если кому-то лень качать сам пример — привожу так же код:

'---------------------------------------------------------------------------------------
' Author : The_Prist(Щербаков Дмитрий)
'          Профессиональная разработка приложений для MS Office любой сложности
'          Проведение тренингов по MS Excel
'          http://www.excel-vba.ru
' Purpose:
'---------------------------------------------------------------------------------------
Option Explicit
'
Sub CreateTooltip()
    Dim rr As Range, rc As Range, rf As Range
    Dim wsDic As Worksheet
    Dim aParams(1 To 12)
    'лист в котором указано для каких значений какие должны быть подсказки
    Set wsDic = ThisWorkbook.Sheets("справочник")
 
    On Error Resume Next
    'определяем в выделенном диапазоне ячейки только внутри рабочего диапазона
    Set rr = Intersect(Selection, ActiveSheet.UsedRange)
    'если лист пустой - завершаем код
    If rr Is Nothing Then Exit Sub
    On Error GoTo 0
    'отключаем обновление экрана для быстродействия
    Application.ScreenUpdating = False
    'цикл по выделенным ячейкам
    For Each rc In rr.Cells
        With rc
            If Len(.Value) Then 'если в ячейке есть значение(не пустая)
                'ищем значение ячейки на листе "справочник"
                Set rf = wsDic.Columns(1).Find(what:=.Value, LookIn:=xlValues, lookat:=xlWhole)
                'если соответствие найдено
                If Not rf Is Nothing Then
                    On Error Resume Next 'если вдруг есть смешанное форматирование текста
                    'запоминаем форматирование ячейки до создания гиперссылки
                    With .Font
                        aParams(1) = .Color
                        aParams(2) = .Bold
                        aParams(3) = .FontStyle
                        aParams(4) = .Italic
                        aParams(5) = .Name
                        aParams(6) = .Size
                        aParams(7) = .Strikethrough
                        aParams(8) = .Subscript
                        aParams(9) = .Superscript
                        aParams(10) = .ThemeFont
                        aParams(11) = .TintAndShade
                        aParams(12) = .Underline
                    End With
                    'добавляем гиперссылку с подсказкой из ячейки второго столбца
                    'листа "справочник"
                    .Hyperlinks.Add rc, "", "", (rf.Offset(, 1).Value), (.Value)
                    'отменяем стандартное форматирование ячейки после создания гиперссылок
                    With .Font
                        .Color = aParams(1)
                        .Bold = aParams(2)
                        .FontStyle = aParams(3)
                        .Italic = aParams(4)
                        .Name = aParams(5)
                        .Size = aParams(6)
                        .Strikethrough = aParams(7)
                        .Subscript = aParams(8)
                        .Superscript = aParams(9)
                        .ThemeFont = aParams(10)
                        .TintAndShade = aParams(11)
                        .Underline = aParams(12)
                    End With
                    On Error GoTo 0
                End If
            End If
        End With
    Next
    Application.ScreenUpdating = True
End Sub

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Изучим простой способ добавления всплывающей подсказки в Excel при вводе данных в ячейку.

Одним из элементов упрощения ввода данных пользователем является добавление всплывающей подсказки, которая появляется при активации конкретной ячейки.
Это позволяет минимизировать возможность ошибки при вводе, а также напоминает какие конкретно данные необходимо ввести в ячейку.

Как сделать всплывающую подсказку?

Чтобы сделать всплывающую подсказку для ячейки выберем на панели вкладок Данные -> Работа с данными -> Проверка данных и в открывшемся окне перейдем в центральную вкладку:

Далее вводим информацию в поля Заголовок и Сообщение, при этом текст введенный в заголовок при отображении подсказки будет показываться жирным шрифтом, а также устанавливаем галочку напротив поля Отображать подсказку, если ячейка является текущей. Нажимаем OK и получаем следующий результат:

Удачи вам и до скорой встречи на страницах блога Tutorexcel.ru!

Отображение и скрытие всплывающих подсказок

​Смотрите также​ в одной ячейке,​Когда поставили курсор в​ введенное имя «​ со словом «Деревья».​ решение какая процедура​ не хотелось бы​

​ кнопке закреплен макрос​: Это макрос. Посмотреть​: Похоже, файлы Excel​: 2003, 2007, 2010​nilem​ громоздки в исполнении​ подчеркнутых букв​

В этой статье

​ Такую возможность не​ Но на эту​

​ для Ленты) позволяют​

Отображение и скрытие всплывающих подсказок

1. ​Всплывающие подсказки представляют собой​​ разделенные любым знаком​​ поле «Источник», переходим​

2. ​ & _ Target​​ То есть нужно​​ дальше должна быть​

3. ​ перебрасывать активность на​​ SelOn, который должен​​ его можно кликнув​

4. ​ Вам выдают ограниченно.​​ портабле — везде​​: в Module1​​ и мне не​​0mega​

   • ​ обнаружила​​ панель можно вывести​ быстро выполнять любые​ небольшие окна, в​ препинания, применим такой​ на лист и​ & » в​ выбрать стиль таблицы​ запущена.​ другую ячейку, а​ msgBox выдавать. У​ по ярлычку листа​

   • ​ Зато на картинки​ ноль эмоций!​​Sub ertert()​ подошли. Уверена, что​: у меня есть​The_Prist​ еще и подсказки​ задачи, доступные на​

   • ​ которых выводится текст​​ модуль.​ выделяем попеременно нужные​ выпадающий список?», vbYesNo​ со строкой заголовка.​Вот сколько букв,​ также картинок предвидится​

​ меня этого не​

Видео о всплывающих подсказках

​ — Исходный текст.​​ лимита нет​Алексей Евстратенко​- это есть​ можно решить вопрос​ еще и 2004-ый​: А Cmd и​

​ (см на фотографии​

support.office.com

Подсказки клавиш в Excel

​ Ленте, без использования​ описания при наведении​Private Sub Worksheet_Change(ByVal​ ячейки.​ + vbQuestion) If​ Получаем следующий вид​

1. ​ Но может быть​​ несколько с разными​​ происходит, а просто​Денис Зуев​
2. ​Алексей Евстратенко​: Поясню, в ячейке​​ ваш макрос​​ более просто и​ офис …​​ Ctrl тоже не​​ в первом сообщении).​
3. ​ мыши.​​ указателя мыши на​​ Target As Range)​Теперь создадим второй раскрывающийся​​ lReply = vbYes​​ диапазона:​
4. ​ это кому-то пригодится​ макросами. Но с​​ выделяется указанная в​​: Юрий М, жаль​​: Юрий М, такой​​ будет к примеру​

​nilem​

​ поэтому опять обращаюсь​Практически есть ,​
​ дают эффекта? Или​
​Зачем они нужны:​

​Нажмите​

office-guru.ru

Всплывающие подсказки в Excel

​ команду или элемент​​On Error Resume​
​ список. В нем​ Then Range(«Деревья»).Cells(Range(«Деревья»).Rows.Count +​Ставим курсор в ячейку,​dimoor71​ помощью глобальных переменных​ гиперссылке ячейка. А​
​ только нет защиты​ вариант есть, но​ серым цветом написано​: Интересно​ к знатокам. А​ а теоретически компания​ их комбинации, может?​ все знают стандартные​Alt​ управления.​ Next​ должны отражаться те​ 1, 1) =​

​ где будет находиться​​:​ удалось решить эти​
​ у вас работает?​
​ от случайного повторного​ легких путей не​ что надо вводить​​а если увеличить​ вопрос в следующем:​ исключила возможность установки​

​Еще бытует мнение,​ горячие сочетания клавиш,​, чтобы отобразить подсказки​Улучшенные всплывающие подсказки представляют​If Not Intersect(Target,​ слова, которые соответствуют​ Target End If​ выпадающий список. Открываем​
​Sergei_A​ проблемы.​ Может в настройках​ нажатия на ту​ ищу, хотелось бы​ «ФИО», после нажатия​ картинку на несколько​На листе Excel​ 4-го офиса на​ что может влиять​ которые можно использовать,​ клавиш.​ собой окна большего​ Range(«C2:C5»)) Is Nothing​ выбранному в первом​ End If End​ параметры инструмента «Проверка​, спасибо! В хозяйстве​П.С. Программирую периодически​ безопасности Excel (2010)​ же ячейку, после​ попробовать и другие​ на ячейку текст​ ячеек, которые не​ размещена картинка (иконка).​ новые модели​ на MAC и​ чтобы не тратить​К примеру, чтобы выбрать​
​ размера, которые содержат​ And Target.Cells.Count =​ списке названию. Если​ If End Sub​ данных» (выше описан​ пригодится​ от случая к​ что-то нужно изменить?​ ввода текста.​ методы.​ исчезает, и человек​ имеют гиперссылок?​ При наведении курсора​Ronin71​ раскладка, и порядок​ время на панель​ вкладку​ больше текста, чем​ 1 Then​ «Деревья», то «граб»,​
​Сохраняем, установив тип файла​ путь). В поле​Под выпадающим списком понимается​

​ случаю для собственных​​Sanja​Юрий М​
​vikttur, да и​ вводит свои данные.​
​RAN​ мышки нужно, что​
​: пользуясь на маке​

​ языков по умолчанию​​ инструментов, типа Ctrl+X​Insert​ обычные подсказки, и​Application.EnableEvents = False​

​ «дуб» и т.д.​​ «с поддержкой макросов».​ «Источник» прописываем такую​ содержание в одной​ нужд и Планета​
​: Попробуйте на одну​: Если жаль,- добавьте​ на эксель нет)​ Как это реализовать?​: Жень, были-бы мозги,​ бы появлялась всплывающая​ клавиатурой Microsoft вместо​ для самой ОС.​ — это вырезать,​(Вставка), нужно нажать​ могут содержать ссылки​newVal = Target​
​ Вводим в поле​Переходим на лист со​ функцию:​ ячейке нескольких значений.​
​ не раз помогала​ из Ваших заготовок​ проверку )​

​ просто не знаю​​Пытливый​ было-бы сотрясение?​ подсказка. Для данной​

​ Ctrl жмите старт​​ Русский должен быть​ Ctrl+Z — вернуть​ клавишу​ на статьи справки.​Application.Undo​
​ «Источник» функцию вида​ списком. Вкладка «Разработчик»​Протестируем. Вот наша таблица​

​ Когда пользователь щелкает​​ в решении задач,​ назначить тот-же SelOn.​dimoor71​ как я там​: Может, через проверку​Не бери близко.​ картинки также будет​ (это между левыми​ на втором месте,​ назад итд. Но​N​Отображение и скрытие всплывающих​oldval = Target​ =ДВССЫЛ(E3). E3 –​ — «Код» -​ со списком на​ по стрелочке справа,​ на которых сам​

​ У меня работает​​: Нашел в архиве​ что покажу. показал​ данных попробовать? Задайте​ Шуткую.​
​ назначен макрос на​ Ctrl и Alt)​ англ. на первом.​ когда ты много​(С).​ подсказок​

​If Len(oldval) <>​​ ячейка с именем​ «Макросы». Сочетание клавиш​ одном листе:​
​ появляется определенный перечень.​ застопорился. Спасибо всем!​dimoor71​ похожую , нужны​ рабочий вариант который​

​ в проверке данных​​_Boroda_​ выполнение действия, поэтому​- тут много​ Если порядок изменялся​ работаешь с таблицами,​
​Активируйте команду​Видео о всплывающих подсказках​

​ 0 And oldval​​ первого диапазона.​ для быстрого вызова​
​Добавим в таблицу новое​ Можно выбрать конкретное.​

​Sergei_A​​: Проверил дома на​

• ​ пояснения.​
• ​ меня устраивает, но​ сообщение для вывода​: Под картинкой ячейки​ гиперссылка не подходит.​ полезного​ — офис надо​ ты начинаешь клавишами​Column​Откройте вкладку​ <> newVal Then​Бывает, когда из раскрывающегося​ – Alt +​ значение «елка».​Очень удобный инструмент Excel​: Этот форум, еще​

​ трех компах (Excel​​В последнем посте​ при аналогичном форматировании​

​ при выборе ячейки​​ с гиперссылками. У​RAN​Pelena​ перезапустить.​ делать абсолютно все​(Гистограмма) при помощи​Файл​Target = Target​ списка необходимо выбрать​ F8. Выбираем нужное​

​Теперь удалим значение «береза».​​ для проверки введенных​ в его старом​ 2010 и 2007,​ темы во вложенном​ у меня форматируется​Алексей Евстратенко​

planetaexcel.ru

Всплывающая подсказка для картинки (Макросы/Sub)

​ них формат ;;;​​: Я так думаю,​
​: О! Нашего полку​Еще слышал про​ (меняешь цвета, шрифт,​ клавиши​.​ & «,» &​ сразу несколько элементов.​ имя. Нажимаем «Выполнить».​Осуществить задуманное нам помогла​ данных. Повысить комфорт​ варианте, я впервые​ 2003 уже нигде​
​ файле, реализован ответ​ только фон, текста​: Пытливый, надо чтобы​ Вроде еще и​ что это единственно​ прибыло​ некорректную работу гор.клавиш​ оформление отд). Это​C​Выберите​

​ newVal​​ Рассмотрим пути реализации​Когда мы введем в​ «умная таблица», которая​
​ работы с данными​ открыл для себя,​ не осталось) ни​ на мой вопрос.​ нет.​ изначально люди видели​

​ цвет шрифта белый,​​ возможные решения.​На моём MacBook’е​ при типографской раскладке​ уже не очень​(ЬВ).​Параметры​Else​ задачи.​ пустую ячейку выпадающего​

​ легка «расширяется», меняется.​​ позволяют возможности выпадающих​ пытаясь решить задачу,​ на одном макрос​ Но никак не​
​Мотя​​ куда вводить текст.​ но это не​Всего-то нужно отследить​
​ такой нет​ Ильи Бирмана.​ стандартные команды, состоящие​

​Чтобы вставить гистограмму с​​.​Target = newVal​
​Создаем стандартный список с​ списка новое наименование,​

​Теперь сделаем так, чтобы​​ списков: подстановка данных,​

​ очень похожую на​​ не запускается. В​

​ могу разобраться, как​​: Если нет запрета​Z​

​ обязательно.​​ перемешение мыши (координаты),​​Ronin71​​P.S. Сам MAC​ из Альта +​ накоплением, нажмите клавишу​

​Откройте раздел​​End If​​ помощью инструмента «Проверка​​ появится сообщение: «Добавить​ можно было вводить​

​ отображение данных другого​​ Вашу. Покажу решение,​
​ моем файле заготовке​ к кнопкам добавлены​ от службы корпоративной​: Работайте через форму​

​Цитата​​ проверить, нет ли​:​
​ не обладаю, поэтому​ несколько букв (причем​

​→​​Общие​If Len(newVal) =​ данных». Добавляем в​ введенное имя баобаб​ новые значения прямо​ листа или файла,​ которое я применил​
​ та же беда.​​ всплывающие подсказки и​ безопасности — надстройка​ ввода данных -​RAN, 14.04.2015 в​
​ там картинки, ну,​Command ⌘​ наугад.​

​ на разных компьютерах​​, а затем​.​ 0 Then Target.ClearContents​
​ исходный код листа​ в выпадающий список?».​ в ячейку с​
​ наличие функции поиска​ в своем проекте.​ Если назначен только​

​ как изменить их​​ на каждом компе​ шаг влево/вправо -​ 17:55, в сообщении​
​ и на закуску,​Command-XCut: Remove the selected​0mega​

​ команды на одно​​Enter​В разделе​Application.EnableEvents = True​ готовый макрос. Как​Нажмем «Да» и добавиться​

​ этим списком. И​​ и зависимости.​Дело в том,​ макрос, все работает.​ текст? Нигде в​ появится в режиме​

​ расстрел. Как вариант…​​ № 12200?’200px’:»+(this.scrollHeight+5)+’px’);»>а если​

​ выдать подсказку.​​ item and copy​: Елена! это Вы​ и то же​

​.​​Параметры пользовательского интерфейса​End If​ это делать, описано​

excelworld.ru

Как в excel сделать текст подсказку в ячейке

​ еще одна строка​​ данные автоматически добавлялись​Путь: меню «Данные» -​ что в отличии​ Добавляю гиперссылку -​ коде их не​ текущего обновления корпоративного​ps Правила, пп​ увеличить картинку​nilem​

​ it to the​​ или ваш аккаунт​ действие у меня​Результат:​в списке​End Sub​

​ выше. С его​​ со значением «баобаб».​ в диапазон.​ инструмент «Проверка данных»​

​ от Вашего случая,​​ срабатывает гиперссылка. Удаляю​ нашел, на листе​ ПО.​ 2.2, 2.3…​
​Насколько я понял,​: Вот попробуйте так…​

​ Clipboard.Command-CCopy the selected​​ взломали ?!​

​ разные почему-то). Ну​​Урок подготовлен для Вас​
​Стиль всплывающих подсказок​Не забываем менять диапазоны​

​ помощью справа от​​Когда значения для выпадающего​Сформируем именованный диапазон. Путь:​ — вкладка «Параметры».​ у меня на​ гиперссылку, начинает срабатывать​
​ тоже.​Вы же не​gling​ итоговый файл будет​

​ макрос для картинки​​ item to the​Pelena​ например, чтобы выделить​ командой сайта office-guru.ru​выберите нужный параметр.​ на «свои». Списки​

​ выпадающего списка будут​​ списка расположены на​ «Формулы» — «Диспетчер​ Тип данных –​ листе обычные Shape(прямоугольники)​ макрос.​

​Sanja​​ предполагаете «врукопашную окучивать»​: Сделано условным форматированием​ стационарным.​ вызывается из Worksheet_SelectionChange​​ Clipboard. This also​​: Не-а, не работает.​ ячейку жирной границей​

​Источник: http://www.excel-easy.com/examples/key-tips.html​​Показывать расширенные всплывающие подсказки.​ создаем классическим способом.​ добавляться выбранные значения.Private​ другом листе или​

​ имен» — «Создать».​​ «Список».​ с всплывающими подсказками​Михаил С.​: Тоже стало интересно​ кучу компов?​Мотя​
​alex77755​ (Call ertert), а​ works for files​ Манипуляции со сменой​ нужно сочетание Alt+H+B+T,​Перевел: Антон Андронов​     Этот параметр включает​ А всю остальную​ Sub Worksheet_Change(ByVal Target​ в другой книге,​ Вводим уникальное название​

​Ввести значения, из которых​​ и их очень​: Повесте запуск макроса​Вот где нашел​Юрий М​: Уважаемый !​: А что у​ псевдоподсказка создается с​
​ in the Finder.Command-VPaste​ порядка Русский/английский тоже​ насколько я помню.​

​Автор: Антон Андронов​​ отображение как улучшенных,​ работу будут делать​ As Range) On​

​ стандартный способ не​​ диапазона – ОК.​ будет складываться выпадающий​ много. Фигуры создаются​ на событие листа​ !!! Прикрепленные файлы​: Это принципиально? Если​

​Ваша идея давно​​ кого-то срабатывает подсказка​ помощью Sub AddPseudoControlTipText​

​ the contents of​​ попробовала. Результат тот​Естественно, все это​lovexcel​

​ так и обычных​​ макросы.​ Error Resume Next​ работает. Решить задачу​Создаем раскрывающийся список в​ список, можно разными​ программно и гиперссылка​Private Sub Worksheet_FollowHyperlink(ByVal​ Гиперссылкой !!!.jpg (73.86​

​ да, то нужен​​ реализована цивилизованным способом:​ «Инструкция»?​ (нужно выполнить 1​ the Clipboard into​ же​ не запомнишь, поэтому​

​: Доброго времени суток,​​ всплывающих подсказок для​На вкладке «Разработчик» находим​ If Not Intersect(Target,​ можно с помощью​

​ любой ячейке. Как​​ способами:​ у всех на​ Target As Hyperlink)​ КБ)​ макрос.​Алексей Евстратенко​

​У меня если​​ раз, чтобы вставить​ the current document​

planetaexcel.ru

Всплывающая подсказка при наведении курсора на картинку

​Цитата0mega написал: это​​ в экселе и​Подскажите, пожалуйста, как​ вывода дополнительных сведений​
​ инструмент «Вставить» –​ Range(«Е2:Е9»)) Is Nothing​ функции ДВССЫЛ: она​ это сделать, уже​Вручную через «точку-с-запятой» в​ А1. Чтобы не​ End Sub​dimoor71​Алексей Евстратенко​: Мотя,не пойдет. Я​ только картинку убрать​ гиперссылку)​ or app. This​

​ Вы?0mega, да, вот​​ есть всплывающие подсказки.​
​ включить всплывающие подсказки​ о командах, например​ «ActiveX». Здесь нам​ And Target.Cells.Count =​

​ сформирует правильную ссылку​​ известно. Источник –​ поле «Источник».​ прыгал экран можно​dimoor71​: Спасибо, разобрался. Только​: Юрий М, изначально​ так понимаю, что​ в другое место.​Лорик​

​ also works for​​ такой вот пердимонокль​ Нажимаешь Alt ==>у​ в Excel (хотя​ имени команды, сочетания​ нужна кнопка «Поле​

​ 1 Then Application.EnableEvents​​ на внешний источник​ имя диапазона: =деревья.​Ввести значения заранее. А​ закрепить области по​: В приведенном выше​ это создало новую​ была идея именно​ эта надстройка должна​А так только​: nilem, не совсем​ files in the​The_Prist​ тебя появляются подписи​ принципе и в​ клавиш, графических элементов​ со списком» (ориентируемся​ = False If​ информации.​Снимаем галочки на вкладках​ в качестве источника​ С2.​ файле-примере в код​ проблему. Задумка была​ такова, но видимо​ быть у всех​ событие клик по​

​ поняла про макрос.​​ Finder.​: А сходу: хоть​ на главном меню,​ остальном офисе) на​

​ и ссылок на​​ на всплывающие подсказки).​ Len(Target.Offset(0, 1)) =​Делаем активной ячейку, куда​ «Сообщение для ввода»,​ указать диапазон ячеек​В некоторых случаях,​ листа3 добавил​ на картинку макрос​ придется в пользу​ клиентов.​ картинке срабатывает​ Как мне задать​Ronin71​ в какой-то версии​ смотришь, что, к​

​ Macbook?​​ статьи справки. Он​Щелкаем по значку –​
​ 0 Then Target.Offset(0,​ хотим поместить раскрывающийся​ «Сообщение об ошибке».​

​ со списком.​​ в зависимости от​Private Sub Worksheet_FollowHyperlink(ByVal​ повесить и всплывающей​
​ упрощения просто написать​gling, Вроде сделал​Лорик​ выполнение своего макроса?​
​: Pelena, смотри пост​ для MAC эти​ примеру, выделение границ​

​Обычно на любых​​ выбран по умолчанию.​ становится активным «Режим​ 1) = Target​ список.​
​ Если этого не​Назначить имя для диапазона​ Shape.Name нужно запускать​ Target As Hyperlink)​ подсказкой пояснение давать.​ текст.​ все как у​
​: У меня тоже​

​Цитата​​ № 12​ подсказки были? Может​ выделенного участка -​ других компах нажимаю​Не показывать расширенные всплывающие​ конструктора». Рисуем курсором​ Else Target.End(xlToRight).Offset(0, 1)​Открываем параметры проверки данных.​ сделать, Excel не​ значений и в​ разные процедуры. Но​ Call SelOn End​ Гиперссылка выдает красивую​Юрий М​ вас, но текст​
​ ничего не происходит,​RAN, 14.04.2015 в​Pelena​ это фишка исключительно​ это буква Н​ один раз Альт​ подсказки.​ (он становится «крестиком»)​

​ = Target End​​ В поле «Источник»​ позволит нам вводить​ поле источник вписать​ как узнать имя​ Sub​ подсказку, но не​: Тогда посмотрите возможную​ не появляется.​ кроме вызова MsgBox.​
​ 15:40, в сообщении​: Я имела в​ винды? Ведь для​ (то есть первая​ и сверху на​     Этот параметр отключает​ небольшой прямоугольник –​ If Target.ClearContents Application.EnableEvents​ вводим формулу: =ДВССЫЛ(“[Список1.xlsx]Лист1!$A$1:$A$9”).​ новые значения.​ это имя.​ фигуры, если процедуру​ничего не изменилось.​ дает выполнить макрос​
​ реализацию.​Ренат​nilem, Вам большое​ № 2200?’200px’:»+(this.scrollHeight+5)+’px’);»>Всего-то нужно​ виду, что никогда​ MAC, насколько я​ буква), нажимаешь ее​ панели в эксель​ отображение улучшенных всплывающих​ место будущего списка.​ = True End​​Имя файла, из которого​Вызываем редактор Visual Basic.​
​Любой из вариантов даст​ запускает ячейка А1?​ Или как-то иначе​Sanja​Алексей Евстратенко​: Алексей Евстратенко, раз​ СПАСИБО. Разобралась, все​RAN, это значит​ не слышала, чтобы​ знаю и Ribbon-то​ ==> открывается меню,​ всплывают значки с​ подсказок для вывода​Жмем «Свойства» – открывается​ If End Sub​ берется информация для​ Для этого щелкаем​ такой результат.​
​ Вот здесь мне​ надо?​: Ну и..? ПКМ​

​: Юрий М, спасибо,​​ «текст не появляется»,​​ работает.​​ — не все​ кнопку Command называли​

planetaexcel.ru

Выпадающий список в Excel с помощью инструментов или макросов

​ не особо гибкий​ где можно выбрать​ буквами или цифрами,​ только имени команды​ перечень настроек.​Чтобы выбранные значения показывались​ списка, заключено в​

​ правой кнопкой мыши​​ очень помогло решение​Sergei_A​ на картинке -​ получилось то что​ то тогда, наверно,​Pelena​ так просто?​ Старт. Да и​

Создание раскрывающегося списка

​ и надстройка с​ тон выделения (например,​ на которые ты​ и, возможно, сочетания​Вписываем диапазон в строку​

​ снизу, вставляем другой​ квадратные скобки. Этот​ по названию листа​Необходимо сделать раскрывающийся список​

1. ​ от ZVI на​: Если нужна всплывающая​
2. ​ Назначить макрос. А​ надо)​ не всё… Но​: У меня в​
3. ​_Boroda_​ расположена она необязательно​ интерфейсом через XML,​ жирный), на каждом​

​ нажимаешь и выполняешь​ клавиш.​

​ ListFillRange (руками). Ячейку,​

Выпадающий список в Excel с подстановкой данных

​ код обработчика.Private Sub​ файл должен быть​ и переходим по​ со значениями из​ основе API.​ подсказка и выполнение​ красивую подсказку -​gling​

1. ​ здесь нет экстрасенсов,​ 2010 есть подсказка,​: А вот такой​ И вообще, в​
2. ​ сделанная на Windows​ варианте опять же,​ какую-либо функцию. А​Не показывать всплывающие подсказки.​ куда будет выводиться​ Worksheet_Change(ByVal Target As​ открыт. Если книга​ вкладке «Исходный текст».​ динамического диапазона. Если​Владимир(ZVI), спасибо за Ваши​ макроса, то предлагаю​ гиперссылкой​: Чтобы появился текст,​
3. ​ вроде… )))​ а в 2007​ вариант?​ данной теме речь​ не заработает на​ подписана своя буква​ в Маке такое​     Этот параметр отключает​

​ выбранное значение –​ Range) On Error​ с нужными значениями​

​ Либо одновременно нажимаем​ вносятся изменения в​

​ знания!​

​ такой вариант​dimoor71​ в ячейке должно​

​Алексей Евстратенко​ и 2003 -​Кто первый догадается,​ немного не об​ MAC. А эти​ (например,В) итд.​ есть? Перепробовала все​

1. ​ отображение как улучшенных,​ в строку LinkedCell.​ Resume Next If​ находится в другой​ клавиши Alt +​
2. ​ имеющийся диапазон (добавляются​В общих чертах​Всем фигурам, которым​: Все так и​ быть значение, в​
3. ​: Ренат, вот прикрепляю​ не всплывает​ интересно?​ этом шла​ подсказки основаны как​Вот. А в​ уже, по-моему..​
4. ​ так и обычных​ Для изменения шрифта​ Not Intersect(Target, Range(«Н2:К2″))​ папке, нужно указывать​ F11. Копируем код​ или удаляются данные),​ механизм получился такой​ нужна подсказка, назначаем​ делаю. Только при​ моем варианте это​ Прикрепленные файлы 2.png​Лорик​RAN​Юрий М​ раз на Ribbon.​ Маке непонятно,где это​0mega​ всплывающих подсказок для​ и размера –​ Is Nothing And​ путь полностью.​ (только вставьте свои​ они автоматически отражаются​ — кликнув по​ гиперссылку на ячейку​ нажатии на картинку​ пробел » «​ (12.66 КБ) 111.png​: nilem, а если​: Круто!​: Ronin71, у нас​ Может в этом​ все…​
5. ​: Не уверен что​ вывода только имени​
6. ​ Font.​ Target.Cells.Count = 1​Возьмем три именованных диапазона:​ параметры).Private Sub Worksheet_Change(ByVal​ в раскрывающемся списке.​ фигуре (или рисунку​ А1. В модуле​ срабатывает гиперссылка, т.е.​

​ , а у​ (12.55 КБ) 3.png​ на листе будет​KSV​ на форуме (да​ дело?​

​0mega​ правильно понял вопрос​ команды.​

Выпадающий список в Excel с данными с другого листа/файла

​Скачать пример выпадающего списка​ Then Application.EnableEvents =​Это обязательное условие. Выше​ Target As Range)​Выделяем диапазон для выпадающего​ как в Вашем​ листа на выделение​ выделяется заданная ячейка​ Вас в формуле​ (16.51 КБ)​ несколько картинок (иконок),​

1. ​: прикольное решение!​ и в быту​Pelena​
2. ​: всегда клацал правой​Excel 2011​В начало страницы​

​При вводе первых букв​ False If Len(Target.Offset(1,​ описано, как сделать​ Dim lReply As​ списка. В главном​ примере), гиперссылкой попадаем​ А1 вешаем макрос.​ или пробует открыть​ нет пробела «».​Юрий М​

Как сделать зависимые выпадающие списки

​ как обеспечить выполнение​

​Лорик​ тоже) к незнакомым​: У меня только​ мышкой​На линейке в​Примечание:​ с клавиатуры высвечиваются​ 0)) = 0​

1. ​ обычный список именованным​ Long If Target.Cells.Count​ меню находим инструмент​
2. ​ в А1, запускается​ Просто, но работает.​ файл или ссылку​RinaKate​: Алексей, может я​
3. ​ макросов для каждой?​: А где же​ людям принято обращаться​ 2011 и 2016.​мне тоже интересно​ правом верхнем углу​  В видео показан​ подходящие элементы. И​ Then Target.Offset(1, 0)​ диапазоном (с помощью​ > 1 Then​ «Форматировать как таблицу».​ макрос, который проверяет​
   

   Выбор нескольких значений из выпадающего списка Excel

   ​Смотрите пример.​ в нете (вообщем​: Юрий, а как​ чего не понял,​nilem​

   1. ​ всплывающая подсказка?​ на ВЫ.​ Там нет таких​ это узнать​ стрелочка​ пользовательский интерфейс Office​ это далеко не​ = Target Else​ «Диспетчера имен»). Помним,​ Exit Sub If​Откроются стили. Выбираем любой.​ тип объекта под​dimoor71​ то, что назначалось​ вы это сделали,​ но почему просто​: вот примерчик​DJ_Marker_MC​Лорик​ подсказок​Придет Pelena и​Прикрепленные файлы Снимок экрана​ 2010, однако оно​ все приятные моменты​ Target.End(xlDown).Offset(1, 0) =​ что имя не​
   2. ​ Target.Address = «$C$2″​ Для решения нашей​ курсором и получает​: Спасибо всем откликнувшимся!​ при создании гиперссылки),​ что пока ячейка​ не написать​Лорик​:​: Доброго дня всем!​В давние времена,​ все расскажет​ 2015-12-04 в 23.23.05.jpg​ хорошо демонстрирует работу​ данного инструмента. Здесь​ Target End If​ может содержать пробелов​ Then If IsEmpty(Target)​ задачи дизайн не​
   3. ​ его имя. Ну​ Спасибо Sergei_A за​ а макрос игнорируется.​ пустая -там надпись,​изначально​
​: nilem, СПАСИБО, СПАСИБО​_Boroda_​
​Поиск аналогичных тем​ когда ещё не​
​Будем ждать​ (97.18 КБ)​ аналогичных функций и​ можно настраивать визуальное​
​ Target.ClearContents Application.EnableEvents =​
​ и знаков препинания.​
​ Then Exit Sub​
​ имеет значения. Наличие​
​ а уж зная​ идею! Сначала подумал​ Или я чего-то​
​ после ввода слова​в ячейке "пояснялку"?​ и еще раз​
​, капец... но как​
​ результата не дал.​
​ было ленты... вроде,​
​Pelena​lovexcel: Нет, эта стрелочка​
​ в Office 2013.​
​ представление информации, указывать​
​ True End If​


   ​Создадим первый выпадающий список,​ If WorksheetFunction.CountIf(Range(«Деревья»), Target)​ заголовка (шапки) важно.​ имя объекта, можно​ — не подходит,​ не так делаю.​

   Выпадающий список с поиском

   1. ​ , она исчезает?​ )​ СПАСИБО!​ он срабатывает? мозг​ Нашла несколько решений,​ нечто похожее тоже​
   2. ​: К сожалению, ничем​ просто разворачивает, либо​В начало страницы​ в качестве источника​ End Sub​ куда войдут названия​
   3. ​ = 0 Then​ В нашем примере​
   4. ​ обращаться к его​ т.к. моя таблица​ Даже в рассматриваемом​Юрий М​vikttur​alex77755​ задымился)))​ но они слишком​

   ​ было в виде​

   ​ помочь не могу.​ сворачивает верхнюю панель.​Подсказки клавиш (горячие клавиши​ сразу два столбца.​Чтобы выбираемые значения отображались​ диапазонов.​ lReply = MsgBox(«Добавить​ это ячейка А1​ свойствам и принимать​ очень обширная и​

   exceltable.com

​ файле-примере на каждой​