Нажав гиперссылку в Excel, чтобы установить автофильтр на другом листе

Question

У меня есть книга Excel с двумя листами, в основном настройка «один ко многим» между двумя листами. На первом листе перечислены несколько сот компаний, а на втором листе - список директоров компаний. Второй лист имеет автоматический фильтр, поэтому пользователи могут видеть членов совета для конкретной компании, выбранной из фильтра.

То, что я пытаюсь сделать, - это щелкнуть по ячейке компании на первом листе, чтобы затем пользователь был перенесен на следующий лист с автоматическим фильтром, уже заполненным выбранной компанией. Таким образом, пользователь имеет прямой доступ к членам Совета только для выбранной компании.

Я предполагаю, что это потребует VBA и надеется, что кто-то может указать мне в правильном направлении для создания этого кода, чтобы решить эту проблему. Большое спасибо.

Answer 1

Вы можете сделать это, делая что-то это в модуле рабочего листа:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    'Update Table14 to your table name 
    'Update Field to column number of the field you are filtering 
    'Update Sheet7 to reference the sheet containing your table 
    'Change on to the column number where your click should cause this action 
    If ActiveCell.Column = 1 Then 
    Sheet7.ListObjects("Table14").Range.AutoFilter Field:=1, Criteria1:=ActiveCell.Value 
    'Update Sheet7 to reference the sheet containing your table 
    Sheet7.Activate 
    End If 
End Sub 

Answer 2

Вам нужно открыть редактор Visual Basic, щелкните правой кнопкой мыши лист компании, вид кода, вставьте в:

Option Explicit 

    Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
     Dim CompanyName As String 

     If Selection.Count = 1 Then 
      If Not Intersect(Target, Range("C1").EntireColumn) Is Nothing Then 
       'This code is triggered when any 
       'ONE cell in column C is selected 
       'Simply change "C1" to "B1" etc etc 


       'This MsgBox returns the selected cell 
       MsgBox Target.Address 

       'You'll probably need to collect some information 
       'in this section. You can then use this to affect 
       'the filters on sheet 2. 
       'Perhaps like this 
       CompanyName = Cells(Target.Row, 1).Value 
       MsgBox CompanyName 

       'This changes to "Sheet2" 
       Sheets("Sheet2").Activate 

      End If 
     End If 
    End Sub 

Надежда, что помогает, и вы можете сделать что-то из него