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

エクセルマクロ・VBA基礎編フォローアップ ベーシック
出現回数を数える。CountIf関数がやっていることをマクロで書くと？

仲村　修治さんの投稿

(投稿ID: 1658)

多くの方が書いていますが、シンプルな書き方が参考になりました。
Sub sisomaki()
    Dim siso
    Dim nomi
    Dim kanpyo
    Dim gyo
    For gyo = 4 To 33
        If Range("C" & gyo).Value = "しそ巻き無料" Then
            siso = siso + 1
        ElseIf Range("C" & gyo).Value = "飲みもの無料" Then
            nomi = nomi + 1
        ElseIf Range("C" & gyo).Value = "かんぴょう巻き無料" Then
            kanpyo = kanpyo + 1
        End If
    Next
    Range("F4").Value = siso
    Range("F5").Value = nomi
    Range("F6").Value = kanpyo
End Sub

2015/09/03 09:06