|
▼林 さん:
おはようございます。
まず、林さんが掲載されたコード・・・、
私がこの質問箱に参加して6,7年経ちますが、こういうコードを拝見するのは
2,3度です。つまり、それほど構造化プログラミング可能なVBAでは、
稀な記述です。
N88Basicか昔のFortran辺りからVBAに来られたのですか?
たとしたら、構造化プログラミングを行うことを検討してください。
ここで「構造化プログラミングとは?」を記述するのは、大変ですが、
手始めにGOTO文を使わずに掲載されたコードを書き直すことです。
GOTOは使用しなくても同じアルゴリズムを作成することは出来ます。
GOTO文を使わない = 構造化プログラミング
ではありませんが、まず、GOTO文を使わないでコーディングすることから
やり直すことを検討してください。
今のコードでは、失礼ながら、解析しようという意欲が私にはありません。
また、ご自分でも半年も経てば、
この内容を理解するのに相当苦労するのではないですか?
例えば、半年後に仕様変更が発生した場合とか・・・。
>
>でA列にStressの値を入れて他のシートにCycle,Max_Stress,Min_Stressを書き出すというものです。それにプラスして抜き出したMax_Stress,Min_Stressの値と同じ行のB列の値も抜き出したいということです。
それから、前回の投稿で
>こういう情報処理の問題では、
>入力データの定義(例を必ず掲載)
>出力データの定義(例を必ず掲載)
>は不可欠ですよ!!
と申し上げましたが、これの説明がありません。
林さんコードを
シートのStress_DataのA列に
A
1 データ
2 166.39
3 196.79
4 329.79
5 176.34
6 361.07
7 108.17
8 50.77
9 255.72
10 275.02
11 290.88
12 9.67
13 211.91
14 31.41
15 117.06
16 145.83
17 242.3
18 157.78
19 44.57
20 211.02
21 66.27
22 170.65
23 18.61
24 93.57
25 206.91
26 128.57
27 393.29
28 138.46
29 333.24
30 79.75
31 116.2
というデータで実行すると、
シートCycle_vs_MaxSgに
A B C
1 Cycle Max_Stress Min_Stress
2 1 361.07 9.67
3 2 242.3 18.61
という結果が得られます。
この例を引用して
このStress_Dataのデータと
Cycle_vs_MaxSgの結果の因果関係を説明してほしかったのです。
結果の最大値と最小値が何故、 2行なのか? 等。
こういう記述が不可欠だと申し上げたのです。
検討してみてください。
|
|