Как ускорить процесс копирования ссылок.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Gelato

Дата: Воскресенье, 11.12.2011, 21:00 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Ребята! я совсем запарился с табличкой! Знаю что есть выход ускорить процесс.. но какой понять не могу!
В общем есть таблица, из этой таблицы во вкладках должна автоматом появляться определенная информация. Все это вроде сделал! Но этих вкладок больше 30 и столбцов со строками должно быть больше 100.. как ускорить процесс копирования ссылок? я уже просто замучился! Помогите плиз...

PS: в файлике должно быть понятно о чем я говорю.

К сообщению приложен файл: ___V_0.1.rar (62.2 Kb)

Сообщение отредактировал Gelato - Воскресенье, 11.12.2011, 21:04

Ответить

Serge_007

Дата: Воскресенье, 11.12.2011, 21:27 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Не помню где взял, но работает:

Code

    Sub SheetList()
        Dim sheet As Worksheet
        Dim cell As Range
        With ActiveWorkbook
           For Each sheet In ActiveWorkbook.Worksheets
              Set cell = Worksheets(1).Cells(sheet.Index, 1)
              .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
              cell.Formula = sheet.Name
           Next
        End With
     End Sub