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

Вход

Регистрация

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

 

= Мир MS Excel/Как по таблице расставить подсказки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как по таблице расставить подсказки (Макросы/Sub)
Как по таблице расставить подсказки
kNNeR Дата: Суббота, 07.11.2020, 12:08 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте.
Помогите решить задачу.
На листе находится таблица с полями - Лист, Ячейка, Текст.

Как по этой таблице - расставить подсказки по указанным ячейкам ?
Подсказки - это "Данные" - "Проверка данных" - "сообщение для ввода" - "сообщение".
Если в таблице исчезает строка с данной ячейкой - или текст в ней исчезает - то подсказка стирается.
К сообщению приложен файл: 9691332.xls(30.0 Kb)
 
Ответить
СообщениеЗдравствуйте.
Помогите решить задачу.
На листе находится таблица с полями - Лист, Ячейка, Текст.

Как по этой таблице - расставить подсказки по указанным ячейкам ?
Подсказки - это "Данные" - "Проверка данных" - "сообщение для ввода" - "сообщение".
Если в таблице исчезает строка с данной ячейкой - или текст в ней исчезает - то подсказка стирается.

Автор - kNNeR
Дата добавления - 07.11.2020 в 12:08
Nic70y Дата: Суббота, 07.11.2020, 13:29 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6601
Репутация: 1451 ±
Замечаний: 0% ±

ru13;10;03
в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("h5:j65536")) Is Nothing Then
        On Error Resume Next
        ua = Target.Row
        ub = Range("h" & ua).Value
        uc = Range("i" & ua).Value
        ud = Range("j" & ua).Value
        With Sheets(ub).Range(uc).Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .InputMessage = ud
        End With
    End If
End Sub
[/vba]вдруг правильно


Яндекс Деньги 41001841029809
 
Ответить
Сообщениев модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("h5:j65536")) Is Nothing Then
        On Error Resume Next
        ua = Target.Row
        ub = Range("h" & ua).Value
        uc = Range("i" & ua).Value
        ud = Range("j" & ua).Value
        With Sheets(ub).Range(uc).Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
            :=xlBetween
            .InputMessage = ud
        End With
    End If
End Sub
[/vba]вдруг правильно

Автор - Nic70y
Дата добавления - 07.11.2020 в 13:29
kNNeR Дата: Суббота, 07.11.2020, 13:47 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, работает, но только не для всей таблицы сразу - а для каждой строки по-отдельности.

Как выполнить эту процедуру, щелчком на кнопку - сразу для всей таблицы ?
 
Ответить
СообщениеNic70y, работает, но только не для всей таблицы сразу - а для каждой строки по-отдельности.

Как выполнить эту процедуру, щелчком на кнопку - сразу для всей таблицы ?

Автор - kNNeR
Дата добавления - 07.11.2020 в 13:47
kNNeR Дата: Воскресенье, 08.11.2020, 14:08 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо.
Вопрос решен.
 
Ответить
СообщениеСпасибо.
Вопрос решен.

Автор - kNNeR
Дата добавления - 08.11.2020 в 14:08
прохожий2019 Дата: Воскресенье, 08.11.2020, 19:13 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 382
Репутация: 64 ±
Замечаний: 0% ±

365 Beta Channel
Вопрос решен.
а ссылочку на решение дать?
кросс
 
Ответить
Сообщение
Вопрос решен.
а ссылочку на решение дать?
кросс

Автор - прохожий2019
Дата добавления - 08.11.2020 в 19:13
kNNeR Дата: Воскресенье, 08.11.2020, 21:59 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Тема также обсуждалась на другом форуме:
https://www.planetaexcel.ru/forum....2%D0%B8
 
Ответить
СообщениеТема также обсуждалась на другом форуме:
https://www.planetaexcel.ru/forum....2%D0%B8

Автор - kNNeR
Дата добавления - 08.11.2020 в 21:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как по таблице расставить подсказки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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