用vba做工资系统如何用excel做计件工资 _生活百科

计件工资，实际上就是劳动密集型工作的一种发放方式，由于其数据量大，且记录容易出错，在计算工资的时候也需要投入许多时间，所以有必要使用简单的方法来实现工资计算结果来。

文章插图
本文将以制衣厂计件工资计算为例，来进行一个简单的工资表统计方法。
操作界面如下图所示：

文章插图
黄色区域为下拉列表，选择姓名后，自动计算出相应人员的工资，由于人员不一定在固定岗位，所以，这里对不同岗位进行一个遍历，以确定每个人不会遗漏。
实际上，工资表有很多个，也就是每个工段都会出一张考勤记录，计算工资的时候会在每个考勤记录表中，进行搜索。
打印工资表：

文章插图
上述内容可实现每次选择并打印一个人的工资记录。
下面就需要一个更加方便的操作，打印多个，或所有工资的工资记录明细。
如下，表单可以实现，任意选择工人，然后打印结果。

文章插图
工资表如下图：
实际上这样的工资结构是很简单的一种方式。

文章插图
代码：
Private Sub SelectSheetList(xSheet As Worksheet, xStr As String)
'查询姓名款式表内容
Application.ScreenUpdating = False
Dim S As Worksheet
Set S = ActiveSheet
Dim xArr, xi As Long
Dim ir As Long, ic As Long, sc As Long
xArr = xSheet.Range("A1").CurrentRegion
ir = xSheet.Cells(xSheet.Rows.Count, 1).End(xlUp).Row
ic = 1
For xi = LBound(xArr, 1) To UBound(xArr, 1)
If xArr(xi, ic) = xStr Then '如果找到了
For sc = 3 To UBound(xArr, 2) - 1
If xArr(xi, sc) <> 0 Then '如果有计件
'添加计件数
S.Rows(4).Insert
S.Range("A4").Value = https://www.08ts.cn/xSheet.Name
S.Range("B4").Value = https://www.08ts.cn/xArr(3, sc)
S.Range("C4").Value = https://www.08ts.cn/xArr(xi, sc)
S.Range("D4").Value = https://www.08ts.cn/xArr(xi, sc) * xArr(4, sc)
End If
Next sc
End If
Next xi
Erase xArr
Set S = Nothing
Application.ScreenUpdating = True
End Sub
计件工资是劳动精细化的一个缩影，但也充分体现了资本主义压榨劳动者的方式有多么用心，当然了，资本社会嘛，人人都默认的一种行为就变成了一个正常的事情。
关注、收藏
---END---
【用vba做工资系统如何用excel做计件工资】Tags：