本学習テーマ紹介動画
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| 本ツールと同じフォルダに新しくExcelファイルを作成する。 Excelファイル名は「（年月日時分秒）.xlsx」とする。 |
| 次に, MsgBox関数（情報アイコン）で「Excelファイル作成完了！（改行）次の画面で確認して下さい。」と表示する。 |
| 新しく作成したExcelファイルが入ったフォルダをエクスプローラー画面で開く。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim folderPath As String
Dim fileName As String
Dim wb As Workbook
Dim newFilePath As String
' 本ツールが入ったフォルダのパスを取得する
folderPath = ThisWorkbook.path
' 現在時刻からなるExcelファイル名を設定
fileName = Format(Now, "yyyymmddhhmmss") & ".xlsx"
' 新しいExcelファイルのファイルパスを設定
newFilePath = folderPath & "\" & fileName
' Excelファイルを作成
Set wb = Workbooks.Add
' 新しく作成したExcelファイルを保存する
wb.SaveAs fileName:=newFilePath
' 新しいExcelファイルを閉じる（書き込みを行っていないので, 上書き保存はしない）
wb.Close False
' メッセージを表示
MsgBox "Excelファイル作成完了！" & vbCrLf & "次の画面で確認して下さい。", vbInformation
' エクスプローラー画面で開く
Shell "explorer " & folderPath, vbNormalFocus
End Sub
上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaでExcelファイルを新規作成するプログラムを実装し, それを実際に実行することが出来ます！
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！（xlsmファイル）👇
コメント