|
いつも当ブログをご覧いただきありがとうございます。
アクセスしづらくなることありませんか？
こんな感じです。
エクセルのシート名が多すぎて、右端まで見えません。
右端のシートにどのような方法でアクセスされているでしょうか？
エクセルについている機能としては、
最後のシートにスクロールしたり、
すべてのシートを表示したり
する機能があります。 下記のようにシート見出しの左端の矢印にカーソルを合わせると、
説明が表示されます。
そこで、右クリックしてみると、下記のダイアログが表示されます。
シート名を選択⇒「OK」 で 目的のシートにジャンプできます。
この 『ダイアログを表示⇒シート名を選択⇒OKを押下』 する手順が
わずらわしい！マウス操作していると手がつりそうになることも。
そこで、マクロでシート名を表示し、ハイパーリンクで飛べるマクロを作成してみました。
下図のようなシートをマクロで作成します。
このようにシート上でシート名の一覧を作成するメリットは
①ハイパーリンクで素早く目的のシートにアクセスできる
②同じ内容のシートを別名シートで複製できる
③シート名を変更する際に、エクセル上の隣り合う列（たとえばB列とC列）に記載し
確認しながら作業することによりミスを防げる
があります。
②③は別のマクロを作成することが必要になりますが。
今回のコードは以下のようになります。
Sub sheet一覧()
'①「シート名一覧」シートを作成
Sheets.Add before:=Worksheets(1)
ActiveSheet.Name = "シート名一覧"
For i = 2 To Worksheets.Count
'②シート名を「シート名一覧」シートに記載する
Cells(i, 1) = i
Cells(i, 2) = Worksheets(i).Name
'③「シート名一覧」のシート名にハイパーリンクを付与する
Range(Cells(i, 2), Cells(i, 2)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Worksheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Name
Next
MsgBox ("シート名一覧作成完了")
End Sub |
- >
- コンピュータとインターネット
- >
- コンピュータ
- >
- ソフトウェア
コメント（0）
