VBA100本ノック 86本目：全シートの総当たり表を作成

公開日：2021-02-12　最終更新日：2021-02-22

VBA100本ノック 86本目：全シートの総当たり表を作成

全シートの総当たり表（マトリックス表）を作成する問題です。

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

VBAテスト用のサンプルデータは、VBA100本ノックの目次ページ からもダウンロードできます。

マクロVBAを初心者向けの基本から上級者向けの高度な内容までサンプルコードを掲載し解説しています。エクセル関数・機能・基本操作の入門解説からマクロVBAまでエクセル全般を網羅しています。

出題

#VBA100本ノック 86本目
シートの先頭に「相関表」シートを挿入します。
「相関表」以外の全シートの総当たり表（マトリックス表）を作成してください。
B2セルを起点にして縦横にシート名を配置し、画像を参考に罫線を引き、文字配置(表全体を中央)してください。
※この問題は次問題と連作です。

サンプルファイルです。
https://excel-ubara.com/vba100sample/VBA100_86.xlsm
https://excel-ubara.com/vba100sample/VBA100_86.zip

VBA作成タイム

この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。

他の人の回答および解説を見て、書いたVBAを見直してみましょう。

頂いた回答

出題ツイートの引用ツイートでの回答

解説

シート挿入および全シートを処理する問題は100本ノックでも何度もでています。
シートは数にかぎりがあるので、配列を使っても使わなくても速度的にもあまり変わらないと思います。
罫線と文字配置のプロパティ設定に気を付ければ良い問題です。


  
    
      Sub VBA100_86_01()

　　Dim wb As Workbook:　　 Set wb = ThisWorkbook

　　Dim ws As Worksheet:　　Set ws = getSheet(wb, "相関表")

　　Dim wsCnt As Long:　　　wsCnt = wb.Worksheets.Count

　　Dim ary:　　　　　　　　ReDim ary(1 To wsCnt, 1 To wsCnt)

　　Dim rng As Range:　　　 Set rng = ws.Range("B2").Resize(UBound(ary, 1), UBound(ary, 2))

　　

　　Dim i As Long

　　With rng

　　　　.Borders.LineStyle = xlContinuous

　　　　For i = 2 To wsCnt

　　　　　　ary(i, 1) = wb.Worksheets(i).Name

　　　　　　ary(1, i) = wb.Worksheets(i).Name

　　　　　　.Cells(i, i).Borders(xlDiagonalDown).LineStyle = xlContinuous

　　　　Next

　　　　.Value = ary

　　　　.HorizontalAlignment = xlCenter

　　　　.VerticalAlignment = xlCenter

　　End With

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

　　getSheet.Move before:=wb.Sheets(1)

　　getSheet.Cells.Clear

End Function

この問題は、次の87本目で使う「相関表」を作成するものでした。
次の87本目でこの表の中に数式の参照関係を埋めます。
補足はありません。記事にはVBAコードを掲載しました。

補足

補足はありません。

サイト内関連ページ

第32回．セルの書式（配置,Alignment）

セル内での値を表示する位置（縦位置、横位置）をマクロVBAで指定できます。「セルの書式設定」→「配置」で指定する内容です。マクロVBAでの配置の指定 Range.プロパティ=設定値指定できるプロパティの設定値は以下になります。

第35回．セルの書式（罫線,Border）

・A1セル～B5セルに格子線を引いた時のマクロの記録・マクロVBAでの罫線指定・Bordersのプロパティ・Range.BorderAroundメソッド・マクロVBAでの罫線の注意点

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

83本目：請求書を作成してPDF出力
 84本目：ブックの自動バックアップ
 85本目：請求日から入金予定日を算出
86本目：全シートの総当たり表を作成
87本目：数式のシート間の依存関係
 88本目：クロスABC分析作成
 89本目：2つのフォルダの統合
 90本目：セルに重なっている画像の削除
 91本目：時間計算（残業時間の月間合計）
92本目：セルの色を16進で返す関数
 93本目：複数ブックを連結して再分割

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA入門編
VBA100本ノック
86本目：全シートの総当たり表を作成

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

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA練習問題
VBA100本ノック 86本目：全シートの総当たり表を作成