練習問題17（ブック・シートの操作の練習）解答

公開日：2013年5月以前　最終更新日：2019-11-03

練習問題17（ブック・シートの操作の練習）解答

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

マクロVBA練習問題

※まず最初に
　A列にパス、B列にブック名（エクセルのファイル名）を、
　実際のあなたのPC環境に合わせて入力して下さい。

・シート「練習17_回答」を新規に追加し、
　そのA列にブック名
　B列にそのブックの全シート名の一覧を入れて下さい。
・繰り返し実行できるように、
　シート「練習17_回答」が既に存在した場合は、
　一旦削除してから、シート追加して下さい。

練習問題用のExcelファイル

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

　Ａ　　　　　Ｂ

パス	ブック名
C:\User	Book1.xls
C:\User	サンプル.xls
C:\User	test.xls

※上記表の全体を選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

以下が完成イメージです。
マクロ VBA サンプル画像

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

シンキングタイム

シンキングタイム開始

シンキングタイム終了

当サイトのコンテンツ

ExcelマクロVBA入門

この「VBA入門」シリーズは、マクロVBAを実務で自在に使いこなし業務を効率化・自動化できるようになることを目的としています。始めはより詳しく丁寧に解説しつつ少しずつ難易度を上げることで無理なく学習を進められるようにしています。ただし入門といっても、後半にはかなり高度な内容にも触れています。

書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。

マクロVBA練習問題解答

では解答のマクロVBAコードです。
※.Valueは適宜省略しています。


  
    
      Sub 練習問題17()

      　　Dim i As Long

      　　Dim j As Long

      　　Dim wb As Workbook

      　　Dim ws As Worksheet

      　　Dim wsAns As Worksheet

      　　Application.DisplayAlerts = False

      　　For Each ws In Worksheets

      　　　　If ws.Name = "練習17_回答" Then

      　　　　　　ws.Delete

      　　　　　　Exit For

      　　　　End If

      　　Next

      　　Application.DisplayAlerts = True

      　　Worksheets.Add after:=Worksheets("練習17")

      　　Set wsAns = ActiveSheet

      　　With wsAns

      　　　　.Name = "練習17_回答"

      　　　　.Cells(1, 1) = "ブック名"

      　　　　.Cells(1, 2) = "シート名"

      　　End With

      　　j = 2

      　　With Worksheets("練習17")

      　　　　For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

      　　　　　　Set wb = Workbooks.Open(.Cells(i, 1) & "\" & .Cells(i, 2))

      　　　　　　wsAns.Cells(j, 1) = wb.Name

      　　　　　　For Each ws In wb.Sheets

      　　　　　　　　wsAns.Cells(j, 2) = ws.Name

      　　　　　　　　j = j + 1

      　　　　　　Next

      　　　　　　wb.Close SaveChanges:=False

      　　　　Next

      　　End With

      End Sub

Application.DisplayAlerts = True
のタイミングは、どこでも良いですし、書かなくても問題ありません。
でも、なるべく適切な位置に書くようにしましょう。

For～Each
ではなく、
For カウンター = 1 To Worksheets
・・・
Next
での処理も書けるようにしておきましょう。
シート削除なら


  
    
      For i = 1 To Worksheets.Count

      　　If Worksheets(i).Name = "練習17_回答" Then

      　　　　Worksheets(i).Delete

      　　　　Exit For

      　　End If

      Next

シート操作はマクロVBAにおいて頻繁に行われる基本事項になります。
決して難しくはなく、ほとんど定型文として使いまわせるものです。

以下も参考にして下さい。

ExcelマクロVBA入門.第54回.Windowオブジェクト

Windowオブジェクトは、ブックやシートの見方を変えることのできるもので、エクセルで「ウィンドウ」と表現されているものをマクロVBAで扱う時のオブジェクトになります。エクセルのリボンでは「新しいウィンドウ」や「ウィンドウ枠」といった言葉で表現されているものです。

ExcelマクロVBA入門.第58回.コレクションとは

同種のオブジェクトを複数まとめたものを「コレクション」と呼びます、ただしコレクションもオブジェクトの一種です。例えば、Workbookオブジェクトが複数まとまったものは「Workbooksコレクション」Worksheetオブジェクトが複数まとまったものは「Worksheetsコレクション」オブジェクト名が単数形であ…

ExcelマクロVBA入門.第59回.コレクション処理（For Each）

ForEachは、コレクションの各要素に対して繰り返し処理を実行します。コレクションはオブジェクトの集まりですので、ForEachは、コレクションの中から、個々のオブジェクトを取り出して処理する場合に使用します。コレクションの全ての要素に対しての処理が終わるとループは終了します。

ExcelマクロVBA入門.第65回.シートの追加、名前の変更（Add,Name）

マクロVBAでシートを挿入（新規追加）したり、名前を変更する場合の解説です。シートを挿入すれば、大抵の場合はシート名も変更することになりますので、シート挿入→シート名変更、この一連のVBAをセットで覚えておきましょう。シートの挿入 VBAでシートを挿入するには、Sheets.Addメソッド、Worksheets.A…

ExcelマクロVBA入門.第66回.シートのコピー・移動・削除（Copy,Move,Delete）

シートのコピーや移動をしたり、また削除する場合の説明です。マクロVBAでは、雛形シートをコピーして使ったり、不要なシートを削除することは頻繁にあります。シートのコピー・移動には、Worksheet.Copyメソッド、Worksheet.Moveメソッドこれらの、WorkSheetオブジェクトのメソッドを使用します。

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

練習問題14（行の挿入・削除の練習）解答

マクロVBA練習問題14の解答ページです。マクロVBA練習問題・区分がDの行を削除して下さい。・区分がIの行の前に新規行を挿入して下さい。練習問題用のExcelファイルこちらからダウンロードできます。

練習問題15（Withとオブジェクト変数の練習）解答

マクロVBA練習問題15の解答ページです。マクロVBA練習問題・シート「練習15」の表データを、シート「練習15_回答」に支店別・分類別に集計して下さい。※シート「練習15_回答」には、すべての支店と分類が必ずあるとします。

練習問題16（WorksheetFunctionの練習）解答

マクロVBA練習問題16の回答ページです。マクロVBA練習問題・シート「練習16_マスタ」より、商品名と単価を取得し、それぞれのセル（C列とD列）に入れて下さい。・シート「練習16_マスタ」に存在しない場合は、空欄のままにして下さい。

練習問題17（ブック・シートの操作の練習）解答
練習問題18（Dir関数の練習）解答

マクロVBA練習問題18の解答ページです。マクロVBA練習問題・A1に指定したフォルダ内にある、全てのエクセルファイル（xls,xlsx,xlsm）のブック名をA2以降に、そのブックの全シート名をB2から右に入れて下さい。（B2,C2,D2,…そのブックの全シート名を横に入れていく） ※サブフォルダ以下のファイル…

練習問題19（総合練習1）解答

マクロVBA練習問題19の回答ページです。マクロVBA練習問題・下記表の空欄を全て埋めて下さい。・客単価は、小数以下１桁で表示。・１週間の合計の客単価より低い日の客単価は赤字にして下さい。※客単価=売上÷客数練習問題用のExcelファイルこちらからダウンロードできます。

練習問題20（総合練習2）解答

マクロVBA練習問題20の解答ページです。マクロVBA練習問題・「元表」を下の「出来上がりサンプル」のようにして下さい。・月が変わったら１行挿入して、挿入した行に月の合計売上を入れて下さい。A列に、○月合計 B列に、売上の合計それぞれ太字にして下さい。

練習問題21（総合練習3）解答

マクロVBA練習問題21の解答ページです。マクロVBA練習問題・A列の都道府県から重複を失くし（ユニークにして）、D列に入れて下さい。・都道府県別の合計売上をE列に入れて下さい。練習問題用のExcelファイルこちらからダウンロードできます。

練習問題22（総合練習4）解答

マクロVBA練習問題22の解答ページです。マクロVBA練習問題・シート「練習22」では、各伝票の1行から6行が横に並んでいます。これを、シート「練習22_回答」を新規追加し、各伝票の行を縦に並べて下さい。

練習問題23（総合練習5）解答

マクロVBA練習問題23の解答ページです。マクロVBA練習問題・A2セルに日付、B2セルに名前を指定します。この条件に合うデータを、シート「練習23_データ」から抜出し、５行目以降に表示して下さい。

練習問題24（再帰呼出し）解答

マクロVBA練習問題24の解答ページです。マクロVBA練習問題・以下の表の全組み合わせを作成して下さい。サンプルデータでは、組み合わせの数は、8*3*6*5=720通りです。・各項目はカンマ(,)で区切って下さい。

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.ブック・シートの選択（Select,Activate）｜VBA入門

ホーム
マクロVBA入門編
マクロVBA練習問題解答
練習問題17（ブック・シートの操作の練習）解答

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

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

VBA練習問題解答
練習問題17（ブック・シートの操作の練習）解答