如何用vba计算工资「vb如何制作表格」

今天带来如何用vba计算工资「vb如何制作表格」，关于如何用vba计算工资「vb如何制作表格」很多人还不知道，现在让我们一起来看看吧！

劳动密集性企业有一个很重要的工资结算方法，那就是计件工资。

对于一些人员岗位不固定，计件金额不固定等情况下，工资的计算是一个十分麻烦的事情。

本文将介绍一个计件工资统计结算的解决方法。

上图为操作主页

几个功能按钮，和一个列表框，列表框内是分别不同生产线或者车间单元工作表。

这里制作了一个自动生成工作表的功能，如下图所示：

由于员工不是固定的，工作步序也不是固定的，如休实现不同工段，日期和生产型号款式进行人员添加，最终形成生产工资结算表。

新建工资表实际上是窗体中的一些信息，进行工作表的构建过程。

根据窗体表单中各控件的值，进行工作表内容的添加操作，重点问题在于对于工作表的不同单元格准确定位，并做一些公式添加和合并等。

最终效果如下图所示：

根据生成的结算表，我们将统计出某人在不同工段的生产工作，自动计算出其某月的工资。

如下图所示：

这样，就把非固定人员在非固定岗位进行的工作准确地统计出来了，解决了计件工资统计工作的一个麻烦。

十分适用于人员流动性大，工序复杂的工厂进行工资结算。

代码：

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) - 1If xArr(xi, sc) <> 0 Then '如果有计件'添加计件数s.Rows(4).Inserts.Range("A4").Value = xSheet.Names.Range("B4").Value = xArr(3, sc)s.Range("C4").Value = xArr(xi, sc)s.Range("D4").Value = xArr(xi, sc) * xArr(4, sc)End IfNext scEnd IfNext xiErase xArrSet s = NothingApplication.ScreenUpdating = TrueEnd Sub

本文示例是为解决实际问题而编写的，不过可以根据不同工厂需求进行扩展应用。

欢迎关注、收藏

---END---