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

Excelマクロ練習問題集、エクセルVBAの学習教材
最終更新日:2020-12-21

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

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

マクロVBA練習問題

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

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

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

練習問題用のExcelファイル

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

シンキングタイム

シンキングタイム開始



シンキングタイム終了

当サイトのコンテンツ
ExcelマクロVBA入門
マクロVBA入門シリーズでは、Excelマクロを実務で自在に扱えるようになる事を目的として、始めはより詳しく丁寧に解説しつつ、少しずつ難易度を上げることで無理なく学習を進められるようにしています。VBAはExcelの操作を自動化するマクロ機能で使われているプログラミング言語です。

書くべきマクロ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:="'" & Replace(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:="'" & Replace(ws.Name, "'", "''") & "'!A1", _
                TextToDisplay:=ws.Name
        j = j + 1
      End If
    End With
  Next
End Sub

2通り紹介しましたが、
このような場合にFor Eachを使うと、
どうしても2番目のシートからという記述が面倒になってしまいます。
前後に他の処理がある場合は、適宜どちらで書くか判断して下さい。

シート名には、シングルクォート(')を忘れずに付けるようにしましょう。
これらを忘れると、シート名に空白や記号があると、正しくハイパーリンクが設定されません。
また、頻度は少ないと思いますが、シングルクォート(')を含むシート名対策として、シングルクォート(')は連続シングルクォート('')に置換してください。

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




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

練習問題22(総合練習4)解答
練習問題23(総合練習5)解答
練習問題24(再帰呼出し)解答
練習問題25(各種VBA関数)解答
練習問題26(全シート処理とハイパーリンク)解答
練習問題27(データ分割し別ブック保存)解答
練習問題28(シートを別ブックにして値のみにする)解答
練習問題29(ロット引き当て)解答
練習問題30(マトリックス→リスト形式)解答
練習問題31(セル結合を解除して値を埋める)解答
練習問題32(連続数値部分を取り出し記号で連結)解答


新着記事NEW ・・・新着記事一覧を見る

VLOOKUPを使うことを基本としてシートを設計すべきか|エクセル雑感(2021-08-17)
コンピューターはブラックボックスで良い|エクセル雑感(2021-08-14)
小文字"abc"を大文字"ABC"に変換する方法|エクセル雑感(2021-08-13)
ADOでテキストデータを集計する|VBAサンプル集(2021-08-04)
VBA学習のお勧めコース|エクセル雑感(2021-08-01)
エクセル馬名ダービー|エクセル雑感(2021-07-21)
在庫を減らせ!毎日棚卸ししろ!|エクセル雑感(2021-07-05)
日付型と通貨型のValueとValue2について|エクセル雑感(2021-06-26)
DXってなんだ? ITと何が違うの?|エクセル雑感(2021-06-24)
エクセルVBA 段級位 目安|エクセル雑感(2021-06-21)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.Excelショートカットキー一覧|Excelリファレンス
3.変数宣言のDimとデータ型|VBA入門
4.RangeとCellsの使い方|VBA入門
5.繰り返し処理(For Next)|VBA入門
6.マクロって何?VBAって何?|VBA入門
7.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
8.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
9.セルに文字を入れるとは(Range,Value)|VBA入門
10.とにかく書いてみよう(Sub,End Sub)|VBA入門




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


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



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