用VBA制作的奖金表格
5星
- 浏览量: 0
- 大小:None
- 文件类型：XLSM
简介：
这款使用VBA编写的奖金表格工具能够高效地计算和管理员工奖金，支持自定义规则、批量处理数据及生成报告，极大提升财务部门的工作效率。
以下是使用Excel VBA编写的奖金系统代码片段：
```vba
Private Sub FenValueCalculate_Click()
Dim MyRow As Integer
Dim myrange As Range
Dim i As Integer, j As Integer, temp As Integer, num As Integer, 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 - 3
j = j + (7 * Cells(i, 3).Value) + (135 * (MyRow - 6))
temp = Int(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
```
这段代码用于计算奖金分值，并将结果填入相应的单元格中。
全部评论 (0)
