ExcelマクロVBA練習問題解答 | 第67回.総合練習問題7回答 | Excelマクロ練習問題集、エクセルVBAの学習教材



最終更新日:2015-10-22

第67回.総合練習問題7回答

回答ページです、ブックとシートを扱う問題です。



では問題です、まず以下を見て下さい。


シート「ブック一覧」のA列にパス、B列にブック名が入っています。


このブックを開き、中の全てのシート名を取得して下さい。


先頭に「シート一覧」というシート追加し、


A列にブック名、B列にシート名を書き出して下さい。

ただし、繰り返し実行可能なように、

既に「シート一覧」というシートがある場合も考慮する事。


結果は以下のようになります。




少し難しいプログラムになります。


では、


・・

・・・

・・・・

・・・・・


はい、



では回答です。

Sub 練習1()
  Dim i As Long
  Dim OutRow As Long
  Dim wb読込 As Workbook
  Dim ws一覧 As Worksheet
  Dim ws As Worksheet
  
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  
  'シート「シート一覧」を削除
  On Error Resume Next
  Worksheets("シート一覧").Delete
  On Error GoTo 0
  
  '「シート一覧」を作成
  Set ws一覧 = Sheets.Add(Before:=Sheets(1))
  ws一覧.Name = "シート一覧"
  ws一覧.Range("A1").Value = "ブック名"
  ws一覧.Range("B1").Value = "シート名"
  
  '「シート一覧」2行目から
  OutRow = 2
  With Worksheets("ブック一覧")
    For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
      'ブックを開く
      Set wb読込 = Workbooks.Open(.Cells(i, 1) & "\" & .Cells(i, 2))
      'ブック名を出力
      ws一覧.Cells(OutRow, 1) = wb読込.Name
      '全シート名を出力
      For Each ws In wb読込.Sheets
        ws一覧.Cells(OutRow, 2) = ws.Name
        OutRow = OutRow + 1
      Next ws
      '開いたブックを閉じる
      wb読込.Close SaveChanges:=False
    Next i
  End With
  
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
End Sub


それなりに長いマクロになっています。


今までに説明した、ステートメント・プロパティ・メソッドだけを使ったつもりです。


書き方は色々あります。

'シート「シート一覧」を削除
On Error Resume Next
Worksheets("シート一覧").Delete
On Error GoTo 0


この部分は、

For Each ws In Sheets
  If ws.Name = "シート一覧" Then
    ws.Delete
  End If
Next ws


このように書く方が良いです。


On Error のサンプルをかねて、このようにしてみました。


Setステートメントをうまく使うと、マクロがすっきりします。


何度も書いて覚えて下さい。





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

第78回.総合練習問題8回答
第81回.総合練習問題9回答
第86回.総合練習問題10回答
練習問題1(For〜Nextの練習)回答
練習問題2(最終行の取得の練習)回答
練習問題3(二重ループの練習)回答
練習問題4(Ifの練習)回答

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

データクレンジングと名寄せ|ExcelマクロVBA技術解説(10月20日)
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日)

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

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



  • >
  • >
  • >
  • 総合練習問題7回答

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


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

    ↑ PAGE TOP