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

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

鈴木優子さんの投稿

(投稿ID: 1514)

自力で書いた時は　直前の問題まで使っていた instrを使っていました(^^ゞ
応用力が足りませんね。。。
回答の動画をみて あんなにあっさりできるなんて　びっくりでした。
Sub rensyu2()
    Dim count1
    Dim count2
    Dim count3
    Dim gyo
    For gyo = 4 To 33
        If (InStr(Range("C" & gyo).Value, "しそ巻き無料")) > 0 Then
            count1 = count1 + 1
        ElseIf (InStr(Range("C" & gyo).Value, "飲みもの無料")) > 0 Then
                count2 = count2 + 1
        ElseIf (InStr(Range("C" & gyo).Value, "かんぴょう巻き無料")) > 0 Then
                count3 = count3 + 1
        Else
        
        End If
        

    Next
        Range("F4").Value = count1
        Range("F5").Value = count2
        Range("F6").Value = count3
    
End Sub

2015/07/12 08:51