私はデータシートを持っています。そこには、人々の名前と、彼らが働いた 1 日あたりの時間数が含まれています。各人の 1 日と 1 週間の勤務数を合計する必要があります。シートはこんな感じ
A B
Peter 8.000
Bob 4.000
Jane 3.000
Jane 4.000
一人一人が複数のエントリを持っており、上司は週単位または月単位でそれらを表示するように求めているため、他の人よりも最近残業したかどうかを追跡できます。
ここでJmaxとKingCronusに同意します。実際にはマクロは必要ありません。式でそれを達成できます。
非VBA
値が列 A と列 B にあると仮定しています。
=SUMPRODUCT((A:A="Jane")*(B:B))
VBA
それでもVBAが必要な場合は、これを使用できます
Sub Sample()
Dim sName As String
sName = "Jane"
Debug.Print Application.Evaluate("=SUMPRODUCT((A:A=" & _
Chr(34) & sName & Chr(34) & ")*(B:B))")
End Sub