■ - ( ・ω・)ノ＜しすてむ開発。ExcelのVBAの仕事の中で、 「現在動いているものですからサンプルに〜」 っといただいたものがあった。 コードを開いたら・・・・・・ Sub Edit_Proc2(Flg As Integer) Dim i As Long Dim j As Long Dim k As Long Dim m As Long Dim n As Long Σ(ﾟдﾟ )！？！？ ソースを開いてわずか1秒。 目の前がクラクラしました。 この後のソースを見るまでも無く断言できる。 (,,ﾟДﾟ)＜これはクサレコードだ たった7行ですが以下の状況により次のことが推測できます。 Function名が連番名になっている おそらくループカウンタが5つもある その全てが1文字変数である これらより 2より、このFunctionの行数はだいぶ長い 同じようなFunctionが複数ある サブルーチン化などされてようはずはない
