Страницы: 1
RSS
Вывести значения из другой таблицы только для активной строки.
 
Уважаемые эксперты и профессионалы, нужны Ваши советы, идеи и мысли по реализации задачи.

1. Возможно ли?
2. Какими методами, и возможные подсказки и пути решения.

Имею две таблицы, это связные источники, первый "база данных", второй краткое содержание для Руководителя. В сети искала простые способы для трудных задач, и нашла просто шикарную идею называется "Ролловер эффект" это то что подошло бы для решения моей задачи, но пока не понятно возможно ли ее адаптировать. Я бы хотела при наведении на строку, выводить данные из нескольких столбцов 3-6-8 в виде некой мини визуализации данных. Для того чтоб аналитик мог быстро давать вывод, без просмотра массива данных.  
Изменено: merytoy - 21.02.2020 10:05:43
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        Client_info Target
    End If
End Sub
'
Sub Client_info(cl As Range)
    Dim sh As Worksheet
    On Error Resume Next
        Set sh = Workbooks("Источник данных.xlsx").Sheets("Лист1")
    On Error GoTo 0
    Dim s As String
    s = Cells(cl.Row, 1).Value
    Columns("E:H").Clear
    Dim y As Long
    On Error Resume Next
        y = WorksheetFunction.Match(s, sh.Columns(1), 0)
    On Error GoTo 0
    If y > 0 Then
        sh.Cells(y, 1).Resize(1, 4).Copy Cells(cl.Row, 5)
    End If
End Sub
В модуль листа.
 
Еще вариант
Страницы: 1
Наверх