我々は、3年間で各従業員の総売上高を計算エクセルVBAでプログラムを見て下記。

状況:

Sales Calculator in Excel VBA

他の2枚ヶ月、従業員の異なる組み合わせ、および異なる販売数ではなく、同じ設定を持っています。そこExcelで各従業員の総売上高を計算する方法はいくつかありますが、我々はそれが非常に簡単にExcelのVBAで行うことができることがわかります。

ワークシート上のコマンドボタンを配置し、次のコード行を追加します。

1.まず、私たちは三つの変数と1つのワークシートオブジェクトを宣言します。私たちは、従業員を呼び出し、String型の一つの変数は、Integer型の一つの変数は、私たちが総呼び出し、私たちはシートを呼び出す1つのワークシートオブジェクト、およびInteger型の一つの変数は、私たちは私を呼び出します。

Dim employee As String, total As Integer, sheet As Worksheet, i As Integer

2.私たちは、2つの変数を初期化します。私たちは、ユーザからの従業員名を取得するために、InputBox関数を使用して値0の変数の合計を初期化します。

total = 0

employee = InputBox("Enter the employee name (case sensitive)")

Enter Employee Name

3.ユーザーは、従業員の名前を入力した後、我々はこの従業員の総売上高を計算します。ワークブックには3枚で構成されています。

私たちは、シートが将来的に追加されている場合は、まだ使用できるプログラムが欲しいです。そこで私たちは、次のコード行を使用します。

For Each sheet In Worksheets

4.私たちは、他のために次のループを開始します。

For i = 2 To 13

入力された従業員名が列Bの従業員名と一致した場合5.は、ExcelのVBAは、変数の合計販売数を追加します。次のコード行を追加します。

If sheet.Cells(i, 2).Value = employee Then

total = total + sheet.Cells(i, 3).Value

End If

6.両方のループを閉じることを忘れないでください。

Next i

Next sheet

7.最後に、メッセージボックスを使用して、従業員の総売上高を表示します。

MsgBox "Total sales of " & employee & " is " & total

8.テストプログラム。

デビッドのために結果:

Sales Calculator Result