Excel: автоматическая гиперссылка на другую ячейку - PullRequest
0 голосов
/ 21 октября 2011

У меня есть два столбца, один автоматически генерируется (столбец B), другой (столбец D) с несколькими ручными значениями из автоматически созданного столбца.

B           D
--------------------
1  Col1    Col2
2  12       14
3  13       16 
4  14
5  15
6  16
--------------------

Я хочу автоматически гиперссылку столбца D, когда я введу в нее новое значение строки.Например, запись D2 должна быть = HYPERLINK ("# B4", B4)

Теперь я могу вычислить B4 с помощью INDEX & MATCH, но как мне автоматически сделать гиперссылку?То есть, если я введу 14 в D2, он должен автоматически заменяться на = HYPERLINK ("# B4, B4).

1 Ответ

1 голос
/ 21 октября 2011

Вы должны использовать процедуру события Worksheet_Change : см. Эту статью на ozgrid или эту статью на сайте Чипа Пирсона .

Somethingкак:

Private Sub Worksheet_Change(ByVal Target As Range)
   'Do nothing if more than one cell is changed or content deleted
   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
   'Trigger the procedure only for the column D
   If Not Intersect(Target, Range("D:D")) Is Nothing Then
     'Turn off ALL events so the Target change does not trigger another time this sub
      Application.EnableEvents = False
      'Change the formula for what you ever want
       Target.Formula = "=HYPERLINK(""#B4"", B4)"
      'Turn events back on
      Application.EnableEvents = True
   End If
End Sub

Вам просто нужно изменить формулу, которую вы хотите построить.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...