Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


31860 / 76734 ←次へ | 前へ→

【50117】Re:データ整理
発言  ichinose  - 07/7/10(火) 7:47 -

引用なし
パスワード
   ▼林 さん:
おはようございます。

まず、林さんが掲載されたコード・・・、
私がこの質問箱に参加して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行なのか? 等。


こういう記述が不可欠だと申し上げたのです。

検討してみてください。

5 hits

【50060】データ整理 07/7/6(金) 16:28 質問
【50061】Re:データ整理 Lindy 07/7/6(金) 16:51 発言
【50068】Re:データ整理 ichinose 07/7/7(土) 8:40 発言
【50095】Re:データ整理 07/7/8(日) 22:06 発言
【50099】Re:データ整理 07/7/9(月) 12:20 質問
【50117】Re:データ整理 ichinose 07/7/10(火) 7:47 発言
【50121】Re:データ整理 07/7/10(火) 10:54 発言
【50133】Re:データ整理 ichinose 07/7/10(火) 20:38 発言
【50138】Re:データ整理 Lindy 07/7/11(水) 10:15 発言
【50143】Re:データ整理 07/7/11(水) 12:02 お礼

31860 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free