VBA練習問題
VBA100本ノック 51本目:シート一覧と印刷ページ数

VBAを100本の練習問題で鍛えます
最終更新日:2021-01-13

VBA100本ノック 51本目:シート一覧と印刷ページ数


ブックのシート一覧を作成して、各シートのA1にハイパーリンクする問題です。
さらに、各シートの印刷総ページ数も出力します。


ツイッター連動企画です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。

VBAテスト用のサンプルデータはご自身でご用意ください。


出題

出題ツイートへのリンク

#VBA100本ノック 51本目
シートの一覧を作成します。
先頭に「目次」シートを追加し、
・A列にシート名を出力
・表示シートのみシート名にA1へのハイパーリンクを作成(非表示シートはリンクしない)
・B列にそのシートを印刷した時の総ページ数を出力
※シート名に注意(記号等)


非表示シートの印刷ページをわざわざ求める必要はありません。
0または空欄で構いません。


頂いた回答

解説

シートへのハイパーリンクでは、シングルクォートでシート名を囲まないと、記号やスペースを含むシートへのリンクが正しく機能しません。
またシート名にシングルクォートを含む場合も考慮しで''に置換しています、
シート名が数字の場合の対応として文字列指定にしています。

Sub VBA100_51_01()
  Application.ScreenUpdating = False
  Dim wb As Workbook: Set wb = ActiveWorkbook
  Dim ws目次 As Worksheet
  Set ws目次 = getSheet(wb, "目次")
  
  Dim i As Long, ws As Worksheet
  For i = 2 To wb.Worksheets.Count
    Set ws = wb.Worksheets(i)
    ws目次.Cells(i, 1).Value = ws.Name
    If ws.Visible = xlSheetVisible Then
      ws目次.Cells(i, 1).Hyperlinks.Add _
                Anchor:=ws目次.Cells(i, 1), _
                Address:="", _
                SubAddress:="'" & Replace(ws.Name, "'", "''") & "'!A1"
      ws目次.Cells(i, 2).Value = ws.PageSetup.Pages.Count
    End If
  Next
  Application.ScreenUpdating = True
End Sub

Function getSheet(ByVal wb As Workbook, ByVal aName As String) As Worksheet
  On Error Resume Next
  Set getSheet = wb.Sheets(aName)
  If Err Then
    Set getSheet = wb.Worksheets.Add(before:=wb.Sheets(1))
    getSheet.Name = aName
  End If
  With getSheet
    .Cells.Clear
    .Columns(1).NumberFormat = "@"
    .Range("A1:B1").Value = Array("シート名", "ページ数")
  End With
End Function


印刷総ページ数は、シートのPageSetup.Pages.Countで取得できます。
ただし、非表示シートは印刷できないのでページ数を取得しても0になってしまいます。
特に補足はありません。
記事にはVBAを掲載しました。


補足

補足はありません。


サイト内関連ページ

第69回.シートの非表示(Visible,Hidden)
ユーザーが操作・閲覧する必要のないシートは非表示にする事で、使い易いExcelブックにします。マスタ情報やマクロでのみ使用するデータが入っているシート等で、通常使用者が変更することがなく、見る必要もないのであれば、シート保護をするより非表示にしてしまった方が、ユーザーにとっては使いやすいものとなります。
第73回.ページ設定(PageSetup)
VBAで印刷のページ設定をするには、PageSetupオブジェクトのプロパィを設定することで行います。基本的には、事前に印刷するシートのページ設定をしておくことが望ましいのですが、VBAで作成したシート等、事前にページ設定することができない場合はマクロVBAで印刷のページ設定をします。

第95回.ハイパーリンク(Hyperlink)
VBAでハイパーリンク(Hyperlink)を追加したり削除したりする場合を解説します。ハイパーリンクは、Hyperlinkオブジェクトです、そして、Hyperlinkオブジェクトの集まりであるコレクションが、Hyperlinksコレクションになります。




同じテーマ「VBA100本ノック」の記事

48本目:配列と数値型
49本目:条件付き書式の判定
50本目:トリボナッチ数列
51本目:シート一覧と印刷ページ数
52本目:複数シートの一括印刷
53本目:テーブルの扱いと年齢計算
54本目:シートのChangeイベント
55本目:他ブックのマクロを起動
56本目:数式内の自身のシート名を消す
57本目:ファイルの更新日時
58本目:番号リストを簡潔にした文字列で返す


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

VBA100本ノック 68本目:全テキストボックスの転記|VBA練習問題(1月16日)
VBA100本ノック 67本目:ComboBoxとListBox|VBA練習問題(1月15日)
VBA100本ノック 66本目:全サブフォルダからファイルを探す|VBA練習問題(1月13日)
VBA100本ノック 65本目:固定長テキスト出力|VBA練習問題(1月12日)
VBA100本ノック 64本目:リンクされた図(カメラ機能)|VBA練習問題(1月11日)
VBA100本ノック 63本目:複数シートの連結|VBA練習問題(1月9日)
VBA100本ノック 62本目:独自のZLOOKUP関数を作成|VBA練習問題(1月8日)
VBA100本ノック 61本目:「ふりがな」の取得と設定|VBA練習問題(1月6日)
VBA100本ノック 60本目:「株式会社」の表記ゆれ置換|VBA練習問題(1月5日)
VBA100本ノック 59本目:12ヶ月分のシートを四半期で分割|VBA練習問題(1月4日)


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

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




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


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



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