総合練習問題9解答｜ExcelマクロVBA練習問題解答

最終更新日：2019-06-27

第81回.総合練習問題9解答

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

マクロVBA練習問題

フォルダごとバックアップするマクロの作成です。

自身のブックのあるフォルダについて、以下の処理をして下さい
・サブフォルダ"BACKUP"を作成して下さい
・フォルダ内のすべてのエクセルファイルを"BACKUP"にコピーして下さい。
ただし、
ファイル名は、〇〇○.xls → ○○○_yyyymmdd.xls
このように、
年月日を付けたファイル名にしてコピーして下さい。

※自分自身（マクロVBAを書くブック）はコピーしないでください。

ヒント！

拡張子の取得が必要になります。
最後の.ピリオド以降が拡張子になります。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

マクロVBA練習問題解答

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




Sub 練習1()
　　Dim strDir As String
　　Dim strFileName As String
　　Dim 
strNewFile As String
　　Dim intDot As Integer
　　strDir = ThisWorkbook.Path 
& "\"
　　MkDir strDir & "BACKUP"
　　strFileName = Dir(strDir & 
"*.xls")
　　Do While strFileName <> ""
　　　　If strFileName <> 
ThisWorkbook.Name Then
　　　　　　intDot = InStrRev(strFileName, 
".")
　　　　　　strNewFile = Left(strFileName, intDot - 1) & "_" & 
Format(Date, "yyyymmdd") & Mid(strFileName, intDot)
　　　　　　FileCopy strDir 
& strFileName, strDir & "BACKUP\" & strNewFile
　　　　End 
If
　　　　strFileName = Dir()
　　Loop
End Sub

書き方は色々あります。
回答はひとつのサンプルとして参考にして下さい。

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

第50回.総合練習問題6解答

マクロVBA練習問題の解答ページです。マクロVBA練習問題１問目セルA1に、20120203 と入っています、これを、セルB2に、日付(2012/2/3) として出力して入れて下さい。２問目セルA1に、日本太郎と入っています、姓名の間の空白は半角スペースです。

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

マクロVBA練習問題の解答ページです。マクロVBA練習問題ブックとシートを扱う問題です。まず以下を見て下さい。シート「ブック一覧」のA列にパス、B列にブック名が入っています。このブックを開き、中の全てのシート名を取得して下さい。

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

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

第81回.総合練習問題9解答
第86回.総合練習問題10解答

VBA練習問題の解答ページです。VBA練習問題表の見出しを残してデータ部分のみ消去してください。・A1セルを起点に１つのセル領域があります・１行目は列見出しとして使用A列は行見出しとして使用しています・つまりデータ部はB2セルから開始されています・データ部のみ入力データを消去してください。

練習問題1（For～Nextの練習）解答

マクロVBA練習問題1の解答ページです。マクロVBA練習問題・客単価を計算して、D列に入れて下さい。※行数は2～11行の固定の記述で良いです。※客単価=売上÷客数。練習問題用のExcelファイルこちらからダウンロードできます。

練習問題2（最終行の取得の練習）解答

マクロVBA練習問21の解答ページです。マクロVBA練習問題・金額を計算して、D列に入れて下さい、ただし、行数は随時変わるので、行数の変化に自動対応して下さい。※金額=数量×単価練習問題用のExcelファイルこちらからダウンロードできます。

練習問題3（二重ループの練習）解答

マクロVBA練習問題3の解答ページです。マクロVBA練習問題 100マス計算です。1行目の数値と、A列の数値の掛け算を、各交点のセルに入れて下さい。練習問題用のExcelファイルこちらからダウンロードできます。

練習問題4（Ifの練習）解答

マクロVBA練習問題4の解答ページです。マクロVBA練習問題・箱数とバラ数を計算して、それぞれの列に入れて下さい。・1箱に満たない場合は、D列の箱数に"×"を入れて下さい。※入数とは、1箱に入る数量です。

練習問題5（ElseIfとSelect Caseの練習）解答

VBA練習問題5の解答ページですVBA練習問題・昨年比を計算してそれぞれの列に入れて下さい。・昨年比の数値により記号を入れて下さい。S:105%以上 A:100%以上105%未満 B:95%以上100%未満 C:90%以上95%未満 D:90%未満 ※昨年比=今年売上÷昨年売上 ※D列は事前に％編集してあることとして下さい。

練習問題6（変数を使っての合計の練習）解答

マクロVBA練習問題6の解答ページです。マクロVBA練習問題・金額を計算して、D列に入れて下さい、・金額の合計を計算し、最終行の1行下のD列に入れて下さい。（下の票では、D22セルになります。）練習問題用のExcelファイルこちらからダウンロードできます。