アルゴリズムで

質問

今エクセルにて簡単なデータ処理をしているのですが、どうしても浮かばないアルゴリズムがあるので、教えて下さい。
Excel2003　VBAにおいて、
A列にアルファベットが並んでいます。
B列、C列には適当な数値が入っています。
Do～LoopにてA列の空白欄までループを回していて、その中で決めたアルファベットが来た時（例えばF）に、そこから次の指定したアルファベット（例えばS）が来るまでB列のセルの数字とC列のセルの数字を足したものをD列のセルに記入します。
決めたアルファベットには規則性はないのですが、一度使った全てのアルファベットが終わるまで来ません。
具体的に描かせてもらうと、A～LまでK～Zまでが分かれており、A～Lはランダムに順に並んでおり、次に順にK～Zまではランダムに並び。全てのアルファベットが終わったら、またらA～Lまでランダムに並び、次にK～Zまで並びます。
これが、何回も続いています。

先の例えに準じて書かせていただくと、Fが来たらそこからB列とC列の計算を始めて、Sが来たらその計算を終える。
また、次にFが来たら、B列とC列の計算を始めてSが来たらその計算を終える。
と言うものです。

これに関して、どうしてもアルゴリズムが浮かびません。
y=1
Do Until Cells(y,1).Value = ""
If Cells(y,1).Value = "F" Then
…
End If
y=y+1
Loop
と考えたのですが、こうなるとFが来た時だけしか処理をしません。
ランダムに来るFからSの部分を計算するにはどうしたらよいでしょうか？
お知恵を拝借させて下さい。
お願いします。

回答No.3

30246kiku · ベストアンサー

> まだまだ勉強不足なので、私が考えていたIf文は上記のプログラムだと
> Cells(y,1).Value が "F"ならばそこだけが、bFound = Trueとなり、
> 結果的には
> A - False
> H - False
> E - False
> F - Trueへ - D列作成
> U - False

> Boolean型にすると変わってくるのでしょうか？

では、基本的な説明になるかどうか？ですが

変数は、誰かが書き換えなければ、その内容は変わりません。
データの型には影響されません。

> F - Trueへ - D列作成
> U - False

F の時に bFound を True にしていますが、その後 False にする人は誰でしょうか。
False にする人がいない間は True のままで居続けます。

というのも bFound を宣言しているのが、Do Until より前だから。

以下のような使い方したことがないので、嘘を言っているかもしれません。

bFound の宣言が、 Do Until の内側だったたら？

Do Until ・・・
　　Dim bFound As Boolean

　　・・・
Loop

なら、ループするたびに bFound が宣言され、デフォルト値に戻るのかも？
この辺りは分かりません。
（使う変数は事前に宣言しているので）

検証をお願いします。

で、説明になってたいましたか？

お礼

早速のお返事ありがとうございます。
Do Until ・・・
　　Dim bFound As Boolean
bFound = False

　　・・・
Loop
としてみたら、”F”を見つけた所だけが、計算されていました。
つまり、ループで回っている間に、TrueからFalseに書き換えられたのだと、わかりました。
では、
Do Until ・・・
　　Dim bFound As Boolean

　　・・・
Loop
としてみたら、結果はきちんと”F”から”S”まで計算されていました。

30246kikuさんのご説明でわかりました。
つまり、全体をFalseとしておいて、その中で”F”が来た時点で、それ以降をTrueに書き換えてしまう。
そして、Trueだったら計算させると言う事だと思いました。
僕の頭の中で、If文は分岐というイメージではなく、
ある状態が来たらその場で処理すると考えていました。
つまり、
If Cells(y,1).Value = "F" Then
●●●＝●●
ならその部分をだけを計算させる。と言う発想しかなかったです。

フローチャートを頭で浮かべながら考えてみると、なるほどと納得しました。

大変わかりやすいご説明、感謝しております。

回答No.2

30246kiku

＃１です

> Sが来たらその計算を終える

> Sが来た時では計算しておらず、Sの手前のアルファベットまでを計算していました
S の時も処理をするのであれば以下のようになるのでしょうか

　　If (Cells(y,1).Value = "F") Then
　　　　bFound = True
　　End If
　　If (bFound = True) Then
　　　　Cells(y,4).Value = Cells(y,2).Value + Cells(y,3).Value
　　End If
　　If (Cells(y,1).Value = "S") Then
　　　　bFound = False
　　End If

> 少しご説明いただけないでしょうか？

以下のような簡単な例で考えます。（FとSに注目して、その他は適当）
（右側はbFoundの値など）

A - False
H - False
E - False
F - Trueへ - D列作成
U - Trueなので - D列作成
J - Trueなので - D列作成
I - Trueなので - D列作成
S - Trueなので - D列作成 - Falseへ　※１
O - False
N - False

※１は上記に変更した場合

前回のものでは、
S - Falseへ　　（D列作成せず）

で説明になっていたでしょうか。

補足

ありがとうございます。
文の構造などは何となくわかっていたのですが、30246kikuさんのご説明で確信が持てました。

そこで、私がもう少しお聞きしたいのが、なぜ
　　If (Cells(y,1).Value = "F") Then
　　　　bFound = True
　　End If
ならそれ以降がTrueとして処理されているのですか？
まだまだ勉強不足なので、私が考えていたIf文は上記のプログラムだと
Cells(y,1).Value が "F"ならばそこだけが、bFound = Trueとなり、
結果的には
A - False
H - False
E - False
F - Trueへ - D列作成
U - False
J - False
I - False
…と考えていました。
Boolean型にすると変わってくるのでしょうか？
少し混同しています。
できれば、その当たりを多少ご説明いただけたら、理解が深まります。
よろしくお願いいたします。

回答No.1

30246kiku

アルゴリズムというか処理上の手続きのような気がします。

Dim bFound As Boolean

bFound = False
y=1
Do Until Cells(y,1).Value = ""
　　If (Cells(y,1).Value = "F") Then
　　　　bFound = True
　　Else If (Cells(y,1).Value = "S") Then
　　　　bFound = False
　　End If
　　If (bFound = True) Then
　　　　Cells(y,4).Value = Cells(y,2).Value + Cells(y,3).Value
　　End If
　　y=y+1
Loop

ではどうでしょうか。

補足

早速のお返事ありがとうございます。
このコードを試せていただいたのですが、申し訳ないのですが、少しご説明いただけないでしょうか？
単純に考えてしまうと、If文で”F”ならTrueとしますよね。
その後、”S”ならFalseにしますよね。
なのに、なぜ”F”から”S”までが、Trueとなるのですか？
あいにく、手元に本がないので、少々理解に苦しんでおります。

そして、残念ですが、このコードによると、Sが来た時では計算しておらず、Sの手前のアルファベットまでを計算していました。

この場合ですとどのように対処したらよいのでしょうか？