匿名 さん:

>そこで、migiとgyoの値に注目しながら、紙に書いてみて確認しました。

すばらしい！

>最初に自力でやった時は、For～Next構文を1回しか使わずにやりました。

自力でできたならかなりのものです ヾ(´ー｀)ﾉ

>何だか、すごく手間のかかることをしていますね(^_^;)

そういう努力をしてから見本を見ると、また学びが深まりますよね。

For gyo = 4 To 33
	...
	...
	...
Next

の部分は一回きりで、ということでしたら、もっとエレガントな方法を発展１で学べます。
発展２では、さらにエレガントな方法を学べます。お楽しみに☆




>こんにちは。
>最初に自力でやった時は、For～Next構文を1回しか使わずにやりました。
>

>Sub count2()
>Dim siso
>Dim drink
>Dim kanpyo
>Dim gyo
>
>    For gyo = 4 To 33
>        If Range("C" & gyo).Value = Range("E4").Value Then
>            siso = siso + 1
>            
>        ElseIf Range("C" & gyo).Value = "Range("E5").Value Then
>            drink = drink + 1
>            
>        ElseIf Range("C" & gyo).Value = Range("E6").Value Then
>            kanpyo = kanpyo + 1
>            
>        End If
>
>        Range("F4").Value = siso
>        Range("F5").Value = drink
>        Range("F6").Value = kanpyo
>    Next
>   
>End Sub
>

>
>最初に解説動画を拝見した時は、
>「For～Next構文の中に、さらにFor～Next構文が入ると言うことだろか？」
>と考えました。
>そこで、migiとgyoの値に注目しながら、紙に書いてみて確認しました。
>最初は、migi=4、gyo=4からスタートし、gyoの1回目のループが終わった地点では、migi= 4、gyo= 33で、
>次にRange("F" & migi).Value = goukeiをした後、migi=5となり、migiの1回目のループが終わり、
>2回目のループは、migi=5、gyo=4から始まるのだと確認しました。
>何だか、すごく手間のかかることをしていますね(^_^;)

2015/02/09 08:58