ExcelマクロVBA練習問題解答 | 練習問題26(全シート処理とハイパーリンク)回答 | Excelマクロ練習問題集、エクセルVBAの学習教材



最終更新日:2015-10-22

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

練習問題26の回答ページです、


問題

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

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

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


では、お考えください。

すぐに回答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。


・・
・・・
・・・・
・・・・・

当サイトのコンテンツ

Excelマクロ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


2通り紹介しましたが、

このような場合にFor Eachを使うと、
どうしても2番目のシートからという記述がめんどうになってしまいます。

前後に他の処理がある場合は、適宜どちらで書くか判断して下さい。

また、
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"
 こちらを使うようにして下さい。


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





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

練習問題27(データ分割し別ブック保存)回答
練習問題28(シートを別ブックにして値のみにする)回答
練習問題29(ロット引き当て)回答
第19回.総合練習問題1回答
第26回.総合練習問題2回答
第30回.総合練習問題3回答
第36回.総合練習問題4回答

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

SUMIFの間違いによるパフォーマンスの低下について|エクセル関数超技(6月17日)
条件式のいろいろな書き方:TrueとFalseの判定とは|ExcelマクロVBA技術解説(6月15日)
空白セルを正しく判定する方法2|ExcelマクロVBA技術解説(5月6日)
フルパスをディレクトリ、ファイル名、拡張子に分ける|ExcelマクロVBA技術解説(4月15日)
テキストボックスの各種イベント|Excelユーザーフォーム入門(4月9日)
フォルダ(サブフォルダも全て)削除する、Optionでファイルのみ削除|ExcelマクロVBAサンプル集(4月4日)
最後の空白(や指定文字)以降の文字を取り出す|エクセル関数超技(3月26日)
先頭の数値、最後の数値を取り出す|エクセル関数超技(3月26日)
Excelファイルを開かずにシート名をチェック|ExcelマクロVBAサンプル集(3月23日)
数式の参照しているセルを取得する|ExcelマクロVBAサンプル集(3月18日)

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

1.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
2.RangeとCellsの使い方|ExcelマクロVBA入門
3.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
4.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
5.変数とデータ型(Dim)|ExcelマクロVBA入門
6.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
7.セルの参照範囲を可変にする(OFFSET,COUNTA,MATCH)|エクセル関数超技
8.ひらがな⇔カタカナの変換|エクセル基本操作
9.定数と型宣言文字(Const)|ExcelマクロVBA入門
10.CSVの読み込み方法|ExcelマクロVBAサンプル集



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

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


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

    ↑ PAGE TOP