Доброго времени суток
Помогите с гиперссылками.
Макрос меняет параметры для формирования данных для графика.
Потом копирует полученный лист, переименовывает из от 1 до нужного кол-ва
И в итоге мне нужно в первом столбце таблицы с исходными данными на листе Инвентаризация поставил гиперссылку на этот лист.
В примере ниже гиперссылка создаётся но не работает
Запись макроса даёт:
Помогите с гиперссылками.
Макрос меняет параметры для формирования данных для графика.
Потом копирует полученный лист, переименовывает из от 1 до нужного кол-ва
И в итоге мне нужно в первом столбце таблицы с исходными данными на листе Инвентаризация поставил гиперссылку на этот лист.
В примере ниже гиперссылка создаётся но не работает
Код |
---|
Sub графики() Dim r, i, inv As Integer Application.ScreenUpdating = False With Sheets("Инвентаризация") .Activate .Range("C3").End(xlDown).Select r = ActiveCell.Row End With For i = 3 To r Sheets("График").Select Cells(7, 2).Select ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C4" Cells(8, 2).Select ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C5" Cells(9, 2).Select ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C6" Range(Cells(5, 2), Cells(5, 25)).Select Selection.ClearContents Cells(10, 1).Select ActiveCell.FormulaR1C1 = "=Инвентаризация!R" & i & "C9" Cells(10, 2).Select ActiveCell.FormulaR1C1 = "=MATCH(R10C1,R1C2:R1C25,1)" inv = Cells(10, 2).Value Cells(5, inv + 1).Select ActiveCell.FormulaR1C1 = "=MAX(R4C2:R4C25)*1.05" Sheets("График").Copy After:=Sheets(i) Sheets("График (2)").Select Sheets("График (2)").Name = i - 2 ActiveSheet.Rows("1:10").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveSheet.Range("A1").Select Application.CutCopyMode = False Sheets("Инвентаризация").Activate ActiveSheet.Cells(i, 1).Select ActiveCell.Value = i - 2 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'Лист" & i - 2 & "'!A1" Next i Application.ScreenUpdating = True End Sub |
Код |
---|
SubAddress = "'1'!A1" |