VBA記事13. WorkSheetFunction.Countif

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Sub sample11()

Dim x As Long

Dim y As Long

Dim Tantou As String

Tantou = Range("F1")

x = Application.WorksheetFunction.Match("*担当者*", Rows(1), False)

y = Application.WorksheetFunction.CountIf(Columns(x), Tantou)

MsgBox Tantou & "さんは" & y & "件、訪問してます"

End Sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

MatchとCountIfでは、（）内の並びが異なるので注意してください。

String は文字列を意味していますが、Stringの代わりにvariantでも大丈夫です。

上記のコードではまずｘに担当者の列を格納し（今回は５）、そして、CountIfで５行目のTantouの件数を数えています。

変数が多くなると混乱するかもしれませんが、多数の複雑な処理を行うには変数をたくさん使いますので、必ず、理解していってください。