VBA 文字列で検索し結果をカウントする

質問

すいません　VBAど初心者、猛勉強中の者です。
前回と同じようなご質問になりますが、応用が加わると途端に手が止まってしまいました。
どなたか教えて頂けませんでしょうか。

※子供と大人に好きな果物、さらに好きな季節を調査をした結果です。
　　 A列　　B列　　　　C列
1行：子供　 りんご　　　1.春
2行：大人　 バナナ　　　2.夏
3行：大人　 バナナ　　　夏物
4行：子供　 りんご　　　秋
5行：大人　 りんご　　　3.秋
6行：子供　 りんご　　　4.冬
7行：大人　 バナナ　　　春　　　
8行：子供　 りんご　　　4.冬
9行：大人　 りんご　　　2.夏
・・・以下1000行まで続く

というデータがあるとして、A列が「子供」かつB列が「りんご」と回答した人数は
出来たのです、以下の人数を出すことができません。

■教えて頂きたい内容
A列が「子供」かつB列が「りんご」、かつC列が"春"または"夏"の文字列を含む人数

以下のソースですと人数が「0人」となり正確にカウント出来ません。
前回と同じような内容で恐縮ですが、応用が加わると途端に手詰まりになってしまいます。
度々の質問で申し訳ございませんがどうぞよろしくお願い致します。

---------------------------

Sub CounterMacro()

Dim Counter As Integer
Dim EndCount As Integer
Dim Child_Apple As Integer
Dim Child_AppleSeason As Integer

Counter = 1
EndCount = Worksheets("Sheet1").Range("A1").End(xlDown).Row + 1

Child_Apple = 0
Child_AppleSeason = 0

Do While Counter < EndCount

If Worksheets("Sheet1").Range("A" & Counter).Value = "子供" Then

If Worksheets("Sheet1").Range("B" & Counter).Value = "りんご" Then

Child_Apple = Child_Apple + 1

End If

If Worksheets("Sheet1").Range("C" & Counter).Value = "*春* or *夏*" Then

Child_AppleSeason = Child_AppleSeason + 1　'■←教えて頂きたい内容

End If

End If

Counter = Counter + 1

Loop

MsgBox "「子供」かつ「りんご」" & Child_Apple & "人 " & "「子供」かつ「りんご」かつ「春まはた夏」" & Child_AppleSeason & "人 "

End Sub

回答No.4

tgook · ベストアンサー

こんばんわ。

2日前にサンプルで回答した者です。

2日前の回答の際、サンプルダウンロード用に設けたページに
新しく VBA文字列で検索し結果をカウントする というダウンロードリンクを設けました。

Book3.xls というサンプルがダウンロードできます。

今回の Book3.xls のソースコードにはコメントを入れました。

2日前のソースコードも、明日のこの時間まで、コメントを入れておきます。
コメント無しではちょっと難しかったかもしれませんね？

ご質問の内容を拝見しまして、感じたのは、処理をするために必要な変数を準備することはできてはいますが、「入れ子(ネスト)」という手法を理解できていないのかもしれないのが原因かな？と思いました。
また、どの位置でカウント変数にカウント処理をさせるかという判断をする為の経験が足りないのかもしれません。
経験はこれから積めば良いです。

ちなみに「入れ子(ネスト)」とは、1つのIf文の中にさらにIf文を入れ、その中にもさらにIf文を入れたりするという、幾つか確認したいことがある時に使えるコーディングの基本手法です。
Ifのみでなく、While文でも同様の事ができます。

「入れ子(ネスト)」に関しては以下URLに簡単に解説が載っています。
http://www9.plala.or.jp/sgwr-t/c/sec06-1.html

お礼

いろいろとご指導、本当にありがとうございます！
また遅いお時間にも関わらずご回答して頂き本当に感謝しています。

ソースもBook1、Book3、コメントの内容を見ながらソースを確認し
何の処理でどこでカウントされているのかまたif文の使い方も勉強させて頂きました。
今は3つ（A列、B列、C列）の条件しかないのですが、
仮にD列、E列まであった場合を想定し、
A列が「子供」でB列が「りんご」C列が「春or夏」D列が「●●」、
E列が「△△　or ■■」などで試してみたいと思います。

自分で作っていかなくては！！ですよね☆

またブレークポイントの使い方も教えて頂きありがとうございました。
表示(V) → ローカルウィンドウ(S) で ローカルウィンドウ を開き
変数に何の値が入っているのか確認するのですね！

先ほど早速試させて頂きました。
少しずつですがVBAが楽しくなってきました。

本当にありがとうございました！

回答No.5

layy

加算すべきタイミングが違うとなると、全体見直した方がいい。
ネスト３条件あるので８パターン以上。さらに春夏のあいまい条件、それぞれできちんと分岐しているか。

SELECT CASE文もある。

わざとデータを変えてその各パターン通過するよう確認、それから。

後は質問者の自己解決であって欲しい。解く力をつける。

お礼

そうですね、 条件分岐の文はいろいろありますよね。
1つづつ調べて、どんな時にどういった構文を使ったらBESTなのか、
Debug.Print で表の確認をしながら作っていきたいと思います。

>後は質問者の自己解決であって欲しい。解く力をつける。

そうですね、でないと成長ないですよね。
頑張ってみます、ありがとうございました！！

回答No.3

layy

If Worksheets("Sheet1").Range("C" & Counter).Value = "*春* or *夏*" Then
あいまい検索の意味でやっていると思いますが、
単に"*春* or *夏*"でカウントされているのではありませんか？。
Ｃ１に"春"、で＋１されているというのも間違いでは？。

Debug.Print Worksheets("Sheet1").Range("C" & Counter).Value
この文をＩＦ文の前に入れてみましたか？。

If セル＝春 Then
　カウント＋１
else
　If セル＝夏 Then
　　カウント＋１
　else
　endif
endif
は作りましたか？。

instr関数は知っていますか？。
余裕あれば、この関数のやり方を確認し、変更し試してみてください。

「できるかもしれない～」でやって、いざうまくいかないというのは、
よくある話です。できるのが偶然と思う方がいい。
質問になってしまうのでしょうし、時間ロスも多いです。

確実に確認できたところから積み上げると結果は早いです。

お礼

>Debug.Print Worksheets("Sheet1").Range("C" & Counter).Value

[Debug.Print ]の存在をしらず先ほど調べてみしました。
イミディエイトウィンドウに表示して確認していくのですね。
ありがとうございます。

>「できるかもしれない～」でやって、いざうまくいかないというのは、
>よくある話です。できるのが偶然と思う方がいい。

そうですね、まずは調べて「動くかもしれないと」書いてみる、
エラーの内容を見ながら修正し正解が出てくるかもしれないですよね。

>確実に確認できたところから積み上げると結果は早いです。

ありがとうございます。学習して積み上げる事でどんどん応用が
きくようになるのですよね。

ありがとうございました。

回答No.2

layy

春夏でなく春だけでやってみること

確認の間は、偽のときのカウントもとること

お礼

早速のご回答ありがとうございます。
もちろん、「春まはた夏」ではなく「春」つまり完全一致の
「1.春」や「2.夏」、「秋」などで試し、正確にカウントされることも確認済です。

>確認の間は、偽のときのカウントもとること

そうですね、試してみます。
ありがとうございました！

回答No.1

layy

前回の解決のうれしさの余り？、結果、自身は何も進歩してない？。それでいいのか？。

『＝０』ということは、初期値のままかカウントアップしてもカウントダウンあり、ここでは前者しかない。
つまりは春夏の判定で真になることが１度もない。春夏はあるので式自体がおかしい。

式の見直し。

１行ずつ処理させる、途中の変数値を検証する、デバッグを学ぶ。
それから。

人のコードを見るのは早い。

また４番目ができたり、機能変わったら悩むのか？。

同じ繰り返しにならないこと。