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

エクセルマクロ・VBA基礎編フォローアップ ベーシック
勘定項目ごとに合計額を算出する。SumIf関数がやっていることをマクロで書くと？

garuruさんの投稿

(投稿ID: 3969)

初投稿となります。よろしくお願いします。問２で、下記の様なプログラムを書いてしましまた。一応やりたいことはできたのですが、「項目の分だけ変数を作ってelseifで処理する」という考えが真っ先に思いつき、しそ巻き無料の問題でも同じ構文でかいていました。

先生の正解に近づくにはロジカルシンキングの様なものが欠如しちるように思えるのですが、何かアドバイス頂けないでしょうか？
Sub enari()
Dim kek
Dim omi
Dim syu
Dim gre
Dim omihuku

Dim gyo

kek = 0
omi = 0
syu = 0
gre = 0
omihuku = 0

For gyo = 4 To 10
    If Range("I" & gyo).Value = "?????j??" Then
    kek = kek + Range("J" & gyo).Value
    
    ElseIf Range("I" & gyo).Value = "??????????" Then
    omihuku = omihuku + Range("J" & gyo).Value
    
    ElseIf Range("I" & gyo).Value = "?o?Y?j??" Then
    syu = syu + Range("J" & gyo).Value
    
    ElseIf Range("I" & gyo).Value = "???O" Then
    gre = gre + Range("J" & gyo).Value
    
    ElseIf Range("I" & gyo).Value = "????????" Then
    omi = omi + Range("J" & gyo).Value
    
    End If
Next

Range("D4").Value = kek
Range("D5").Value = syu
Range("D6").Value = Range("C6").Value
Range("D7").Value = gre
Range("D8").Value = omi
Range("D9").Value = omihuku

Range("E4").Value = Range("C4").Value + kek
Range("E5").Value = Range("C5").Value + syu
Range("E6").Value = Range("C6").Value
Range("E7").Value = Range("C7").Value + gre
Range("E8").Value = Range("C8").Value + omi
Range("E9").Value = Range("C9").Value + omihuku

End Sub

2018/06/23 10:56