Автоклик ячеек со ссылками

Question

У меня есть Excel, где у меня есть столбец с именами ролей с текстом вроде:

Затем у меня есть другой столбец, в котором у меня есть имя и ссылкаэтот первый столбец, например:

Мой вопрос: есть способ назначить первый столбец второму, т.е., если я нажму GetSalesOrderItems = 1,2,4,5 ячейка, ячейки автоклика 1,2,4 и 5?это возможно?Как я могу сделать ссылку второго столбца на первый столбец?Привет

Answer 1

Вот быстрый пример того, как сделать это в VBA.

Предполагая, что у вас есть лист, подобный:

Вы можете добавить код на лист (откройте VBE, дважды щелкните листна панели Project и вставьте этот код):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Worksheet_BeforeDoubleClick() fires whenever a double click is detected on this worksheet.

    'Our thing being double clicked is in B1, so lets make sure the double click came from there by testing `Target`
    If Not Intersect(Target, Range("B1")) Is Nothing Then

        'Must be B1... so let's load the numbers into an array
        Dim numArray As Variant
        numArray = Split(Split(Target, "=")(1), ",")

        'We are going to assume we already have some highlighted cells. Unhighlight this first
        i = 1
        Do Until Cells(i, 1).Value = ""
            Cells(i, 1).Font.Bold = False
            'increment for the next loop
            i = i + 1
        Loop

        'Now we can loop this array and search for it in Column A
        For Each num In numArray

            'Loop through column A
            i = 1
            Do Until Cells(i, 1).Value = ""
                'test if it shares a value
                If num = Split(Cells(i, 1).Value, "=")(1) Then
                    'Make the cell bold or something
                    Cells(i, 1).Font.Bold = True
                End If
                'increment for the next loop
                i = i + 1
            Loop
        Next num

    End If

End Sub

Это будет полужирным шрифтом для любых ячеек в столбце A, которые имеют значение ячейки в столбце B (когда вы дважды щелкаете по этой ячейке).

Нет сомнений в том, что вам нужно будет отредактировать это, чтобы получить то, что вам нужно, но это должно помочь вам в этом.