Excel, который позволяет выбрать ячейку и перейти к соответствующему имени листа

431
William Aaron Winfrey

У меня есть следующий код для выбора ячейки с определенным именем и перехода на лист с именами после этой ячейки. 

Dim ws As Worksheet If Target.Address = "$A$1" Then For Each ws In ActiveWorkbook.Worksheets If ws.Name = Range("A1").Value Then ws.Activate End If Next ws End If

Однако я хотел бы сделать это для клеток в столбце A! A1-A306 как мне изменить код?

0
Итак, вы хотите перейти на лист, где Target.value = имя и цель в A1: A306? Scott Craner 7 лет назад 0
Немного другой метод, но вы могли просто иметь гиперссылки на все ячейки. Ron Rosenfeld 7 лет назад 0

1 ответ на вопрос

0
Ross

Я бы сделал это так - но это не так, глядя на значение .Address

If Not (Intersect(Target, Range("A1:A306")) Is Nothing) Then For Each ws In ActiveWorkbook.Worksheets If ws.Name = Target.Value Then ws.Activate End If Next ws End If
Работал отлично! William Aaron Winfrey 7 лет назад 0

Похожие вопросы