【マクロVBA】複数行のソースコードを1行・小数行にまとめて短縮する!:(コロン)の活用について

ソースコード

2022.10.15 2022.03.01

前回の記事では長くなったプログラムを改行・複数の行に分ける方法について紹介しました。
前回の記事はこちらから☟

【マクロVBA知識 25】長くなったプログラムを改行・複数の行に分ける方法 ► 独学エクセル塾 (dokugakuexcel.com)

今回は前回の内容の対称となる複数行のプログラムを1行・小数行にまとめる方法について紹介します。
Select Caseなどを使用する中で条件が単純な場合は文字数が少ないのに対し
必要となる行は増えてしまいます。

そこで今回は複数に分かれたプログラムを1行・小数行にまとめて
コンパクトに管理しやすいプログラムを作成する方法について紹介したいと思います。

それでは見ていきましょう。

■見本のプログラムを紹介
■プログラムを1行・小数行にまとめる
■よくあるエラーと対処法について
1. ・コンパイルエラー：End If に対応するIf ブロックがありません/行頭のみ許されるステートメントです
⬛︎公式の説明
■まとめ

■見本のプログラムを紹介

まず、内容を紹介するにあたりイメージしやすいように
見本の作業とプログラムを用意しました。下図をご覧ください。

内容としてD3にグーチョキパーを入力すると勝敗がF3に出力されるようにしたいと思います。

ではプログラムを作成してみましょう。
結果は下記の通りです。

Sub じゃんけんの勝敗()
Dim A As String
A = Cells(3, 4) ‘自分の出した手
Select Case A
Case Is = “グー”
Cells(3, 6) = “あいこ”
Case Is = “チョキ”
Cells(3, 6) = “負け”
Case Is = “パー”
Cells(3, 6) = “勝ち”
End Select
End Sub

上記プログラムではＣaseが複数あり、行数が増えてしまっています。

ではこちらを小数行にまとめていきましょう。

■プログラムを1行・小数行にまとめる

では先ほどのプログラムを実際の図で確認してみましょう。

Caseが多く、行数が増えてしまいます。
ここで使用するのが「：（コロン）」です。

使用方法は簡単です。1行目と2行目を1つにまとめ、間に「：」を付けるだけです。
例えばA行とB行があったとすると「A行：B行」という配置で1行にすることができます。

では先ほどのプログラムを1つのまとめてみましょう。
結果はこのようになりました。

Sub コロンを使用したじゃんけんの勝敗()
Dim A As String
A = Cells(3, 4) ‘自分の出した手
Select Case A: Case Is = “グー”: Cells(3, 6) = “あいこ”: Case Is = “チョキ”: Cells(3, 6) = “負け”: Case Is = “パー”: Cells(3, 6) = “勝ち”: End Select
End Sub

実際の図で見てみましょう。

いかがでしょうか。
複数行のプログラムを1行にまとめることができました。
マクロVBAの機能上、行を分けないといけないもので文字数が少ない場合は
「：」を使って1行・小数行にまとめてみてください。

■よくあるエラーと対処法について

ここからは本内容で発生しやすいエラーと対処法について紹介します。

・コンパイルエラー：End If に対応するIf ブロックがありません/行頭のみ許されるステートメントです

こちらを使用した方はIf Thenで「：（コロン）」を使用したのでないでしょうか。
再度見本を見てみましょう。

内容としてD3にグーチョキパーを入力すると勝敗がF3に出力されるようにしたいと思います。
今回はIf Ｔhenで作成してみました。

Sub IFを使用したじゃんけんの勝敗()
Dim A As String
A = Cells(3, 4) ‘自分の出した手
If A = “グー” Then
Cells(3, 6) = “あいこ”
ElseIf A = “チョキ” Then
Cells(3, 6) = “負け”
ElseIf A = “パー” Then
Cells(3, 6) = “勝ち”
End If
End Sub

このプログラムでは正常に機能します。
ここで「：（コロン）」を使用して行を短縮してみましょう。

結果はこのようになります。