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

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

勘定項目ごとに合計額を算出する。SumIf関数がやっていることをマクロで書くと？

受講生さんの投稿

(投稿ID: 2741)

お世話になっています。一つ聞きたいことがあります。
下記のように、 Range("D" & hida).Value = goukeiをfor next (migi)の構文内で実行すると、今月支払いのない成人祝いの欄は「空白」で表示されます。
構文外にこの式を置くと「0」と表示されるのですが、構文内に置くとなぜ「空白」になってしまうのでしょうか。
[code]Sub rensyu3()
Dim goukei
Dim migi
Dim hida
For hida = 4 To 9
goukei = 0
For migi = 4 To 10

If Range("I" & migi).Value = Range("B" & hida).Value Then
goukei = goukei + Range("J" & migi).Value
Range("D" & hida).Value = goukei
End If
Next
Next
End Sub[/code

2016/12/15 20:11

ゲストさんのコメント

(コメントID: 4172)

受講生さん:

比較できるように、まずは、両方の例を並べて投稿いただけますか。

>お世話になっています。一つ聞きたいことがあります。
>下記のように、 Range("D" & hida).Value = goukeiをfor next (migi)の構文内で実行すると、今月支払いのない成人祝いの欄は「空白」で表示されます。
>構文外にこの式を置くと「0」と表示されるのですが、構文内に置くとなぜ「空白」になってしまうのでしょうか。
>

Sub rensyu3()
>    Dim goukei
>    Dim migi
>    Dim hida
>    For hida = 4 To 9
>        goukei = 0
>        For migi = 4 To 10
>            
>            If Range("I" & migi).Value = Range("B" & hida).Value Then
>                goukei = goukei + Range("J" & migi).Value
>                Range("D" & hida).Value = goukei
>            End If
>        Next
>    Next
>End Sub

2016/12/15 20:21

受講生さんのコメント

(コメントID: 4173)

受講生さん:

上のコードは「空白」になり、下のコードは「０」になります。
ご確認宜しくお願い致します。

>お世話になっています。一つ聞きたいことがあります。
>下記のように、 Range("D" & hida).Value = goukeiをfor next (migi)の構文内で実行すると、今月支払いのない成人祝いの欄は「空白」で表示されます。
>構文外にこの式を置くと「0」と表示されるのですが、構文内に置くとなぜ「空白」になってしまうのでしょうか。
>

Sub rensyu3()
>    Dim goukei
>    Dim migi
>    Dim hida
>    For hida = 4 To 9
>        goukei = 0
>        For migi = 4 To 10
>            
>            If Range("I" & migi).Value = Range("B" & hida).Value Then
>                goukei = goukei + Range("J" & migi).Value
>                Range("D" & hida).Value = goukei
>            End If
>        Next
>    Next
>End Sub

Sub rensyu3()
>    Dim goukei
>    Dim migi
>    Dim hida
>    For hida = 4 To 9
>        goukei = 0
>        For migi = 4 To 10
>      
>            If Range("I" & migi).Value = Range("B" & hida).Value Then
>                goukei = goukei + Range("J" & migi).Value
>            End If
>        Next
          Range("D" & hida).Value = goukei
>    Next
>End Sub

2016/12/16 02:04

ゲストさんのコメント

(コメントID: 4175)

受講生さん:

結論を書くと、以下のとおりです。

・上のマクロでは、 hida = 6 のとき、一度も Range("D" & hida).Value = goukei が実行される
・下のマクロでは、 hida の値に関わらず、 Range("D" & hida).Value = goukei は必ず一度実行される

まずはそのくらいで。
ピンとこないようでしたら、じっくり動作確認を。上のマクロで、 hida = 6 のときの動きを、ステップインモードで慎重にレビューしてください。([F8] で実行）

>受講生さん:
>
>上のコードは「空白」になり、下のコードは「０」になります。
>ご確認宜しくお願い致します。
>
>>お世話になっています。一つ聞きたいことがあります。
>>下記のように、 Range("D" & hida).Value = goukeiをfor next (migi)の構文内で実行すると、今月支払いのない成人祝いの欄は「空白」で表示されます。
>>構文外にこの式を置くと「0」と表示されるのですが、構文内に置くとなぜ「空白」になってしまうのでしょうか。
>>

Sub rensyu3()
>>    Dim goukei
>>    Dim migi
>>    Dim hida
>>    For hida = 4 To 9
>>        goukei = 0
>>        For migi = 4 To 10
>>            
>>            If Range("I" & migi).Value = Range("B" & hida).Value Then
>>                goukei = goukei + Range("J" & migi).Value
>>                Range("D" & hida).Value = goukei
>>            End If
>>        Next
>>    Next
>>End Sub

>
>>

Sub rensyu3()
>>    Dim goukei
>>    Dim migi
>>    Dim hida
>>    For hida = 4 To 9
>>        goukei = 0
>>        For migi = 4 To 10
>>      
>>            If Range("I" & migi).Value = Range("B" & hida).Value Then
>>                goukei = goukei + Range("J" & migi).Value
>>            End If
>>        Next
>          Range("D" & hida).Value = goukei
>>    Next
>>End Sub

2016/12/16 02:18