練習問題26（全シート処理とハイパーリンク）解答

最終更新日：2019-06-27

練習問題26（全シート処理とハイパーリンク）解答

マクロVBA練習問題26の解答ページです。

マクロVBA練習問題

全シートのハイパーリンク付き一覧を先頭シートに作成します。

現在のブックの先頭に新規シートを追加し、
既存シートのシート名一覧をハイパーリンク付きで作成して下さい。

※これは実務においても非常に良く発生する要求です。

練習問題用のExcelファイル

こちらからダウンロードできます。zipはこちらです。

では、お考えください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

ExcelVBAとは、エクセルの操作を自動化するマクロ機能で使われているプログラミング言語です。VBAは、「MicrosoftVisualBasicApplications」の略になります。このVBA入門シリーズでは、実務で必要とされるVBAの入門として、基礎から業務応用までのVBA全般を基礎解説していきます。

書くべきマクロVBAが分からない時は、

ここでじっくり勉強してから再チャレンジしてください。

マクロVBA練習問題解答

では解答のマクロVBAコードです。


  
    
      Sub 練習問題26_1()

      　　Dim i As Long

      　　Dim j As Long

      　　Dim ws As Worksheet

      　　Set ws = Worksheets.Add(Before:=Worksheets(1))

      　　j = 1

      　　For i = 2 To Worksheets.Count

      　　　　ws.Hyperlinks.Add Anchor:=ws.Cells(j, 1), Address:="", _

      　　　　　　　　　　　　　SubAddress:=Worksheets(i).Range("A1").Address(external:=True),
      _

      　　　　　　　　　　　　　TextToDisplay:=Worksheets(i).Name

      　　　　ws.Hyperlinks.Add Anchor:=ws.Cells(j, 1), Address:="", _

      　　　　　　　　　　　　　SubAddress:="'" & Worksheets(i).Name & "'!A1",
      _

      　　　　　　　　　　　　　TextToDisplay:=Worksheets(i).Name

      　　　　j = j + 1

      　　Next

      End Sub


  
    
      Sub 練習問題26_2()

      　　Dim i As Long

      　　Dim j As Long

      　　Dim ws As Worksheet

      　　Worksheets.Add Before:=Sheets(1)

      　　j = 1

      　　For Each ws In Worksheets

      　　　　With Worksheets(1)

      　　　　　　If ws.Index > 1 Then

      　　　　　　　　.Hyperlinks.Add Anchor:=.Cells(j, 1), Address:="", _

      　　　　　　　　　　　　　　　　SubAddress:=ws.Range("A1").Address(external:=True), _

      　　　　　　　　　　　　　　　　TextToDisplay:=ws.Name

      　　　　　　　　.Hyperlinks.Add Anchor:=.Cells(j, 1), Address:="", _

      　　　　　　　　　　　　　　　　SubAddress:="'" & ws.Range("A1").Name
      & "'!A1", _

      　　　　　　　　　　　　　　　　TextToDisplay:=ws.Name

      　　　　　　　　j = j + 1

      　　　　　　End If

      　　　　End With

      　　Next

      End Sub

２通り紹介しましたが、
このような場合にFor Eachを使うと、
どうしても２番目のシートからという記述がめんどうになってしまいます。
前後に他の処理がある場合は、適宜どちらで書くか判断して下さい。
また、
SubAddress:=Worksheets(i).Range("A1").Address(external:=True)
これは
SubAddress:="'" & Worksheets(i).Name & "'!A1"
このように書く事も出来ます。
この場合は、
シングルクォーテーション(')を忘れずに付けるようにしましょう。
シングルクォーテーション(')を忘れると、
シート名に空白やカナ記号等があると、正しくハイパーリンクが付きません。

※訂正

　SubAddress:=Worksheets(i).Range("A1").Address(external:=True)
　この場合、ブック名が入ってしまうため、別名保存でリンク切れを起こします。
　SubAddress:="'" & Worksheets(i).Name & "'!A1"
　こちらを使うようにして下さい。

これは、実務においても非常に良く発生しますので、さくっと書けるようにしておきましょう。

同じテーマ「マクロVBA練習問題解答」の記事

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作

ホーム
マクロVBA
マクロVBA練習問題解答
練習問題26（全シート処理とハイパーリンク）解答

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA練習問題解答
練習問題26（全シート処理とハイパーリンク）解答