本学習テーマ紹介動画
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| 新しいシートを末尾に追加する。 新しいシート名を「年月日時分秒」に設定する。 例えば, 2024年7月13日18時4分13秒に実行した場合, シート名「20240713180413」のシートを作成する。 |
| 最後に, MsgBox関数（情報アイコン）で「シート追加完了！」と表示する。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim currentTime As String
Dim newSheet As Worksheet
' 現在日時・時刻を取得
currentTime = Format(Now, "yyyymmddhhmmss")
' シートを作成し, シート名を設定
ThisWorkbook.Worksheets.Add After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = currentTime
' メッセージを表示する
MsgBox "シート追加完了！", vbInformation
End Sub上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaでシートを追加するプログラムを実装し, それを実際に実行することが出来ます！
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！（xlsmファイル）👇
コメント