У меня длинный список имен в моем «основном листе», и мне нужен код, который может циклически проходить по этим строкам, создавать лист с тем же именем и затем добавлять гиперссылку на этот лист.
Мне уже удалось создать все листы, но я не могу добиться успеха в создании соответствующей гиперссылки на соответствующий лист
Вот фрагмент кода, который у меня сейчас есть:
'' '' 'ЗДЕСЬ, Я СЧИТАЮ, ЧТО МНОГИЕ ИНДИВИДУАЛЬНЫЕ СТРОКИ НАХОДЯТСЯ В КОЛОННЕ A' ''
Sheets("MainSheet").Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Total = Selection.Count
'' '', я копирую значение ячейки и создаю новый лист, используязначение ячейки в качестве имени '' '
' '' '' Поскольку в некоторых ячейках было более 31 символа, мне пришлось создать код, который будет принимать только первые 30 символов '' ''
For i = Total To 1 Step -1
Sheets("MainSheet").Cells(i, 1).Select
Take = Left(ActiveCell, 30)
Sheets.Add.Name = Take
Worksheets("MainSheet").Activate
Worksheets("MainSheet").Cells(i, 1).Select
Next
Код, которым я поделился выше, работает, однако теперь мне нужно пройтись по тому же списку и создать соответствующую гиперссылку.Вот пример строк ниже:
Temperature Probe and Data Sensor A1
Temperature Probe and Data Sensor A2
Temperature Probe and Data Sensor A3
Temperature Probe and Data Sensor A4
Air and Pressure Sensor A1
Все они будут иметь свой собственный лист, но я хотел бы иметь возможность щелкнуть по значению ячейки, и это приведет меня прямо к этому листу, не имеявручную искать более 200 листов.Короче говоря, основной лист будет действовать как каталог для остальной части книги Excel.
Заранее всем спасибо, дайте мне знать, если вам нужна дополнительная информация.