If Not c Is Nothing Then ～延々処理が続く～　End If

Question

質問というか相談というか
VBAで下記のようなコードをよく見ますし、私自身もこれで書いてます。

For i= 1 to 10
set c=Range.Find(”いろは")
If Not c Is Nothing Then

～
処理が続く
～

End If
Next i

cが見つからなかったら、さっさと次の i に進む場合の処理です。Ifの字下げがず～～っと延々続き、最後のNext iの直前でEnd If です。
・Exit For はあるのに 途中Next iは出来ない
・Goto 使って書くと「スパゲティプログラムだ」とか言われる
正直言って、上記コードとGotoスパゲティで可読性に差異があるとは思えません。何でもかんでもGotoはダメていう風潮がおかしいように思えます。

みなさんどうやって書いてますか？

WindFaller · Accepted Answer

こんにちは。

>Goto 使って書くと「スパゲティプログラムだ」とか言われる
どっちかというと、今は、ネットの中で、某VBA系の専門掲示板で、他人のコードを罵る時に使う用語ですね。Goto を使ったから、スパゲティーと短絡して使うのに、その言った本人は、エラー処理ひとつ施していない隙だらけのコードだということが多いのです。「スパゲティプログラム」は、◯◯の一つ覚えの用語だと思います。

>For i= 1 to 10
>set c=Range.Find(”いろは")
>If Not c Is Nothing Then

>～
>処理が続く
>～
>
>End If
>Next i

これって、よく見るとおっしゃっていますが、ひとつ例外に、いわゆる「ブルートフォースアタック（総当り制)」のコードがありますね。それは、Goto 以外に抜け出せる方法がありませんね。「深いネストはするな」という禁を犯しているのだから、Goto 以前のものがあります。（何に使うかはご存知だと思いますし、それをとやかく言う人はいないでしょう。)

これを書き換え、再帰を使うと良いとか言う人もいるのでしょうけれども、そういうのは、知識だけで実際にやったことがない人の話だと思います。「スパゲティ」とか知らない人に、比べさせれば、再帰などを使った方法は、遅くてダメ出しされるのは目に見えています。特殊な例ですが。

ご質問で、実際の私は、内容にもよりますが、
Private flg As Boolean

Sub Main()
On Error Goto ErrHandler
For i= 1 to 10
　Call subRutine(findTxt)
　If flg Then Exit For
Next i
Exit Sub

ErrHandler:
処理
End Sub
'ここの中身はテンプレート化してあります。
Private Sub subRutine(ByVal findTxt)　または、Public
'処理
End Sub

としているはずで、モジュールレベルの変数を、flg とし、サブルーチンの中に置いて、目的がかなったら、Flgは、Trueになって、ループから抜け出すようにします。

サブルーチン側では、End ステートメントを使用することさえもあります。（テンプレート化しているのは、Findメソッド、RegExpの正規表現、Sortメソッド、Dictionary とSortLists などがあります。[MZ-Tools 3.0]を使用)

GOTO は、構造化プログラムが登場した時に、排除するように言われてきたものです。古い時代の人は、GOTOに逃げたくなるのを抑えるために、「GOTO」を使うなって、肝に命じてきたのです。しかし、結局、Goto は、なくならなかったのは、一つには、ErrHandlerを使った、エラートラップのせいもあります。だから、Goto を書かないでErr.Raise (513～)で飛ばす方法がありますが、あまり使う人はいません。

ところで、
「スパゲティプログラム」という話に振られると、私は自信がありません。
読みやすさ（可読性)の対極になるものでしょうけれども、誰に対して言っているものか、ということです。私の大事にしている本の中に、アスキーの『QuickBASICプログラミング道場』(1991年)という本があります。

---引用
・本道場で推奨するプログラミングスタイル (p25～)

1.変数・定数・プロシージャーの命名法　（変数の型のサフィックスは使うな)
2.インデントを付けるべし
3.メインプロシージャは短くすべし
4.プロシージャは短くすべし
5.長いブロックはプロシージャーにすべし
6.汎用性のあるプロシージャーを作るべし
7.定数は活用すべし
8.GOTOは乱用（濫用)すべからず。●
　従来のBASICを使ってきた人の中には、GOTO文を多用する人がいるようだ。GOTO文はそのときは便利なように思うが、あとになってリストを眺めてみると、どこに飛んでいるか分からなくなることが多い。……わけがわからない最低の"スパゲティプログラム"になってしまう。
　【例】GOTO文をDOループに置き換える
----引用終わり

現代でも通用するというよりも、その言葉が生まれた時代背景がありますから、必ずしも、GOTOが問題だということではなさそうです。Goto を使わないということにこだわると、逆に墓穴を掘ることになります。

それと、DO ループにするというのは、DO ～ LOOPの間に緊張感（？)は生まれるけれども、無限ループを生み出しやすくなるのです。その頃はそれで良かったかもしれませんが、もうESCでは止まりません。今は必ずしも認められるものではありません。

それと、記録マクロを、そのままVBAプロシージャーに用いるのは、絶対にダメなのですよね。本当のスパゲティプログラムになってしまいます。ベタ書きになってしまうからで、一度、そういうコードを直してくれと言われましたが、怒りを抑えて、丁重にお断りました。

hallo-2007 · Answer

私も普通に、
If Not c Is Nothing Then

End If
使います。
＞Ifの字下げがず～～っと延々続き、最後のNext iの直前でEnd If です。
別に気になりませんが。
VBエディターでもきちんとインデントをつけてくれますし・・

siffon9 · Answer

> みなさんどうやって書いてますか？

Sub Sample()
　　
　　For i = 1 To 10
　　　　Set c = Range.Find("いろは")
　　　　If c Is Nothing Then GoTo CONTINUE

Do_Something

CONTINUE:
　　Next i

End Sub

処理があまりにも長い場合はNo1さんの様に別プロシージャにしますが、大抵は上記の様に書いています。
処理を行わない場合には早々に抜けた方が流れがわかり易いと思いますし、無用にインデントを深くしないという意味もあります。

> 何でもかんでもGotoはダメていう風潮がおかしいように思えます。

Gotoを使いすぎて流れを追いにくくなるのはもちろんダメですが、適切であれば寧ろ使用すべきではないでしょうか？

tatsu99 · Answer

通常は、あなたが、提示されたように書いています。
しかしながら、For と　next iの間の処理が異常に長い場合は、別プロシージャを作成し、それを呼び出しています。
for i = 1 to 10
call 別プロシージャ（又はFunction プロシージャの呼び出し）
next i
上記のようにすれば、別プロシージャでexit sub（又はexit function）を行えば、途中Next i　と同じことになります。

状況によっては、
for i = 1 to 10
set c=Range.Find(”いろは")
If Not c Is Nothing Then
call 別プロシージャ
end if
next i
とする場合もあります。

If Not c Is Nothing Then ～延々処理が続く～ End If

こんにちは。

私も普通に、

> みなさんどうやって書いてますか？

通常は、あなたが、提示されたように書いています。

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

If Not c Is Nothing Then ～延々処理が続く～　End If