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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выпадающий список с примечанием (Формулы/Formulas)
Выпадающий список с примечанием
Sobirjon Дата: Суббота, 04.05.2019, 12:27 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 84
Репутация: 0 ±
Замечаний: 0% ±

2016
Доброго времени суток.
Есть ли возможность в Excel сделать выпадающий список с примечанием?
Примечание используется вместо описании.
К сообщению приложен файл: 3101123.xls(28.5 Kb)
 
Ответить
СообщениеДоброго времени суток.
Есть ли возможность в Excel сделать выпадающий список с примечанием?
Примечание используется вместо описании.

Автор - Sobirjon
Дата добавления - 04.05.2019 в 12:27
Nic70y Дата: Суббота, 04.05.2019, 15:22 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5279
Репутация: 1144 ±
Замечаний: 0% ±

Excel 2013
[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]
К сообщению приложен файл: 3114547.xls(36.5 Kb)


ЯД(poison) 41001841029809
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 04.05.2019 в 15:22
Sobirjon Дата: Воскресенье, 05.05.2019, 07:16 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 84
Репутация: 0 ±
Замечаний: 0% ±

2016
Nic70y, Есть вариант без макроса реализовать? %)
 
Ответить
СообщениеNic70y, Есть вариант без макроса реализовать? %)

Автор - Sobirjon
Дата добавления - 05.05.2019 в 07:16
Nic70y Дата: Воскресенье, 05.05.2019, 14:05 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5279
Репутация: 1144 ±
Замечаний: 0% ±

Excel 2013
У меня нет.
Думаю у других тоже.


ЯД(poison) 41001841029809
 
Ответить
СообщениеУ меня нет.
Думаю у других тоже.

Автор - Nic70y
Дата добавления - 05.05.2019 в 14:05
Sobirjon Дата: Понедельник, 06.05.2019, 05:25 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 84
Репутация: 0 ±
Замечаний: 0% ±

2016
Nic70y, Спасибо!
 
Ответить
СообщениеNic70y, Спасибо!

Автор - Sobirjon
Дата добавления - 06.05.2019 в 05:25
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выпадающий список с примечанием (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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