本学習テーマ紹介動画
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| 現在日時をNow関数を使い, 「”yyyy-mm-dd-hh-mm-ss”」の形式で取得する。 |
| 取得した現在日時を名前にしたフォルダを、 本ツールが入っているフォルダ内に新規作成して下さい。 |
| MsgBox関数（情報アイコン）で 「フォルダ新規作成が完了しました！」と表示する。 |
| Shell関数を使い, 作成先のフォルダ（本ツールが入っているフォルダ）を エクスプローラーで開いてください。 |
解答例
Option Explicit
Sub correctAnswerExample()
' 現在日時をNow関数を使い, 「"yyyy-mm-dd-hh-mm-ss"」の形式で取得する。
Dim nowStr As String: nowStr = Format(Now, "yyyy-mm-dd-hh-mm-ss")
' 取得した現在日時を名前にしたフォルダを､本ツールが入っているフォルダ内に新規作成して下さい｡
Dim flPath As String: flPath = ThisWorkbook.Path & "\" & nowStr
MkDir flPath
' MsgBox関数（情報アイコン）で「フォルダ新規作成が完了しました！」と表示する。
MsgBox "フォルダ新規作成が完了しました！" & vbCrLf & "次の画面で確認して下さい。", vbInformation
' Shell関数を使い, 作成先のフォルダ（本ツールが入っているフォルダ）をエクスプローラーで開いてください｡
Shell "explorer " & ThisWorkbook.Path, vbMaximizedFocus
End Sub上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaでフォルダを新規作成するプログラムを実装し, それを実際に実行することが出来ます！
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！（xlsmファイル）👇
コメント