エクセルVBAでの販売電卓
我々は、3年間で各従業員の総売上高を計算エクセル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)")
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.テストプログラム。
デビッドのために結果: