|
Sheets("ユーザーマスタ")がアクティブとします。
F25がアクティブセルで、
そこに文字列("JA青山")が入力されているとします。
この前提で下記のマクロを動かしてみてください。
Sub ハイパーリンク設定()
Dim mySheet As Worksheet
Dim newSheet As Worksheet
Dim myAddress As Range
Dim myName As String
Set mySheet = ActiveSheet ' Sheets("ユーザーマスタ")がアクティブ
Set myAddress = ActiveCell
myName = myAddress.Value ' "JA青山"などが入っているとします。
Sheets("製品マスタ").Copy After:=Sheets(2)
Set newSheet = ActiveSheet
newSheet.Name = myName
newSheet.Range("C2").Value = myName
mySheet.Select
mySheet.Hyperlinks.Add Anchor:=myAddress, Address:="", _
SubAddress:=myName & "!D2", TextToDisplay:=myName
myAddress.Hyperlinks(1).Follow NewWindow:=False, _
AddHistory:=True
End Sub
入力の指定方法は実際にあわせて適当に修正してください。
|
|