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

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

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

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

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

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

内容として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

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

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

文字が赤くなり、エラーが出てしまいました。

結果として「：（コロン）」はIf Thenで使用することはできなくなっています。
処理の方は使用できるのですがThenとそれ以降の処理は行を分ける必要があります。

Select Ｃaseは見本の通り使用できるので
こちらを使用するのも手ですね。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Office VBA の基礎知識 | Microsoft Learn

■まとめ

いかがだったでしょうか。
プログラムが長くなってしまうと、どこからどこまでがどの処理かわからなくなってしまいます。

その際は「：（コロン）」を使用して行を短縮してみてください。

それでは次回の記事でお会いしましょう。

モニター画面の表示であったり、住所の連結などに使用できそうですね。

システムを作成する方は役立つと思いますので、ぜひ参考にしてみてください。

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

■関数の仕組み

■ 1つの文字に結合する方法

そして今回の見本のシートは下記の電話番号のデータが入力されているシートをもとに説明したいと思います。

行いたい作業としてはＣ列・Ｄ列・E列に分割された番号があるので
そちらの数値をF列の番号（結合）に繋げて出力してみましょう。

関数の内容で言うと下記のように表します。

=CONCATENATE(値1,値2,値3,・・・)

Aさんを見ていきましょう。Aさんの分割番号と番地は下記のようになってます。

値1＝891(C3)
値2＝5158(D3)
値3＝4861(E5)

これを連結してみましょう。

式ではこのようになります。

=CONCATENATE(C3,D3,E3)

では実際に打ち込んでみます。

うまく機能していますね。

次の項目ではハイフン(-)を数式に入力して追加してみましょう。

■ 数式にも直接文字を入れてみる。

今度は関数にも文字を入れてみます。

前回までの式はこちら

=CONCATENATE(C3,D3,E3)

この値のC3とD3の間に「- (ハイフン)」
この値のD3とE3の間に「- (ハイフン)」

を入れてみましょう。

文字を入れる際は「”」で囲ってあげます。

式としてはこのようになります。

=CONCATENATE(C3,”-“,D3,”-“,E3)

では実際に入力してみましょう。

うまくハイフンが入っていますね。
ではBさんからEさんも同様に入力してみましょう。

フィルダウンすれば参照と”-”の式を維持しつつ一気に入力できます。

このようになります。

これで文字の連結が楽になりました。

■よくあるエラーと対処法

CONCATENATE関数でよくあるエラーについて説明します。

・参照先にエラーがある

では下図をご覧ください。

先程使用していたシートですね。

数式も同様です。しかし参照先にエラーが存在しています。

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

参照先のエラーにつられて結果もエラーになりました。

こちらの対処法はエラーを解決するしかありません。

IFERROR関数などを使用してエラーが生じないようにしてください。

■応用問題

ではCONCATENATE関数を応用して様々な出力をしてみましょう。

・関数を参照に入れる

CONCATENATE関数 の参照は数式を打ち込んでも機能してくれます。

下図をご覧ください。

「Ｂ3」に入力してある日付を参考にして

「対象の日付は○○曜日です。」と表示してみましょう。

答え：=CONCATENATE(“対象の日付は”,TEXT(B3,”aaa”),”曜日です。”)

まず初めに「 対象の日付は」を打ち込みます。

そのあとTEXT関数を使用して参照の曜日を出力します。

ここでは「土」になってますね。

最後に 「曜日です。 」を追加すれば完了です。

曜日を求める方法についてはこちら☟

【曜日を関数で表示】エクセルで対象・現在の曜日を返す・表示する～WEEKDAY/TEXT関数～ ► 独学エクセル塾 (dokugakuexcel.com)

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

CONCATENATE 関数 – Office サポート (microsoft.com)

■まとめ

いかがだったでしょうか。
これで様々な表示が可能になりましたね。

参照に数式を入力できるのはとても便利です。

ちなみに「＆」を入力するだけでも文字をつなげることができます。

例えば応用問題で使用した下の数式は

=CONCATENATE(“対象の日付は”,TEXT(B3,”aaa”),”曜日です。”)

「＆」を 使用すると下記のようになります。

=”対象の日付は”&TEXT(B3,”aaa”)&”曜日です。”

どちらも出力結果は同じです。

それでは次回の記事でお会いしましょう。

このサイトでは独学でエクセルの技術を磨くことができます。基本操作やVBA、関数を随時更新中です。

関数の使い方や効果を、実際のエクセルを使用してわかりやすくしています。

いつかはエクセルの教科書のようなサイトを目指してます。
コメントで知りたいことや悩みなど記入していただければお答えしていきます。
ぜひ、ほかの記事もご覧ください。皆様の参考になれれば幸いです！