VBA練習問題解答
総合練習問題8解答

Excelマクロ練習問題集、エクセルVBAの学習教材
最終更新日:2019-06-27

第78回.総合練習問題8解答

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


マクロVBA練習問題

・ダイアログで、Excelファイルを選択する
・指定されたExcelファイルの全ワークシートを印刷する
ただし、
非表示シートは対象外とする
また、
シートの全セルの背景色は消して下さい。


チャレンジしてみましょう。

ヒント!

書き方はいろいろあります。
まずは自分なりの書き方で書いてみましょう。

シンキングタイム

シンキングタイム開始


シンキングタイム終了

マクロVBA練習問題解答

では解答のマクロVBAコードです。

Sub Sample()
  Dim wb As Workbook
  Dim ws As Worksheet
  Dim FileName As Variant
  FileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls*")
  If FileName = False Then
    Exit Sub
  End If
  Set wb = Workbooks.Open(FileName)
  For Each ws In wb.Worksheets
    If ws.Visible = xlSheetVisible Then
      ws.Cells.Interior.ColorIndex = xlNone
      ws.PrintOut preview:=True
    End If
  Next ws
  wb.Close SaveChanges:=False
End Sub

今までの内容の組み合わせだけです。
書き方は色々ありますので、
自分なりのコードを書いてみて下さい。



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

第43回.総合練習問題5解答
第50回.総合練習問題6解答
第67回.総合練習問題7解答
第78回.総合練習問題8解答
第81回.総合練習問題9解答
第86回.総合練習問題10解答
練習問題1(For~Nextの練習)解答
練習問題2(最終行の取得の練習)解答
練習問題3(二重ループの練習)解答
練習問題4(Ifの練習)解答
練習問題5(ElseIfとSelect Caseの練習)解答


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

イータ縮小ラムダ(eta reduced lambda)|エクセル入門(2023-11-20)
PIVOTBY関数(縦軸と横軸でグループ化して集計)|エクセル入門(2023-11-19)
GROUPBY関数(縦軸でグループ化して集計)|エクセル入門(2023-11-18)
PY関数(Pythonコードをセル内で実行)|エクセル入門(2023-11-17)
画像「セルに配置」のVBAについて(365の新機能)|VBA技術解説(2023-11-13)
スピルのゴーストの範囲を選択するVBA|ツイッター出題回答 (2023-10-31)
エクセル試験3:月間の所定労働時間|エクセル練習問題(2023-10-04)
エクセル試験2:所得税の計算|エクセル練習問題(2023-10-04)
エクセル試験1:曜日別の平均客単価|エクセル練習問題(2023-10-04)
列全体を指定する時のRangeとColumnsの違い|ツイッター出題回答 (2023-09-24)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.繰り返し処理(For Next)|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.変数宣言のDimとデータ型|VBA入門
6.条件分岐(IF)|VBA入門
7.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
8.並べ替え(Sort)|VBA入門
9.マクロとは?VBAとは?VBAでできること|VBA入門
10.Range以外の指定方法(Cells,Rows,Columns)|VBA入門




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


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



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