| |
▼林 さん：
おはようございます。
まず、林さんが掲載されたコード・・・、
私がこの質問箱に参加して6,7年経ちますが、こういうコードを拝見するのは
2,3度です。つまり、それほど構造化プログラミング可能なＶＢＡでは、
稀な記述です。
Ｎ８８Ｂａｓｉｃか昔のＦｏｒｔｒａｎ辺りからＶＢＡに来られたのですか？
たとしたら、構造化プログラミングを行うことを検討してください。
ここで「構造化プログラミングとは？」を記述するのは、大変ですが、
手始めにＧＯＴＯ文を使わずに掲載されたコードを書き直すことです。
ＧＯＴＯは使用しなくても同じアルゴリズムを作成することは出来ます。
ＧＯＴＯ文を使わない ＝ 構造化プログラミング
ではありませんが、まず、ＧＯＴＯ文を使わないでコーディングすることから
やり直すことを検討してください。
今のコードでは、失礼ながら、解析しようという意欲が私にはありません。
また、ご自分でも半年も経てば、
この内容を理解するのに相当苦労するのではないですか？
例えば、半年後に仕様変更が発生した場合とか・・・。
>
>でA列にStressの値を入れて他のシートにCycle,Max_Stress,Min_Stressを書き出すというものです。それにプラスして抜き出したMax_Stress,Min_Stressの値と同じ行のB列の値も抜き出したいということです。
それから、前回の投稿で
>こういう情報処理の問題では、
>入力データの定義（例を必ず掲載）
>出力データの定義（例を必ず掲載）
>は不可欠ですよ！！
と申し上げましたが、これの説明がありません。
林さんコードを
シートのStress_DataのＡ列に
Ａ
１ データ
２ 166.39
３ 196.79
４ 329.79
５ 176.34
６ 361.07
７ 108.17
８ 50.77
９ 255.72
１０ 275.02
１１ 290.88
１２ 9.67
１３ 211.91
１４ 31.41
１５ 117.06
１６ 145.83
１７ 242.3
１８ 157.78
１９ 44.57
２０ 211.02
２１ 66.27
２２ 170.65
２３ 18.61
２４ 93.57
２５ 206.91
２６ 128.57
２７ 393.29
２８ 138.46
２９ 333.24
３０ 79.75
３１ 116.2
というデータで実行すると、
シートCycle_vs_MaxSgに
Ａ Ｂ Ｃ
１ Cycle Max_Stress Min_Stress
２ 1 361.07 9.67
３ 2 242.3 18.61
という結果が得られます。
この例を引用して
このStress_Dataのデータと
Cycle_vs_MaxSgの結果の因果関係を説明してほしかったのです。
結果の最大値と最小値が何故、 ２行なのか？ 等。
こういう記述が不可欠だと申し上げたのです。
検討してみてください。
|
|
ichinose
- 07/7/10(火) 7:47 -
