Как по таблице расставить подсказки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как по таблице расставить подсказки (Макросы/Sub)

kNNeR

Дата: Суббота, 07.11.2020, 12:08 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 9 ±

Замечаний: 0% ±

Excel 2019

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

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

К сообщению приложен файл: 9691332.xls (30.0 Kb)

Ответить

Nic70y

Дата: Суббота, 07.11.2020, 13:29 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2272 ±

Замечаний: 0% ±

Excel 2010

в модуль листа
[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]вдруг правильно

ЮMoney 41001841029809