wikiの編集方法についてはこちら
左メニューの編集方法についてはこちら
[Excel][VBA]全シートのリンクを作りたい
シート名が大量にあって、目次を作るとかでシート名を取得すると同時にリンクを貼りたい場合。
Public Function GetHyperLinkString() Dim i As Integer For i = 1 To Worksheets.Count ' =HYPERLINK("#'シート名'!A1","シート名") ← こういう形の文字列を取得 Debug.Print "=HYPERLINK(" & Chr(34) & "#'" & Worksheets(i).Name & "'!A1"; Chr(34) & "," & Chr(34) & Worksheets(i).Name & Chr(34) & ")" Next i ' イミディエイトウィンドウに出たテキストをエクセルのセルにコピればOKEnd Function
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。