Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Можно ли в выпадающем списке показывать комментарии о соседних ячейках, .
 
#1
23.02.2022 07:01:03
Доброго времени суток.
Подскажите пожалуйста, как можно реализовать.

Имеется выпадающий список. Но в нем бывают повторяющиеся наименования (но цена позиции и характеристика разные).
Можно ли в выпадающем списке показывать, как комментарии, значения соседних полей связанной таблицы.

Например, комплект привод имеет парт-номер RS, но цена и модель - разные.
В выпадающем списке три одинаковых названия, может ли появляться подсказка о соседних полях, типа комментария?
 
 
 
#2
23.02.2022 11:35:18
Ildus, например можно так сделать (см файл), по Alt+ F8 запускаете макрос с именем show
 
 
 
#3
23.02.2022 11:49:14
Спасибо...
а более простыми средствами, без макросов никак не получится?
 
 
 
#4
23.02.2022 11:58:59
Я в формулах не силен, подождем, может кто подскажет.
Успехов!
 
 
 
#5
23.02.2022 12:00:45
Спасибо за содействие
 
 
 
#6
23.02.2022 13:07:12
Ildus, в данном типе выпадающего списка - нет.
По вопросам из тем форума, личку не читаю.
 
 
 
#7
23.02.2022 16:45:53
Ildus, выпадающего списка не нашел. Для решения задачи как минимум столбец "С" который "парт-номер" должен быть заполнен. Его форумчане должны заполнить? И остальные "парт-номера" также им предлагается придумать и заполнить? Или заголовки разделов тоже самим придумать и по цвету искать?
Как вариант: подождать пока Excel научится читать Ваши мысли при нажатии на определенную ячейку листа... :)
Тогда возможно и формулы найдутся :)
А если без шуток - подготовьте понятный пример и понятное описание, что нужно сделать.

artemkau88, есть подозрение, что ТС-у нужны "комментарии" при нажатии на ячейку в каком-то столбце на каком-то листе, причем отбирать нужно из столбца по выделенному значению, а не все значения по столбцу, как в макросе   :)  (ИМХО)
 
 
 
#8
24.02.2022 13:42:15
_Igor_61, спасибо, пойду думать, как это сделать.
Сделал, код:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, str
If Target.Count <> 1 Then Exit Sub
        If InStr(Target.Address, "G") Then
            If Target.Comment Is Nothing Then
                Target.AddComment
                arr = Range(Cells(Target.Row, 8), Cells(Target.Row, 11))
                str = Application.Transpose(Application.Transpose(arr))
                Target.Comment.Text Text:=Join(str, " ")
            End If
        ElseIf InStr(Target.Address, "A") Then
            If Target.Comment Is Nothing Then
                Target.AddComment
                arr = Range(Cells(Target.Row, 2), Cells(Target.Row, 5))
                str = Application.Transpose(Application.Transpose(arr))
                Target.Comment.Text Text:=Join(str, " ")
            End If
        Else
            Exit Sub
        End If
Target.Comment.Visible = False
End Sub
Изменено: artemkau88 - 24.02.2022 14:39:18
 
 
 
#9
24.02.2022 17:40:54
Как вариант-сделать доп столбец в котором выпадашка со сцепками искомое&цена&модель,выбирать там а в нужный столбец тянет ВПР
 
 
 
Страницы: 1
Наверх