「文字列の結合練習用 Excel マクロ付きファイル」を作ります。
今回は ボタンを押すと説明が出る“学習支援モード”付き” です。
1️⃣ 新しい Excel ファイルを作成
- Excel を開いて新規ブックを作成
- 保存は必ず 「Excel マクロ有効ブック（.xlsm）」 形式で
2️⃣ シート構成例
| シート名 | 内容 |
|---|---|
| 練習1 | 文字列結合の基本サンプル |
| 練習2 | 数値や日付との結合 |
| 練習3 | 改行やループでの結合 |
| 説明 | 各ボタンで表示する学習用テキスト |
3️⃣ VBA モジュール作成
- Alt + F11 を押して VBA エディタを開く
- 挿入 → モジュール で新しいモジュールを作成
- 以下コードを貼り付け
'==============================
' 文字列結合 練習サンプル
'==============================
' 練習1：基本結合
Sub Sample1()
Dim s As String
s = "こんにちは、" & "世界！"
MsgBox s
End Sub
' 練習2：数値との結合
Sub Sample2()
Dim ver As String
Dim num As Integer
num = 12
ver = "Version " & num
MsgBox ver
End Sub
' 練習3：日付との結合
Sub Sample3()
Dim d As Date
Dim s As String
d = Date
s = "今日の日付は " & d
MsgBox s
End Sub
' 練習4：改行を入れる
Sub Sample4()
Dim msg As String
msg = "行1です" & vbCrLf & "行2です" & vbCrLf & "行3です"
MsgBox msg
End Sub
' 練習5：ループで文字列を繰り返す
Sub Sample5()
Dim i As Integer
Dim stars As String
stars = ""
For i = 1 To 5
stars = stars & "★"
Next i
MsgBox stars
End Sub
' 学習支援用：説明表示
Sub ShowExplanation(sampleID As Integer)
Dim text As String
Select Case sampleID
Case 1
text = "Sample1: & 演算子で文字列を結合"
Case 2
text = "Sample2: & 演算子で数値を文字列に結合"
Case 3
text = "Sample3: & 演算子で日付を文字列に結合"
Case 4
text = "Sample4: vbCrLf で改行を入れる"
Case 5
text = "Sample5: ループで文字列を繰り返して結合"
Case Else
text = "選択なし"
End Select
MsgBox text, vbInformation, "学習支援モード"
End Sub
4️⃣ ボタン設置（シート上で実行）
- 開発タブ → 挿入 → フォームコントロールのボタン
- シート上にボタンを置く
- 割り当てるマクロを選択：
- 練習1用ボタン →
Sample1 - 練習2用ボタン →
Sample2 - …
- 練習1用ボタン →
- ボタン右クリック → 「テキスト編集」でボタン名を変更
- 例：
文字列結合（Sample1）
- 例：
- 学習支援モードボタン を作る場合：
- ボタン名：
説明を見る - 割り当てマクロ：
- ボタン名：
Sub ShowAllExplanations()
Dim i As Integer
For i = 1 To 5
ShowExplanation i
Next i
End Sub
5️⃣ 実行方法
- シート上のボタンをクリック
- 結果が メッセージボックスで表示
- 「説明を見る」ボタンで各サンプルの簡単な解説も表示
✅ これで 「ボタンを押して学べる練習用マクロ Excel」 が完成です。
- 文字列結合の基本から数値・日付・改行・ループまでカバー
- 学習支援モードで解説も確認可能
- そのままコピー＆ペーストで実行可能
