[[20131119093503]]　『ハイパーリンクのオートフィル』（キャラメル）　ページの最後に飛ぶ

『ハイパーリンクのオートフィル』（キャラメル）

 Sheet1のセルにはハイパーリンクを設定しています
 A1セルより下に向かってあいうえおと並んでいます
 （本当は1～250までの数字ですが、こちらではわかりやすいようにあいうえおにしました）

 そのハイパーリンクのセルをクリックすると
 となりのSheet2のA1～IV1の同じ文字のところにとぶようにしています
 ハイパーリンクの設定は[このドキュメント内]のセル参照のところに
 値を入れているだけです
 オートフィルでSheet1のセルを文字とハイパーリンクも一緒に
 連続コピーは可能でしょうか

【Sheet1】

	A	B	C	D	E	F
1	あ					
2	い					
3	う					
4	え					
5	お					
6	か					
7	き					
8	く

【Sheet2】

	A	B	C	D	E	F
1	あ	い	う	え	お	か
2
3
4
5
6
7
8

 ctrlキーを押しながらオートフィルをしてみたり
 =Hyperlinkの関数をやってみたりしましたが
 うまくできませんでした
 現在は手作業でコツコツやっていますが、横250ほどセルを使うので
 とても大変です

 みなさまお力をお貸しください（ｖｖ）
 よろしくお願いいたします

 Excel2003です

 Sub test()
    Dim i As Long

    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, "A"), Address:="", SubAddress:="Sheet2!" & Cells(1, i).Address
    Next i
End Sub
（???） 2013/11/19(火) 10:18

HYPERLINK関数で

=HYPERLINK("#Sheet2!"&ADDRESS(1,ROW()),ROW())
これをオートフィル。
（みやほりん） 2013/11/19(火) 10:28

 早速ありがとうございます！！

 みやほりんさんのHYPERLINKですが
 となりのセルなどに数式を入れないといけないでしょうか？
 文字の入ったセルをクリックしてとぶようにしたいと思っています

 よろしくおねがいします
（キャラメル） 2013/11/19(火) 10:49

 すみません
 補足となりますが

 Sheet1はA5～から始まっています
 Sheet2はG5～IV5まであります

 回答いただいたマクロでやってみたのですが
 参照が正しくありません。と出てしまいました

（キャラメル） 2013/11/19(火) 11:12

＞補足となりますが
補足どころか、肝心なところなんですよね、マクロも数式も。

Sheet1のA5に
=HYPERLINK("#Sheet2!"&ADDRESS(5,ROW(A7)),ROW(A1))
（みやほりん） 2013/11/19(火) 11:26

A1セルから、と書いているのに、実際はA5からで、飛び先はG5でした～、とか、動かなくて当然。
回答者に喧嘩売ってるレベルですよ。情報は正確に。実物と違えるなら、後の直しは自分でしなさい。

とりあえず、戻り用リンクも追加してみた例。

 Sub test()
    Dim i As Long
    Dim iMax As Long

    iMax = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 5 To iMax
        ActiveSheet.Hyperlinks.Add Cells(i, "A"), "", "Sheet2!" & Cells(5, i + 2).Address
    Next i

    With Sheet2
        For i = 7 To iMax + 2
            .Hyperlinks.Add .Cells(5, i), "", "Sheet1!" & Cells(i - 2, 1).Address
        Next i
    End With
End Sub

（追記。このマクロはSheet1に貼ってください）
（???） 2013/11/19(火) 11:27

 す、すみません
 ケンカ売っているつもりはなかったのですが
 結果お手数をおかけすることになってしまって
 大変申し訳ございません！！

 しかもSheet2はG5ではなくG4でした（＞＜）
 実行してみて気がつきました
 ほ、本当にすみません！！

 マクロだと自分でメンテナンスする自信がないのですが
 ぜひ教えていただけると幸いです

 みやほりんさんのHYPERLINKを教えていただきたいのですが
 Address以降の数式の意味を教えていただけますでしょうか

 再度正確なセルの位置を書き直します

 【Sheet1】

	A	B	C	D	E	F
1						
2						
3						
4						
5	5					
6	6					
7	7					
8	8

【Sheet2】

	G	H	I	J	K	L
1		
2
3
4　　　5　　　　6　　　　 7　　　　　8　　　　9　　　　10　
5　　　　
7
8

 本当に何度も申し訳ございません～
 よろしくお願い致します

（キャラメル） 2013/11/19(火) 12:05

＞本当は1～250までの数字ですが、
これも大丈夫？？
後の条件で書き直すと
=HYPERLINK("#Sheet2!"&ADDRESS(4,ROW(A7)),ROW(A5))

＞Address以降の数式の意味
そのような中途半端な部分だけ、という解説はむしろ難しい。
HYPERLINK関数の引数の説明を、というのは出来ます。

リンクアドレス文字列が　"#Sheet2!"&ADDRESS(4,ROW(A7))
セルに表示する文字列が　ROW(A5)
　
という風に見えるようになってください。

私が解説するよりも、
="#Sheet2!"&ADDRESS(4,ROW(A7))
という文字列結合数式をセルに入力してオートフィルしてもらうほうが
理解が早いと思います。
あわせて、各関数のヘルプなども参照してください。

（みやほりん） 2013/11/19(火) 12:28

 みやほりんさん

 ご説明ありがとうございます

 ＞本当は1～250までの数字ですが、
 Sheet1はA1セル～A4まで1～4が入りますが
 使っていないので非表示になっています
 A5セルには5という数字が入って後は連番で続いています
 今後どんどん増える予定です

 教えて頂いた数式を[sheet1]のA5セルにいれてみたところ
 5の数字が入りました！
 5の数字にマウスを近づけるとリンク先が#Sheet2!$G$4と表示されます
 それで正解なのですがクリックすると"参照先が違います"とでてしまいます

 たびたび申し訳ございません（＞＜）

（キャラメル） 2013/11/19(火) 12:51

G4…。Sheet2のセル指定している行を1つずらすだけですが、一応丸ごと貼っておきます。

 Sub test()
    Dim i As Long
    Dim iMax As Long

    iMax = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 5 To iMax
        ActiveSheet.Hyperlinks.Add Cells(i, "A"), "", "Sheet2!" & Cells(4, i + 2).Address
    Next i

    With Sheet2
        For i = 7 To iMax + 2
            .Hyperlinks.Add .Cells(4, i), "", "Sheet1!" & Cells(i - 2, 1).Address
        Next i
    End With
End Sub
（???） 2013/11/19(火) 12:53

 マクロありがとうございます
 こちらも実行してみました！

 HYPERLINKの関数と同じ現象で
 Sheet1のセルに触れるとfile:///･･･参照先はあっているのに
 クリックすると"参照が正しくありません"とでてしまいます～

 わたしがどこか間違っているんだと思いますが
 どこを直せばいいのかわかりません（T＿T)
（ キャラメル） 2013/11/19(火) 13:14

「参照が正しくありません」が表示されるとすれば、
実際のシート名とハイパーリンクで設定しているシート名が一致してない、と推測できます。

（みやほりん） 2013/11/19(火) 13:27

シート名は、本当に「Sheet2」でしょうか？　実は違うということは？
（あ、指摘まで重複してる…）
（???） 2013/11/19(火) 13:30

 ご指摘どおりでしたーー！！
 シート名が違っていました。
 変更したところどちらも無事に解決いたしました

 重ね重ね申し訳ございません（T＿T)

 いろいろご迷惑をお掛けいたしましたが
 大変勉強になりました。
 次回は正確にお伝えすることを心がけたいと思います
 ありがとうございました
（ キャラメル） 2013/11/19(火) 13:40

コメント返信：

[ 一覧(最新更新順) ]

[[20131119093503]] 『ハイパーリンクのオートフィル』（キャラメル） ページの最後に飛ぶ

[[20131119093503]]　『ハイパーリンクのオートフィル』（キャラメル）　ページの最後に飛ぶ