一呼吸置いて、考えないでコピー、貼り付けって多いと思う。コピーした一部(部分的範囲)を変更する。したら、修正忘れがあったり、、なんて変なストーリーあったりしてね。ナルシスト的プログラムって言われてもたまには作ってみようよ。Subと、Not演算子を使用して、まとめました。項目が増えても、2ヶ所に処理を入れなくてOKです。コピー、一部変更プログラム極論でした。Subと、ループとArrayで配列を作成の知識のある人は作るかな。Subとコピーで作成するのかな。Subとデータとカウンタを増やすのかな。忘れそうなのが、データ増やしてカウンタを増やすことを忘れるパターン。ストップワードを入れて判断する方法もある。Subこれだと、ループの回数は指定しないで、"STOP"までループ可能。こっちも参考にしてみてね。オイオイ、そりゃないでしょ。Ctrl+Vでプログラム書いてるんですよね。※フィールド名が違うだけなので、コピーしてフィールド名を修正するかな普通。プログラムの追加が発生します。フィールドが追加になったから、ショウガナイヨネ、これは。Controlsコレクションでまわしてみます。インデックスでコントロールを参照することもできます。コレクションの最初の項目を参照します。切り替える方法も1つの手です。あっ、これが三流君のうわさのクセね。ループのカウンタでまわしたがるってヤツね。偉そうなこと語ってて、これかよ。Each版に修正するよ。変更の少ないプログラムで済みますね。何か読者の心に残れば、うれしいです。*私の独り言をうまく消化してくださいね。手前味噌プログラム発表したいよねのKen3でした。Array関数で配列を作って、処理をまとめてみました。出来高の処理で、同じIf文を使って同じような処理を行ってます。三流以外の普通のプログラマーなら、処理をまとめます。関数を使用して、処理をまとめてみたいと思います。作成したのが↓こんな感じです。テストで残したかったので、コメントにした。変数BOXを文字列で初期化します。↑BOX(x)を使用して、条件文を変更しました。↑ここは、変わりなく、単純に親タグからSTRONGを探してます。