質問というか相談というか
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はダメていう風潮がおかしいように思えます。
みなさんどうやって書いてますか?
No.1
- 回答日時:
通常は、あなたが、提示されたように書いています。
しかしながら、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
とする場合もあります。
No.2
- 回答日時:
> みなさんどうやって書いてますか?
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を使いすぎて流れを追いにくくなるのはもちろんダメですが、適切であれば寧ろ使用すべきではないでしょうか?
No.4ベストアンサー
- 回答日時:
こんにちは。
>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プロシージャーに用いるのは、絶対にダメなのですよね。本当のスパゲティプログラムになってしまいます。ベタ書きになってしまうからで、一度、そういうコードを直してくれと言われましたが、怒りを抑えて、丁重にお断りました。
いつもありがとうございます。
ErrHandlerは、私にとってはまだ使ったことの無い未知の領域です。確かにGotoと似てますね。私は若い頃からBasicには興味があり、当時Gotoの全盛期でした(笑)
Subを分ける、モジュールレベル変数を使う、思い切って短く切ってみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
-
4
VBA 見つからなかった時の処理
Excel(エクセル)
-
5
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
6
VBA シート名が一致した場合の転記内容について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ノットイコールを教えて下さい
-
ソートにかかった時間を測りたい。
-
C言語でのUTF-8の文字列の処理...
-
異なるプログラミング言語を連...
-
Excelでのセル内容の高速消去方法
-
小数点を含む数値かどうか判断...
-
VBS でプログラムを先頭から再試行
-
絶対パスの取得について
-
自作プログラムが止まる
-
ページの識別をクエリでやらせ...
-
DoEvents関数って何?
-
win10で、正確な待ち時間の作り方
-
EXCELが高速に動く、PCを教えて...
-
実行時のCPU使用率を増やしたい
-
win32apiでの動画出力
-
C言語 時刻差分の算出方法
-
wavelet変換のソフト
-
SQLの速度をあげるには・・・
-
vb2008より、ファイル読み込み...
-
符号付きにすべきか、符号なし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでのセル内容の高速消去方法
-
win10で、正確な待ち時間の作り方
-
DoEvents関数って何?
-
小数点を含む数値かどうか判断...
-
SQLの速度をあげるには・・・
-
ナップザック問題?をエクセル...
-
Excel VBAにて、2GB超の点群デ...
-
Excel(VBA)でSetTimer関数を使...
-
If Not c Is Nothing Then ~延...
-
ノットイコールを教えて下さい
-
基本情報技術者試験詳しい方へ...
-
絶対パスの取得について
-
Excel VBA データ削除の高速化
-
C言語で、文字とか入力されなく...
-
WebBrowserの読み込み待ちの処...
-
プログラム上のCPU稼働率低減に...
-
Excel VBA での処理時間計測結...
-
C言語 時刻差分の算出方法
-
.netからexcel操作の処理速度が...
-
WindowsMessage(ウィンドウメッ...
おすすめ情報