Excel表格制作工资表并自动生成工资条的三种方法

创作时间:

作者:

@小白创作中心

Excel表格制作工资表并自动生成工资条的三种方法

引用

来源

https://docs.pingcode.com/baike/4772112

一、使用Excel公式、VBA宏、邮件合并可以帮助您在Excel中自动生成工资条。使用Excel公式可以快速计算工资、VBA宏可以自动化一些重复性任务、邮件合并可以将Excel数据导出到Word模板中生成工资条。下面将详细介绍使用这些方法的步骤。

使用Excel公式计算工资

1. 创建基本工资表

首先，您需要创建一个基本工资表，包括员工的基本信息（如姓名、工号、部门等）和工资信息（如基本工资、奖金、扣款等）。这张表格可以包含以下列：

员工姓名
工号
部门
基本工资
奖金
扣款
应发工资
实发工资

2. 计算应发工资和实发工资

使用Excel公式计算应发工资和实发工资。例如，应发工资可以用基本工资加上奖金来计算，公式如下：

=基本工资+奖金

实发工资可以用应发工资减去扣款来计算，公式如下：

=应发工资-扣款

将这些公式应用到您的工资表中，以便自动计算每位员工的应发工资和实发工资。

使用VBA宏自动生成工资条

1. 启用开发工具

首先，您需要启用Excel中的开发工具。点击“文件” -> “选项” -> “自定义功能区”，然后在右侧的列表中勾选“开发工具”选项。

2. 编写VBA宏

接下来，编写一个VBA宏，用于自动生成工资条。点击“开发工具”选项卡，然后点击“Visual Basic”按钮，打开VBA编辑器。创建一个新的模块，然后输入以下代码：

Sub GeneratePayslips()  

    Dim ws As Worksheet  
    Dim lastRow As Long  
    Dim i As Long  
    Dim payslip As Worksheet  
    Dim newSheetName As String  
    ' 获取当前工作表  
    Set ws = ThisWorkbook.Sheets("工资表")  
    ' 获取最后一行  
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row  
    ' 循环每个员工，生成工资条  
    For i = 2 To lastRow  
        newSheetName = ws.Cells(i, 1).Value & "工资条"  
        ' 添加新的工作表  
        Set payslip = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))  
        payslip.Name = newSheetName  
        ' 填充工资条内容  
        payslip.Cells(1, 1).Value = "员工姓名"  
        payslip.Cells(1, 2).Value = ws.Cells(i, 1).Value  
        payslip.Cells(2, 1).Value = "工号"  
        payslip.Cells(2, 2).Value = ws.Cells(i, 2).Value  
        payslip.Cells(3, 1).Value = "部门"  
        payslip.Cells(3, 2).Value = ws.Cells(i, 3).Value  
        payslip.Cells(4, 1).Value = "基本工资"  
        payslip.Cells(4, 2).Value = ws.Cells(i, 4).Value  
        payslip.Cells(5, 1).Value = "奖金"  
        payslip.Cells(5, 2).Value = ws.Cells(i, 5).Value  
        payslip.Cells(6, 1).Value = "扣款"  
        payslip.Cells(6, 2).Value = ws.Cells(i, 6).Value  
        payslip.Cells(7, 1).Value = "应发工资"  
        payslip.Cells(7, 2).Value = ws.Cells(i, 7).Value  
        payslip.Cells(8, 1).Value = "实发工资"  
        payslip.Cells(8, 2).Value = ws.Cells(i, 8).Value  
    Next i  
End Sub