「Excel」の編集履歴(バックアップ)一覧はこちら
「Excel」(2015/04/02 (木) 11:31:46) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
<p>[Excel][VBA]全シートのリンクを作りたい</p>
<p>シート名が大量にあって、目次を作るとかでシート名を取得すると同時にリンクを貼りたい場合。</p>
<p><br />
Public Function GetHyperLinkString()<br />
Dim i As Integer<br />
<br />
For i = 1 To Worksheets.Count<br />
' =HYPERLINK("#'シート名'!A1","シート名") ← こういう形の文字列を取得<br />
Debug.Print "=HYPERLINK(" & Chr(34) & "#'" &
Worksheets(i).Name & "'!A1"; Chr(34) & "," & Chr(34) &
Worksheets(i).Name & Chr(34) & ")"<br />
Next i<br />
<br />
' イミディエイトウィンドウに出たテキストをエクセルのセルにコピればOK<br />
End Function</p>