しかし、一行のソースコードを複数行のソースコードに置き換えたい場合も存在しますよね。

そこで今回は置き換えを使用して１行から複数行の置き換え方法を紹介したいと思います。
実際の画面を用いて説明していますので是非参考にしてみて下さい。

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

⬛︎通常のソースコードの置き換え

まず、通常の置き換え方法を見ていきましょう。
visual basicの画面で「ctrl＋F」を押します。

すると下図のようなメニュー画面が表示されると思います。

「ctrl＋F」以外にも「編集」から「検索」で同様の画面が出てきます。

通常は検索画面になっており、ここで打ち込んだ文字・数値のコードを
検索することができます。

こちらを置き換えのメニュー画面に変更してみましょう。
先程のメニュー画面の右側に「置換」というボタンがあります。

こちらを押していただくと下図のような画面になると思います。

ちなみに「Ctrl＋H」でも同様の画面が表示されます。

では実際に置き換えてみましょう。

「検索する文字列」のところに置き換え前の文字・数値を入力し、
「置換後の文字列」のところに置き換え後の文字・数値を入力して
「置換」を押すと文字・数値の置き換えができます。

では一例を紹介したいと思います。
今回は見本で「ABC」を「CBA」に変更したいと思います。

まず、「検索する文字列」に「ABC」を入力し、
「置換後の文字列」に「CBA」を入力します。

では「置換」を押してみましょう。
結果はこのようになりました。

「ABC」が「CBA」に置き換わっていますね。

　
検索と置き換えについては下記記事で詳しくまとめています☟

【マクロVBA】ソースコードの検索と置き換えについて！カレントプロシージャ・モジュール・プロジェクト ► 独学エクセル塾 (dokugakuexcel.com)

ここまでは通常の置き換え方法を紹介しましたが、ここからは一行から複数行の置き換え方法を見ていきましょう。

⬛︎一行から複数行への置き換え方法

では本題です。
先程は一行の中の指定した文字・数値を置き換えましたが
今回は一行から複数行の置き換え方法を見ていきましょう。

通常、複数行への置き換えをすることはできません。
しかし、似たようなコードを作成することは可能です。

先程のプログラムを例に見ていきましょう。

Sub 置き換え見本()

Range(“A1”) = “ABC”

End Sub

今回は「A1」に「ABC」を入力するプログラムですが、
「A1」に「A」、「B1」に「B」、「C1」に「C」を入力するプログラムにしてみましょう。

狙いの動作を可能にするプロシージャは下記の通りです。

Sub 置き換え見本()

Range(“A1”) = “A”
Range(“B1”) = “B”
Range(“C1”) = “C”

End Sub

しかし変更後は3行なので置き換えができませんよね。
そこで使用するのが「：（コロン）」になります。

「：（コロン）」は複数行のプログラムを1行にまとめる機能があります。
「：（コロン）」についての詳しい解説は下記記事を参考にしてください。

【マクロVBA】複数行のソースコードを1行・小数行にまとめて短縮する!:(コロン)の活用について ► 独学エクセル塾 (dokugakuexcel.com)

こちらを使用して3行のソースコードを1行にして置き換えます。

それでは置き換えてみましょう。
「検索する文字列」は「”ABC”」で、
「置換後の文字列」は「“A”:Range(“B1”) = “B”:Range(“C1”) = “C”」のようになります。

実行するとこのようになります。

1行を3行分のソースコードに置き換えることができました。
コードは長くなってしまいますが、置き換えの対象が多い場合には便利ですね。

⬛︎公式の説明

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

コード内のテキストを置き換える (VBA) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
ソースコードが多ければ多いほど
置き換えの方法は役に立ってきます。

さらに複数行へ置き換えることができたら
作業の効率化につながってきます。

是非参考にしてみてください。
それでは次回の記事でお会いしましょう。

普段エクセルで、検索や置き換えの機能を使用している方も多いのでないでしょうが。
対象の文字・数値を検索して、データの場所を確認したり
置き換えで文字・数値を変更したり便利な機能です。

この、検索・置き換えの機能ですがマクロVBAのソースコードでも
同様の機能を使用することができます。

さらにブック内のプロジェクト内やモジュール内、プロシージャ内など
対象を絞って検索・置き換えができるので是非参考にしてみてください。

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

⬛︎検索をする

まず、検索からみていきましょう。

・検索メニューを表示する

検索するにあたって検索メニューを表示する必要があります。
メニューの表示方法として2通り存在します。

①メニューから表示する

まず、メニューから表示する方法です。
こちらはメニュー内の「編集」から「検索」を選択します。

②ショートカットキーを使用する

こちらの方が簡単に表示させることができます。
方法としてキーボードの「Ctrl」と「F」を同時押しすると表示させることができます。
では実際に検索してみましょう。

・検索する

まず検索したい文字・数値を「検索する文字列」に入力します。

そして「検索」を押すごとに対象の文字・数値を表示してくれます。

見本で下記のソースコードを用意しました。

Sub 置き換え見本()

Range(“A1”) = “ABC”

End Sub

方法として「検索する文字列」に検索したい文字を入力します。
今回は「ABC」を検索してみましょう。
「検索する文字列」に「ABC」を入力して「次を検索」を押してみます。

検査した結果はこのようになります。

「ABC」が選択されていますね。
ほかに「ABC」があった場合は「検索」を押すごとに「ABC」の文字列に位置を合わしてくれます。
これで対象の文字・数値があるか検索できますね。

⬛︎置き換えをする

今度は置き換えの方法をみていきましょう。

・置き換えメニューを表示する

置き換えも検索と同様にメニューを表示させる必要があります。
こちらも2パターンあるのでそれぞれ紹介したいと思います。

①検索メニューから切り替え

まずは先程の検索メニューから置き換えのメニュー画面に変更してみましょう。
検査メニュー画面の右側に「置換」というボタンがあります。

こちらを押していただくと下図のような画面になると思います。

この画面が置き換えのメニュー画面となります。

別の方法としてはメニュー内の「編集」から「置換」を選択しても
同様の画面が表示されます。

②ショートカットキーを使用する

こちらも検索と同様に簡単に表示させることができます。
方法としてキーボードの「Ctrl」と「H」を同時押しすると表示させることができます。
では実際に置き換えしてみましょう。

・置き換えをする

では実際に置き換えてみましょう。
「検索する文字列」のところに置き換え前の文字・数値を入力し、
「置換後の文字列」のところに置き換え後の文字・数値を入力して
「置換」を押すと文字・数値の置き換えができます。

では一例を紹介したいと思います。
今回は見本で「ABC」を「CBA」に変更したいと思います。

まず、「検索する文字列」に「ABC」を入力し、
「置換後の文字列」に「CBA」を入力します。

では「置換」を押してみましょう。
結果はこのようになりました。

「ABC」が「CBA」に置き換わっていますね。
こちらも検索と同様にほかに「ABC」があった場合は「置換」を押すごとに「ABC」を「CBA」に置き換えてくれます。

さらに置換の下にある「すべて置換」を押すと
文字通り、すべての検索に該当する文字列を置き換えてくれます。

⬛︎検索・置き換えの対象を選択する

これまでは通常の検索・置き換えの方法を紹介しました。
しかしソースコードは様々な場所に書き込めますよね。
例えばモジュールの中にも複数のプロシージャを作成できますしモジュール自体も複数追加できます。

そこでどの対象範囲で検索・置き換えするのか選択できるようになってます。

操作するところは検査・置き換えメニューの「対象」になります。

ここでは以下の3つが選択可能です。

・カレントプロシージャ
・カレントモジュール
・カレントプロジェクト

ではそれぞれの範囲を見ていきましょう。

・カレントプロシージャ

こちらは一つのプロシージャの検索・置き換えになります。
一つのプロシージャとは「sub プロシージャ名（）」から「End sub」にあたります。
なので一つのプログラム内の検索・置き換えを行います。

検索・置き換えを行う際は対象のプロシージャ内をクリックした後、
検索または置き換えボタンを押すと対象のプロシージャ内での処理となります。

・カレントモジュール

こちらはモジュール内の検索・置き換えを行います。
なのでモジュール内に複数のプロシージャがあるとすると
対象のモジュール内の全てのプロシージャのソースコードが対象になります。

・カレントプロジェクト

こちらは対象ファイル全てのソースコードが対象になります。
モジュールはもちろんのこと、ブック、シートに入力したソースコードが
全て検索・置き換え対象です。

⬛︎公式の説明

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

コード内のテキストを検索する (VBA) | Microsoft Learn

コード内のテキストを置き換える (VBA) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
検索・置き換えを活用できればプログラミングが
とっても楽になります。

特に一括で置き換えれるのは
ソースコードを変更したいときにはとても便利です。

さらに１行から複数行への置き換えの応用もまとめてますので是非参考にしてみてください。

【マクロVBA】1行のソースコードを複数行のソースコードに置き換える代用方法について ► 独学エクセル塾 (dokugakuexcel.com)

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

IFなどの条件分岐をしている場合や、On Errorでエラーになった場合の処理をしている場合などには
今回紹介する方法と相性がよく、指定した条件になったらプログラムを終了なんてこともできます。

見本の事例も紹介していますので是非参考にしてみてください。

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

⬛︎忙しい人向けのコピぺ用プログラム

・条件に当てはまる場合はプログラムを終了させる

Sub 条件の場合()

If プログラムをとめる条件 Then
MsgBox "プログラムを終了します"
Exit Sub
End If

'ここに処理プログラム
End Sub

・エラーが発生した場合はプログラムを終了させる

Sub エラーの場合()

On Error GoTo Error1
'ここに処理プログラム
Exit Sub

Error1:
MsgBox "プログラムを終了します"

End Sub

⬛︎構文の説明

Exit Sub

これだけです、
「Exit Sub」を実行した時点でプログラムは終了します。

⬛︎Exit Subの仕組みと特徴

構文を見てもらったらわかる通り「Exit Sub」のみで、実行中のプログラムを終えることができます。
通常、プログラムを終了させるのは「End Sub」ですよね。

しかし「End Sub」はプログラムの最終行になければいけません。
それでも条件によっては途中で終わらせたい場合がありますよね。

そこで使用するのが「Exit Sub」になります。
「Exit Sub」は最終行でなくても機能し、プログラムの実行を終わらせるとこができます。

機能自体は「End Sub」と同様なので、条件分岐やGotoと合わせて使用することが多いです。
では事例をみていきましょう。

⬛︎事例①:If Thenと合わせて、条件の元プログラムを終了する

では一つ目の事例です。
下図のシートをご覧ください。

B3に入力してある「数値①」にD3に入力してある「数値②」で割った値を
「F3」に出力しています。

簡単なプログラムですが、このようになっています。

Sub 数値①から数値②を除算()
Cells(3, 6) = Cells(3, 2) / Cells(3, 4)
End Sub

では実行してみましょう。
結果はこのようになりました。

計算出来ていますね。
では、数値②を空白にして実行してみましょう。

するとこのような画面が出てきます。

エラーが出ました。このエラーは文字通り「0で割ったことが原因で出るエラーです。
このエラー画面はVBAに慣れている人は見慣れているのでうまく対処できますが、
VBAを触ったことがない人がこの画面を見ると戸惑ってしまいます。

「デバッグ」を押すと出てくるプログラムに訳がわからなくわからなったりしたら
対応出来なくなるリスクを踏まえると、みんなに優しいプログラムとは言えませんね。

そこで「数値①」と「数値②」が空白だった場合、「数値①、②が空白です」というメッセージとともにプログラムを終了する方法を見ていきましょう。

使用するのは「If Then」になります。
使用方法については下記記事でまとめてますのでご覧ください。

では見本のプログラムをみていきましょう。

Sub 数値①から数値②を除算()

If Cells(3, 2) = "" Or Cells(3, 4) = "" Then
MsgBox "数値①、②が空白です"
Exit Sub
End If

Cells(3, 6) = Cells(3, 2) / Cells(3, 4)
End Sub

では「B3」と「D3」に数値が入ってない場合
で実行してみたいと思います。
するとこのようになりました。

「数値①、②が空白です」というメッセージと共に
計算をせずにプログラムが終了しています。

つまりIfの条件に当てはまり、メッセージボックスを表示させた後、
「Exit Sub」でプログラムを終了させたことになります。

これで、ある条件に該当した場合はプログラムを止めることができますね。

⬛︎事例②:エラー発生時にプログラムを終了させる

次にエラーが発生した際にプログラムを終了させる事例をみていきましょう。
エラーを検出する方法は「On Error」になります。

「On Error」を詳しい使用方法は下記記事をご覧ください。

【マクロVBAのエラー対策】エラーが発生したら指定行まで移動！エラーに負けないプログラムの作り方 ► 独学エクセル塾 (dokugakuexcel.com)

こちらは先に見本のプログラムを見てみましょう。

On Error Goto 任意ラベル
　　・
　　・
　　・
通常プログラム
　　・
　　・
　　・
Exit Sub

任意ラベル：

エラー時の処理

End Sub

このようになります。
「On Error」の後にある「Goto 任意ラベル」によって
エラーが起きた際は「任意ラベル」へ飛び、「End Sub」で終了します。

対してエラーが起きない通常の場合は「Exit Sub」で終わるようになります。

では先程の見本をご覧ください。
今回も空白の場合は「数値①、②が空白です」というメッセージを出したいと思います。

プログラムはこのようになります。

Sub 数値①から数値②を除算2()

On Error GoTo Error1
Cells(3, 6) = Cells(3, 2) / Cells(3, 4)
Exit Sub

Error1:
MsgBox "数値①、②が空白です"
End Sub

それでは実行してみましょう。

通常の場合はこちら、、、

狙い通り計算出来ています。

対して数値が空白の場合、、、

「数値①、②が空白です」が表示され、プログラムを終えてくれました。
これでエラーが起きた際のプログラム停止が可能になります。

⬛︎公式

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

Exit ステートメント (VBA) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
「End Sub」と違い「Exit Sub」はどこにでも配置でき、
Ifなどといった条件分岐や、「On Error」といったエラー時の
処置と相性がいいです。

複数人が触るシステムなどには入力し忘れをメッセージで出したりなど
活用法は様々です。

是非活用してみてください。

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

For Nextの記事についてはこちらから☟

【VBA知識 7】FOR…NEXTで指定した数値で繰り返し・ループ動作をする。 ► 独学エクセル塾 (dokugakuexcel.com)

For Nextの繰り返し処理が多い場合はデバッグは大変ですよね。
Ｆ8を連打して実行するのも不便ですし、ブレークポイントを使用しても
処理するプログラム行は手動で実行しないといけません。

そこで今回はFor Nextの変数の数値を任意の数値に変え、途中から実行する方法を紹介します。
それでは見ていきましょう。

■見本のプログラム

まず、本記事の内容を紹介するにあたり、見本のプログラムを用意しました。
下図をご覧ください。

3行目から25行目まである、B・C列の数値の和をE列に出力したいと思います。
見本でプログラムを作成しました。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

では「F5」を押して全実行してみましょう。
結果はこのようになります。

狙い通り数値1と2を足すことができました。
では本題に移りたいと思います。

下図をご覧ください。

仮に15列目までは確認が取れており、16行目から実行したいと思います。
方法としては2つあります。

内容は下記の通りです。

①イミディエイトウインドウを使用して変数を変更する
②変数の変更をプログラムに織り込む

悩んでない状態でこの記事をご覧になった方は
ForのAを16から開始すればいいと思うでしょうが
重複した繰り返し処理では本内容の技術が必要になってきます。

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

■イミディエイトウインドウを使用して変数を変更する

まずはイミディエイトウインドウを使用する方法についてです。
こちらは現在のプログラムを変更することなく、繰り返し処理の変数を変更できるので
おすすめです。

再度プログラムを見ていきましょう。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

まず繰り返し処理の開始位置まで実行します。
見本のプログラムでは「Cells(A, 5) = Cells(A, 2) + Cells(A, 3)」までですね。

現在のAは3からスタートなので最初の「3」になってます。

しかし今回は16行目から確認（デバッグ）したいので
繰り返し処理をすることなくA=16にしないといけません。

ここで使用するのはイミディエイトウインドウです。
まず、イミディエイトウインドウを表示します。

表示方法として「Ctrl + G 」または
メニューの「表示」から「イミディエイトウインドウ」を押します。

すると下図のようなウインドウが現れます。

この記事ではイミディエイトウインドウについて詳しくは表示しませんが
こちらで変数の変更が可能です。

今回は変数Aの数値を「16」に変更したいので
「A=16」とイミディエイトウインドウに打ち込みます。

そして「Enter」を押してみましょう。
結果はこのようになります。

繰り返し処理をしなくても変数を狙いの「16」にすることができました。
ではプログラムを全実行してみましょう。

16行目から実行できてますね。

この方法はプログラムの変更がなく、動作確認（デバッグ）後もプログラムを元に戻したりなど
手戻り作業がないのでとても便利です。

■変数の変更をプログラムに織り込む

次に変数の変更をプログラムに織り込む方法について紹介します。
こちらの内容はプログラム変更によって直接変更するため
イメージしやすいですが、間違った手順で実行すると無限ループになってしまうので注意が必要です。
イミディエイトウインドウでイメージしにくい方はこちらの方法をご活用ください。

では再度プログラムを見てみましょう。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

この状態だとAは3からスタートですが動作確認（デバッグ）ではAを16からスタートしたいとします。

つまりA=16をプログラムに組み込みます。

Sub 数値1と2の和()

Dim A As Long

For A = 3 To 25 Step 1
A = 16
Cells(A, 5) = Cells(A, 2) + Cells(A, 3)
Next A

End Sub

とてもシンプルですね。
しかしこのまま全実行すると無限ループになっています。

理由としてFor で　Aを3から25まで実行するはずですが
Aを16に置き換えて処理を終えてもAが再度16に置き換えるので
無限ループになる仕組みです。

なので動作確認（デバッグ）方法としてA=16まで実行した後は
A=16を無効または削除する必要があります。

無効または削除した後は全実行で構いません。

無事、16行目から実行できてますね。

⬛︎公式の説明

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

イミディエイト ウィンドウ (VBA) を使用する | Microsoft Learn

■まとめ

いかがだったでしょうか。
デバッグで繰り返し処理は曲者ですよね。

本記事の内容を活用して、動作確認（デバッグ）を効率よく実行してみてください。
変数を直接変更する方法を実行する場合は無限ループになってもいいように保存を先にしておいた方がいいです。

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

【マクロ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

■まとめ

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

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

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

そこで今回はプログラムを改行・次の行にわけることで
コンパクトに管理しやすいプログラムを作成する方法について紹介したいと思います。

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

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

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

内容としてB4からC15の範囲をコピーして
E4を先頭に貼り付けを行います。

さらにその中の条件として

①値のみ貼り付け
②貼り付けによる計算は行わない
③列と行を入れ替える

の条件を元に貼り付けを行いたいと思います。

■プログラムを改行・次の行に分ける

こちらを満たすプログラムを作成してみました。

Sub データのコピーペースト()

Range(“B4:C15”).Copy
Range(“E4”).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, Transpose:=True

End Sub

貼り付けの条件が多い為プログラムは長くなってしまい、
モニターを分割して表示していると1部隠れてしまいます。

これではプログラムの入力もしにくく、確認作業（デバッグ）時も手間がかかってしまいます。

では悪い例でEnterキーで改行してみましょう。
結果はこのようになります。

式が成り立たずに「コンパイルエラー」が発生してしまいました。
さらにプログラムも赤文字になり、エラー個所であることがわかります。

ここで本題の対策です。
使用するのは「　_(スペース＆アンダーバー）」です。

使用方法は改行したい位置で「”　_”」を入力します。
では見本のプログラムに組み込んでみましょう。

Sub データのコピーペースト()

Range(“B4:C15”).Copy
Range(“E4”).PasteSpecial xlPasteValues _
, xlPasteSpecialOperationNone _
, Transpose:=True

End Sub

長いプログラムを複数行にすることができました。

実際に打ち込んでもエラーになりませんね。
もちろん、この状態で実行することができます。

注意点として「’（アポストロフィー)」を用いてコメントを入力できるのは
最終行のみです。途中で入力してもエラーになってしまいます。

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

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

・コンパイルエラー　修正候補：行番号または行ラベルまたはステートメントまたはステートメントの最後

こちらのエラーは「_(アンダーバー）」の前に「　（スペース）」がないことが考えられます。
下図をご覧ください。

正常なプログラムは「　(スペース＆アンダーバー）」がセットで入力されていますが エラーが発生するプログラムは「(アンダーバー）」のみとなっています。

こちらの異常が発生した際は「　_(スペース＆アンダーバー）」のセットをご確認下さい

⬛︎公式の説明

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

Excel Visual Basic for Applications (VBA) リファレンス | Microsoft Learn

■まとめ

いかがだったでしょうか。
今回の見本はあまり長くありませんでしたが
使用する機能によっては、とても長くなるので今回の内容を参考にしてみてください。

Ifで条件分岐する際にAndを用いて複数使用する場合は長くなるので活用できますね。
次回は本内容の対称となる「プログラムを1行にまとめる方法」について紹介したいと思います。

次回の記事はこちらから☟

【マクロVBA知識 26】複数行のプログラムを1行・小数行にまとめて短縮する方法 ► 独学エクセル塾 (dokugakuexcel.com)

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

別の処理プログラムを読み取りたいと思ったことはないでしょうか。

ループを抜け出す際にも使用できます。

今回は、そんな時に使えるGoToについて説明します。

IFなどに合わせるととても便利です。

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

■GoTo の構造

まずは構造から見ていきましょう。

GoTo ○○

‘処理①

○○:

‘処理②

GoTo　○○の説明

GoToの後に飛ばしたい位置のラベル・名前を付けます。
「A」でも「1」でも「あ」でも構いません。

○○:の説明

プログラムを飛ばしたい先の前の行に入れます。
この時の○○はGoToでつけたラベル・名前と合わせます。
なのでGoTo TTT ですと　飛ばす先の前の行は「TTT:」となります。

上記の見本を見てみますと処理①飛ばして
処理②に飛ぶようになりますね。

こちらはIFのような条件分岐とは異なり、強制的に分岐が実行できます。

■実践

それでは実践です。2つのパターンを紹介していますので使い分けてください。

・通常時にプログラムを指定ラベル・位置まで飛ばす

下図のシートを用意しました。

B3にAかBを打つと・・・

「Aの処理」「Bの処理」が出力される仕組みを作ってみます。

仮に下図のようなプログラムを組んだとしましょう。

B3がAですとIFは条件に合わないためEnd Ifに飛ぶので「Aの処理」と出力されるようにしています。
しかし、B3がA以外だと「Bの処理」と1回出力されるものの
その後の「Cells(3, 4) = “Aの処理”」を読み込んでしまい、結果的に「Aの処理」となってしまいます。

つまり、Bの処理の時は「Cells(3, 4) = “Aの処理”」を飛ばさなくてはなりません。

ここでGoToを使用してみましょう！
Elseを使えば解決するのですが、見本なので使ってみます。

つまり「Cells(3, 4) = “Bの処理”」
を読み込んだ後にEnd Subまで飛ばしましょう。

つまり下図のようになります。

Sub Gotoの使い方()

If Cells(3, 2) <> “A” Then

Cells(3, 4) = “Bの処理”

GoTo 1

End If

Cells(3, 4) = “Aの処理”

1:

End Sub

これにより「Bの処理」を打ち込んだ後にEnd Subに飛ぶので
「Aの処理」で上書きすることはないです。

実行してもうまく機能してくれています。

・ループ中にプログラムを指定ラベル・位置まで飛ばす

さらにGoToはループ処理から抜け出すこともできます。

下記のようなプログラムがあったとします。

Sub ループから抜け出す()

Dim A As Long

For A = 1 To 100 Step 1

If Cells(A, 1) = “” Then
GoTo Loop終了
End If

Cells(A, 2) = Cells(A, 1) * 2

Next A

Loop終了:
End Sub

A列に「2」をかけた数値をB列に算出するプログラムです。

見本では１００行まで繰り返し実行するようになってますが、空白になったらプログラムを

終えるようにプログラミングしています。

仕組みとしてIFで条件分岐をしており、対象が空白なら

GoToで「Loop終了」に飛ぶようになってます。

「Loop終了」はEnd Subにつながっており、強制終了するようになってます。

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

ではGOTOを使用して発生するエラーとそれに対する対処法を説明します。

・コンパイルエラー：行ラベルが定義されていません

こちらはGOTOに対しての移動先が存在しない場合に発生するエラーです。

たとえは「GoTo ABC」というプログラムに対し、「ABC:」という移動先が必要です。

このようなエラーが出た方は移動先が入力されているか確認してみてください。

・コンパイルエラー：　修正候補：行番号　または　行ラベル

このエラーが表示された方はGoToを入力した際に表示されたかと思います。

GoToには多少の規制がありますので下記にまとめました。

①変数名やプログラムで使用する用語

こちらも知らなければエラーの原因となります。

例えば変数で使用される「Variant」や「String」などの名前で作成している場合や

条件分岐で使用する「If」や繰り返しで使用する「For」などで名前を付けている場合は

エラーになってしまいます。

上記のような用語を使用したい場合は何でもいいので文字・数値を加えてください。

例えば「GoTo Variant」であれば「GoTo Varianpt123」のように

文字・数値を付け加えると使用できます。

②使用できない記号が含まれている

名前に使用できない記号も存在します。

「スペース」のほかに「＠」「＆」「＃」などが含まれているとエラーになってしまいます。

私もすべて把握はしていませんが、エラーが発生した場合に

記号を含んでいる場合は取り除いてみてください。

■公式の説明

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

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

GoTo ステートメント (VBA) | Microsoft Docs

■まとめ

いかがだったでしょうか。

GoTOを使いこなせば処理方法を分岐できるようになり、
様々なパターンに対応できるようになります。

さらにはエラーが生じると指定位置まで飛ぶような方法もありますので

別の記事で説明したいと思います。

では次回の記事でお会いしましょう。記事はこちらから☟

【VBA知識 12】別のシートをアクティブ・選択する方法について ► 独学エクセル塾 (dokugakuexcel.com)