excel vba制作的一个奖金系统:各个计算薪金的窗体;Private Sub FenValueCalculate_Click()
Dim MyRow As Integer
Dim myrange As Range
Dim i As Integer
Dim j As Integer
Dim temp As Integer
'Dim num As Integer
Dim t As Integer
Set myrange = Worksheets("10月调度").Range("A1").CurrentRegion
MyColumn = myrange.Columns.Count
MyRow = myrange.Rows.Count
'计算分值
j = 0
t = 0
For i = 4 To MyRow
j = j + 7 * Cells(i, 3).Value + 135 * (MyRow - 3)
temp = j * 0.8
t = t + Cells(i, 5).Value
Next i
For i = 4 To MyRow - 3
Cells(i, 6).Value = Round(temp / t, 2)
Next i
Me.TextBox4.Value = Round(temp / t, 2)
End Sub