ExcelマクロVBA練習問題解答 | 練習問題17(ブック・シートの操作の練習)回答 | Excelマクロ練習問題集、エクセルVBAの学習教材



最終更新日:2015-10-22

練習問題17(ブック・シートの操作の練習)回答

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


問題

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

・シート「練習17_回答」を新規に追加し、
 そのA列にブック名
 B列にそのブックの全シート名の一覧を入れて下さい。

・繰り返し実行できるように、
 シート「練習17_回答」が既に存在した場合は、
 一旦削除してから、シート追加して下さい。

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

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

以下が完成イメージです。


では、お考えください。

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


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

当サイトのコンテンツ

ExcelマクロVBA入門
マクロの記録で覚えるVBA

ここで、じっくり勉強して下さい。



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




では、回答です。

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オブジェクト

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

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

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

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





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

練習問題14(行の挿入・削除の練習)回答
練習問題15(Withとオブジェクト変数の練習)回答
練習問題16(WorksheetFunctionの練習)回答
練習問題17(ブック・シートの操作の練習)回答
練習問題18(Dir関数の練習)回答
練習問題19(総合練習1)回答
練習問題20(総合練習2)回答
練習問題21(総合練習3)回答
練習問題22(総合練習4)回答
練習問題23(総合練習5)回答
練習問題24(再帰呼出し)回答

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

数値範囲で表検索するVLOOKUP近似一致|エクセル関数超技(10月5日)
エクセルVBAでのシート指定方法|VBA技術解説(9月8日)
VBAのクラスとは(Class,Property,Get,Let,Set)|VBA技術解説(8月28日)
VBAこれだけは覚えておきたい必須基本例文10|VBA技術解説(8月22日)
VBAの省略可能な記述について|ExcelマクロVBA技術解説(8月11日)
複数条件判定を行う時のコツ|ExcelマクロVBA技術解説(7月11日)
For Next の使い方いろいろ|VBA技術解説(6月14日)
VBAを定型文で覚えよう|ExcelマクロVBA技術解説(3月26日)
VBAスタンダード試験対策まとめ|MOS VBAエキスパート対策(3月16日)
ユーザーフォームとメニューの操作|MOS VBAエキスパート対策(3月14日)

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

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.変数とデータ型(Dim)|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.RangeとCellsの使い方|ExcelマクロVBA入門
6.定数と型宣言文字(Const)|ExcelマクロVBA入門
7.ひらがな⇔カタカナの変換|エクセル基本操作
8.マクロって何?VBAって何?|ExcelマクロVBA入門
9.繰り返し処理(For Next)|ExcelマクロVBA入門
10.とにかく書いて見よう(Sub,End Sub)|VBA入門



  • >
  • >
  • >
  • 練習問題17(ブック・シートの操作の練習)回答

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


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





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

    本文下部へ

    ↑ PAGE TOP