Выпадающий список с примечанием

Вход

Регистрация

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

= Мир MS Excel/Выпадающий список с примечанием - Мир MS Excel

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

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

Выпадающий список с примечанием (Формулы/Formulas)

Выпадающий список с примечанием

Sobirjon

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

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

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

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

2016

Доброго времени суток.
Есть ли возможность в Excel сделать выпадающий список с примечанием?
Примечание используется вместо описании.

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

Ответить

Nic70y

Дата: Суббота, 04.05.2019, 15:22 | Сообщение № 2

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

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

Сообщений: 9030

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

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

Excel 2010

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("d2")) Is Nothing Then
        Target.ClearComments
        u_1 = Application.Match(Target, Range("f:f"), 0)
        u_2 = Application.IsNumber(u_1)
        If u_2 Then
            Target.AddComment
            Target.Comment.Text Text:=Range("f" & u_1).Comment.Text
        End If
    End If
End Sub

[/vba]