/ / Excel VBAでの販売電卓

Excel VBAでの販売電卓

以下では、 Excel VBA それ 総売上を計算する 各従業員の3年間の

状況:

Excel VBAでの販売電卓

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

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

1。 まず、3つの変数と1つのワークシートオブジェクトを宣言します。 employeeという名前のString型の1つの変数、Integer型の1つの変数、totalと呼ばれる1つのWorksheetオブジェクト、1つのInteger型の変数をiと呼びます。

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

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

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

社員名を入力してください

3。 ユーザーが従業員名を入力した後、この従業員の総売上高を計算する必要があります。ワークブックは3枚のシートで構成されています。私たちは、シートが将来追加される場合にも使用できるプログラムが必要です。したがって、次のコード行を使用します。

For Each sheet In Worksheets

4.別のFor Nextループを開始します。

For i = 2 To 13

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

If sheet.Cells(i, 2).Value = employee Then
    total = total + sheet.Cells(i, 3).Value
End If

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

    Next i
Next sheet

7.最後に、msgboxを使用して従業員の総売上を表示します。

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

8.プログラムをテストします。

デビッドの結果:

販売計算機の結果

また読む: