本文将以制衣厂计件工资计算为例，来进行一个简单的工资表统计方法。
操作界面如下图所示：
黄色区域为下拉列表，选择姓名后，自动计算出相应人员的工资，由于人员不一定在固定岗位，所以，这里对不同岗位进行一个遍历，以确定每个人不会遗漏。
实际上，工资表有很多个，也就是每个工段都会出一张考勤记录，计算工资的时候会在每个考勤记录表中，进行搜索。
打印工资表：
上述内容可实现每次选择并打印一个人的工资记录。
下面就需要一个更加方便的操作，打印多个，或所有工资的工资记录明细。
如下，表单可以实现，任意选择工人，然后打印结果。
工资表如下图：
实际上这样的工资结构是很简单的一种方式。
代码：
Private Sub SelectSheetList(xSheet As Worksheet, xStr As String)'查询姓名 款式表内容Application.ScreenUpdating = FalseDim S As WorksheetSet S = ActiveSheetDim xArr, xi As LongDim ir As Long, ic As Long, sc As LongxArr = xSheet.Range("A1").CurrentRegionir = xSheet.Cells(xSheet.Rows.Count, 1).End(xlUp).Rowic = 1For 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 = xSheet.Name S.Range("B4").Value = xArr(3, sc) S.Range("C4").Value = xArr(xi, sc) S.Range("D4").Value = xArr(xi, sc) xArr(4, sc) End If Next sc End IfNext xiErase xArrSet S = NothingApplication.ScreenUpdating = TrueEnd Sub
计件工资是劳动精细化的一个缩影，但也充分体现了资本主义压榨劳动者的方式有多么用心，当然了，资本社会嘛，人人都默认的一种行为就变成了一个正常的事情。
欢迎关注、收藏
---END---
