レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

受講生さんの投稿

(投稿ID: 3070)

Sub nantoka()
Dim goukei
Dim gyo
Dim migi

For migi = 4 To 6
goukei = 0
For gyo = 4 To 18
If Range("C" & gyo).Value = Range("E" & migi) Then
goukei = goukei + 1

End If
Next
Range("F" & migi).Value = goukei
Next
End Sub

お世話になります。
Range("F" & migi).Value = goukei
のプログラムを書くときに、
NextとNextの間に書くことが、
自力で書くときに迷います。
homeshift↓↓↓で選択するとき
最初のForNext構文が完成させたときに、
出力先を書くことで、別物と判断している
みたいで、ワンポイントアドバイス
よろしくおねがいします。

2017/05/22 22:37

小川慶一さんのコメント

(コメントID: 4523)

受講生さん:

動画で言うと、何分何秒あたりの動きのことでしょうか？

Sub nantoka()
    Dim goukei
    Dim gyo
    Dim migi
    
    For migi = 4 To 6
       goukei = 0
        For gyo = 4 To 18
            If Range("C" & gyo).Value = Range("E" & migi) Then
                goukei = goukei + 1
            
            End If        
        Next
        Range("F" & migi).Value = goukei
    Next  
End Sub

> お世話になります。
> Range("F" & migi).Value = goukei
> のプログラムを書くときに、
> NextとNextの間に書くことが、
> 自力で書くときに迷います。
> homeshift↓↓↓で選択するとき
> 最初のForNext構文が完成させたときに、
> 出力先を書くことで、別物と判断している
> みたいで、ワンポイントアドバイス
> よろしくおねがいします。

2017/05/23 03:27

受講生さんのコメント

(コメントID: 4524)

お世話になります。
8149の質問に8151回答がきました。その回答を受けて
動画で言うところの10:00からです。
自力で書くときに、少し迷ってしまい、
出力のプログラムを選択をせずに
次のステップに行って、しまいます。
やはり、慣れるしかないのでようか。
このような、ミスをなくすために
ワンポイントアドバイスよろしくおねがいします。

2017/05/23 04:03

小川慶一さんのコメント

(コメントID: 4525)

受講生さん:

一歩引いた視点で、部品単位で、「それぞれの部品が、要は何をしようとしているのか？」と考えてみましょう。

for next構文で「ハナコ」する前の状態は、以下ですね。

Sub nantoka()
    '変数宣言'[1]
 
    '変数の初期化     '[2]
    '数える           '[3]
    '数えた結果を出力 '[4]

End Sub

いただいたコードで言えば、[2], [3], [4]はそれぞれ以下の箇所です。

[2]

goukei = 0

[3]

For gyo = 4 To 18
        ....
    Next

[4]

Range("F4").Value = goukei

これを「ハナコ」したわけです。ということで、以下。

Sub nantoka()
    '変数宣言'[1]

    'for文のカウンター用変数を宣言
    'for ...
        '変数の初期化     '[2]
        '数える           '[3]
        '数えた結果を出力 '[4]
    'next

End Sub

すると、以下の形になりますね↓。

Sub nantoka()
    Dim goukei
    Dim gyo
    Dim migi
     
    For migi = 4 To 6
        goukei = 0
        For gyo = 4 To 18
            If Range("C" & gyo).Value = Range("E" & migi) Then
                goukei = goukei + 1
             
            End If       
        Next
        Range("F" & migi).Value = goukei
    Next 
End Sub

まずは、この説明でいかがでしょう？

2017/05/23 06:09