| 
    
     |  | ▼ビタミン太郎 さん: 
 先ず一番簡単なのは出力データをAA列からはじめるのをBA列からはじめるように変更することだと思います。入力項目が増えることが予想されるのに入力欄に余裕を残さないのは解せません。
 後は1行目にでも項目欄を作りこの項目名で検索して対応すると言うのはいかがですか?
 たとえば項目名を数字にしておいて
 For i = 1 To Range("A1").End(xlToRight).Column
 MyArray(Cells(1,i).Value) = i
 Next i
 
 Cells(MyRow,MyArray(27)).Value=Cells(MyRow,MyArray(1)).Value * 3
 
 ※追加した列にはダブらない数字を入力する
 
 >▼neptune さん:
 >お返事ありがとうございます!
 >
 >>何に使うか知りませんが、列の挿入そのものを止めるのが一番簡単と思います。
 >>ストリップデータと見せるためのデータを別に考えればよいだけです。
 >
 >実は今回質問したきっかけは、真の計算結果に必要な入力項目が今のところ完全に分かっておらず、新しい因子を見つけた時にその因子を入力項目に追加する必要が出てきてしまうからなんです。新たに入力しなければならない項目が増えたとき最終列に新項目を追加する必要が出てきてしまい、入力が面倒になったり表(ストリップデータ)が見づらくなってしまいます。
 >できれば入力項目の追加・変更がなくなるまでは、列挿入を想定したものを作りたいのですが・・なにかキーワードを教えていただけないでしょうか?
 >
 >>ストリップデータはデータ保管の為の物。
 >>見せる為のデータは↑で必要なものだけ抜き取って整形してやれば
 >>良いだけです。
 >>このような考え方は多量のデータを扱う際の基本的な考え方と思います。
 >
 >とても勉強になります。
 >入力項目に変更が無くなったときにストリップデータから見せるデータを抜き取る方法を使いたいと思います。今回はストリップデータの列の順番も入力項目→計算結果項目としたいと考えています。
 
 
 |  |