Teleri
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Range("A2").Select
ActiveCell.FormulaR1C1 = "=Лист2!R[-1]C"
Range("A2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист2!A1"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=Лист2!RC"
Range("B2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист2!B2"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=Лист2!R[1]C[-1]"
Range("C2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист2!B3"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=Лист2!R[2]C[-2]"
Range("D2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист2!B4"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=Лист3!R[-2]C"
Range("A3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист3!A1"
Range("B3").Select
ActiveCell.FormulaR1C1 = "=Лист3!R[-1]C"
Range("B3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист3!B2"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=Лист3!RC[-1]"
Range("C3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист3!B3"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=Лист3!R[1]C[-2]"
Range("D4").Select
Sheets("Лист1").Select
Range("D3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Лист3!B4"
End Sub
|
