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

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

受講生さんの投稿

(投稿ID: 5439)

初め動画をみずに自力でマクロを書いた際は、下記のようなマクロを書きました。うまくいった！と喜びましたが、小川先生の動画を見て、goukeiだけの変数でいけるんだと目から鱗でした。よりシンプルなマクロを作成できるよう精進していきます。
Sub hituyousuu()
    Dim goukei
    Dim goukei01
    Dim goukei02
    
    goukei = 0
    goukei01 = 0
    goukei02 = 0
    
    Dim gyo
    For gyo = 4 To 18
        If Range("C" & gyo).Value = "しそ巻き無料" Then
            goukei = goukei + 1
        ElseIf Range("C" & gyo).Value = "飲みもの無料" Then
            goukei01 = goukei01 + 1
        ElseIf Range("C" & gyo).Value = "かんぴょう巻き無料" Then
            goukei02 = goukei02 + 1
         
        End If
    Next
    Range("F4").Value = goukei
    Range("F5").Value = goukei01
    Range("F6").Value = goukei02

End Sub

2023/01/05 16:53