EXCEL打印工资条

合集下载

又细又长的工资单如何打印在一张纸上？

又细又长的工资单如何打印在一张纸上？
如下图所示，在Excel中，这种又细又长的表格，如何打印在一张纸上？
在Excel中，打印又细又长的工资单，可能需要打印在多张纸上，那怎么将工资单打印在一张纸上呢？本期将通过Excel和Word联动使用的方法，教大家如何将工资单打印到一张纸上的操作方法。

1、在Excel中，按【Ctrl+A】组合键，全选表格，然后按【Ctrl+C】组合键将表格复制，如下图所示。

2、在Word文档中，按【Ctrl+Alt+V】组合键，弹出“选择性粘贴”对话框，如下图所示。

3、选择“带格式文本”选项，单击“确定”按钮，如下图所示。

4、执行操作后，即可带格式粘贴表格，如下图所示。

5、在“布局”功能区的“页面设置”面板中，单击“栏”下拉按钮，在列表框中选择“两栏”选项，如下图所示。

6、执行操作后，即可将表格分栏显示在文档中，效果如下图所示。

7、选中表头，如下图所示。

8、在第2个“布局”功能区中，单击“数据”下拉按钮，在弹出的列表框中，选择“重复标题行”选项，如下图所示。

9、执行操作后，即可在第2栏的顶部添加表头，效果如下图所示。

至此，即可将工资单在一张纸上打印出来。

excel 工资表逐条打印

标题：如何使用Excel逐条打印工资表正文：一、介绍在企业或机构中，工资表是每个员工所关心的重要文件，工资表的准确性和保密性对于员工和公司都非常重要。

而在打印工资表时，逐条打印是一种常见的操作方式，可以有效保护每位员工的隐私信息，也方便了员工查阅自己的工资信息。

本文将介绍如何使用Excel逐条打印工资表。

二、准备工作1. 确认工资表格式：在开始逐条打印工资表之前，需要确认工资表的格式和排版是否符合要求，包括工资信息的列数和行数、字体大小、表格边框等。

2. 确认打印设置：在Excel中，需要确认好打印区域和打印设置，包括纸张大小、打印方向、打印比例等。

3. 检查工资数据：在打印之前，需要先检查工资数据的准确性和完整性，确保每位员工的工资信息都已经录入并无误。

三、逐条打印步骤1. 选择所需行数：首先在Excel中选中需要打印的工资信息所在行，可以通过点击行号来选中多行数据。

2. 打开打印设置：点击Excel工具栏中的“文件”选项，选择“打印”以进入打印设置页面。

3. 设置打印区域：在打印设置页面中，可以设置打印区域，选择“选定区域”以确定只打印选中的工资信息行。

4. 预览打印效果：在设置完打印区域后，可以预览打印效果，确认每位员工的工资信息是否符合要求。

5. 调整打印设置：根据需要，可以对打印设置进行调整，包括纸张大小、打印方向、打印比例等，以保证打印效果最佳。

6. 执行打印操作：确认好打印设置后，点击“打印”按钮，即可开始逐条打印工资表，每位员工的工资信息都会分别打印出来。

四、注意事项1. 隐私保护：在逐条打印工资表时，要特别注意保护员工的隐私信息，避免工资信息在打印过程中泄露。

2. 打印质量：确保打印机的墨盒充足、纸张状态良好，以保证打印出的工资表清晰可读。

3. 打印顺序：在逐条打印工资表时，要按照相应的顺序进行打印，确保每位员工的工资信息都能准确对应。

五、结束语逐条打印工资表是一种常见的操作方式，可以有效保护员工的隐私信息，也方便了员工查阅自己的工资信息。

工资表模板的多种导出与打印方式

工资表模板的多种导出与打印方式工资表是企业管理中一个重要的组成部分，它记录了员工的工资信息，对于企业管理和个人薪资管理都起到了至关重要的作用。

在工资表的管理中，导出和打印工资表是很常见的需求。

本文将介绍工资表模板的多种导出与打印方式，并探讨它们的优缺点。

一、Excel 导出与打印工资表Excel 是一种常用的办公软件，它提供了丰富的功能和灵活的操作方式，非常适合进行工资表的导出与打印。

使用 Excel 导出和打印工资表的步骤如下：1. 导出工资表：可以将工资表数据以表格的形式导出为Excel 文件。

在 Excel 中，可以将工资表的各项数据进行编辑、计算和格式调整，便于后续的数据分析和报表生成。

2. 打印工资表：在 Excel 中，可以选择要打印的工资表范围，并设置打印选项，如纸张大小、打印方向等。

通过打印预览功能，可以预览并调整打印效果，确保打印出的工资表符合要求。

Excel 导出与打印工资表的优点是操作简单，灵活性高，可以根据需要进行数据处理和格式调整。

缺点是需要有一定的 Excel 使用基础，对于大量数据的处理可能会有一定的性能影响。

二、PDF 导出与打印工资表PDF 是一种常用的电子文档格式，具有跨平台、易读易打印等特点，非常适合进行工资表的导出和打印。

使用 PDF 导出和打印工资表的步骤如下：1. 导出工资表：可以将工资表数据以 PDF 格式导出，生成一个独立的 PDF 文件。

在导出过程中，可以选择是否包含表格边框、设置页眉页脚等选项，以满足不同的导出需求。

2. 打印工资表：在 PDF 阅读器中打开导出的工资表 PDF 文件，选择打印选项，如打印范围、打印布局等。

通过打印预览功能，可以查看并调整打印效果，确保打印出的工资表质量良好。

PDF 导出与打印工资表的优点是方便共享和传输，具有良好的兼容性和可读性，适合于电子档案的保留和归档。

缺点是编辑和格式调整的功能相对较弱，不如 Excel 灵活。

Excel实现批量打印工资条

Excel实现批量打印工资条每月月初那几天时间（发工资时间）是财务MM最为苦恼的几天，她们除制作工资报表外还要制作工资条（每人一条），由于我公司员工有190多人，按照传统的复制、粘贴、排列方法她们要进行很长版面的重复操作，如果其中有某个数据要改动，牵涉的版面范围就很广，工作量很大。

我“自告奋勇”为她们制作了一套工资条批量打印的模板，解决了她们的苦恼，这种方法也适用与大多数企业，下面向大家介绍。

财务MM给我提供了工资条格式（图1），由于工资条比较窄小，如果用Word的邮件合并功能，按默认设置只能一张纸打印一个工资条，浪费纸张不说，效率也不高，如果将工资条复制几份放在同一A4纸页面的话对邮件合并的数据源则要进行Excel实现批量打印工资条每月月初那几天时间（发工资时间）是财务MM最为苦恼的几天，她们除制作工资报表外还要制作工资条（每人一条），由于我公司员工有190多人，按照传统的复制、粘贴、排列方法她们要进行很长版面的重复操作，如果其中有某个数据要改动，牵涉的版面范围就很广，工作量很大。

我“自告奋勇”为她们制作了一套工资条批量打印的模板，解决了她们的苦恼，这种方法也适用与大多数企业，下面向大家介绍。

财务MM给我提供了工资条格式（图1），由于工资条比较窄小，如果用Word的邮件合并功能，按默认设置只能一张纸打印一个工资条，浪费纸张不说，效率也不高，如果将工资条复制几份放在同一A4纸页面的话对邮件合并的数据源则要进行多纵列排版，数据源有变动需要修改的时候也很不方便，而且工资条里含有“金额大写”项目，用邮件合并功能也比较麻烦，经过综合考虑和比较，决定用Excel2003来制作带金额大写且能满幅面批量打印的工资条模板。

经询问得知工资报表为每月必做，决定采用调用工资报表数据来实现。

通过测量，发现一张A4纸纵向放4个工资条比较合适。

一、修改工资报表为方便数据调用和发放工资时能“对号入座”，我们在报表前插入两列，分别命名为“序号”和“工资条编号”，在A3单元格里输入=row()-2，在B3中输入=row()+2005049998，同时选中A3和B3单元格，往下拖动填充句柄到最后一行以产生能自动调整的序号和工资条编号。

EXCEL自动生成工资条方法

EXCEL自动生成工资条方法2020EXCEL自动生成工资条方法方法一：宏命令控制法对于Office 家族的宏功能，大家或许早有耳闻，但由于需要使用VBA 进行编程，所以宏一直让许多人望而却步，不过要使用一个现成的宏就简单多了。

首先打开要处理的Excel 表，选择“工具→宏→Visual Basic 编辑器”，在编辑器左边的窗口中用鼠标双击Sheet1，会出现代码编辑窗口，在代码编辑窗口输入如下代码(为了不破坏原有的工资表，所以这里采用了将Sheet1 的内容复制到Sheet2 的方法，所以最后的生成结果是在Sheet2 中显示)：Sub MakeSalaryList()Dim i As IntegerDim endrow As Integer '测出数据的最后一行endrow = Sheet1.Range("a__").End(xlUp).Row - 1 '把标题贴过去Worksheets(1).Range("1:1").Copy (Worksheets(2).Cells(1, 1)) For i = 3 To endrow'把每条数据抬头贴过去Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1)) '把数据贴过去Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1)) Next iEnd Sub关闭编辑器，将自动返回到刚才的Excel 表，选择“工具→宏→宏”，将弹出如下对话框：点击“执行”，将在Sheet2 生成如Gz-2 所示的转换成工资条，怎样，不复杂吧。

当然，如果你的表总Sheet2 已经输入了别的内容，就可以将他复制到Sheet3 来生成，代码修改也很简单，把其中的Sheet2 修改成Sheet3 就可以了，其它代码不变。

打印工资条的方法

一、利用排序法
首先将原工资表全部复制到sheet2中，然后在sheet2中输入如图2的数字（偶数比奇数小1）
图1
图2
然后复制第一行的标题到第12行，然后利用“填充柄”（鼠标变成实心的黑色十字）填充到第21行
图3 鼠标光标指向数字“1”，然后再选择升序排序
图4 就会得到如图5所示效果
图5 最后删除第一行和第Ⅰ列，此时利用排序方法就做好了工资条效果。

二、利用空行插入，复制填充标题实现工资条效果
先复制原工资表到新的sheet2中，然后在sheet2中输入如图6所示的任意数字（如图6），再利用填充柄填充到第11行（如图7）
图6
图7
然后再选中如图8所示区域，在中选择选择空值，确定
8
图8
再如图9所示在“插入”选项选择“插入工作表行”得到如图10效果
图9
图10
图11
选择复制标题栏，随后选中数据区域再一次利用“查找和选择-定位条件-空值”，确定，粘贴（Ctrl+V）（如图12）删除多余行和列，就完成了
图12。

用Excel轻松打印工资条、台账

锦州１１１）２０３
摘
要：本文介绍用Ｅｃｌｘｅ解决实际工作中制作工资条、台账时遇到的问题。
文献标识码：Ａ
ＵｓｆＥｘｅｓｌｉｔＳｌｒｎｃｕｎｅｏｃｌＥａｉｙＰｒｎａａｙａｄＡｃｏｔ
图３最终效果
方法三：用定位、入功能利插
第一步，在工资表的第三行右侧空白列中，输入任意数字，然后选中该单元格和下面紧挨的单元格，双击右下角的 “ 填充
柄 ”使之一直填充到工资表的结束行（图４。，如）
入数字 … ，２’第二行记录右侧输入数字 “ ”选中这两个单元格，４，
第四步，选择表头行，执行“ 编辑” 复制” 选中Ａ列中需一“ ；加表头的数据区域，执行菜单命令 “ 编辑 ” “ 一定位” “ 一定位条件 ”在打开对话框中，择 “ ，选空值 ” 单击 “ 定 ” 这时会选，确，中刚插入的空行；执行“ 再编辑 ” 粘贴”将表头行粘贴在每一“ ，行数据上面；删除右侧输入数字的列，这样工资条就最后完成了
１用Ｅｃｌ印工资条、ｘｅ打台账的方法
这里笔者介绍给大家三种方法（文中例子使用Ｅｃｌ０３ｘｅ２０
制作表格）。
方法一：Ｂ编程ＶＡ
利用Ｅｃｌｘｅ中的ＶＢ编辑器，编写程序代码，实现在两个相邻职工间插入工资表头。但此方法对于没有编程经验的操作者会感到不适应，故不推荐使用，也不详细介绍。方法二：利用Ｅｃｌｘｅ排序功能首先，将工资表（如图１中的标题行，）也就是将包含 “ 工号” 、 “ 姓名” “ 、岗位工资”等息自际题行整行剪切粘贴到工资条最后的空白行中，然后选中这行标题，用填充俩向下拖动复制标题行，复制的行数与职工数相同即可。接着，在表格第一行记录右边列输

【会计实操经验】巧用excel打印工资条、成绩条

只分享有价值的知识点，本文由梁博会计学堂精心收编，大家可以下载下来好好看看！
【会计实操经验】巧用excel打印工资条、成绩条
常有朋友问“如何打印成绩条”这样的问题，有不少人采取录制宏或VBA的方法来实现，这对于初学者来说有一定难度。

出于此种考虑，我在这里给出一种用函数实现的简便方法。

此处假定学生成绩保存在Sheet1工作表的A1至G64单元格区域中，其中第1行为标题，第2行为学科名称。

1.切换到Sheet2工作表中，选中A1单元格，输入公式：
=IF(MOD(ROW()，3)=0，″″，IF(0MOD?ROW()，3(=1，sheet1！
Aū，INDEX(sheet1！$A：$G，INT(((ROW()+4)/3)+1)，
COLUMN())))。

2.再次选中A1单元格，用“填充柄”将上述公式复制到B1至G1单元格中；然后，再同时选中A1至G1单元格区域，用“填充柄”将上述公式复制到A2至G185单元格中。

至此，成绩条基本成型，下面简单修饰一下。

3.调整好行高和列宽后，同时选中A1至G2单元格区域(第1位学生的成绩条区域)，按“格式”工具栏“边框”右侧的下拉按钮，在随后出现的边框列表中，选中“所有框线”选项，为选中的区域添加边框(如果不需要边框，可以不进行此步及下面的操作)。

4.同时选中A1至G3单元格区域，点击“常用”工具栏上的“格式刷”按钮，然后按住鼠标左键，自A4拖拉至G186单元格区域，为所有的成绩条添加边框。

按“打印”按钮，即可将成绩条打印出来。

工资表格式范本excel

工资表格式范本excel1.EXCEL工资表模板并且还可以转成工资条打印的模板现在假定有10人，标题从A列到C列结束，第1行是标题，从A列到C列是字段名，第2行到第11行是这10个人对应的工资资料。

步骤：第一步、选中第2行到第11行之后在上方插入然后新的第2行到第10行就是空白了，而人员就到了第12行到第21行了。

第二步、把第一行的标题向下填充到第2行到第11行，然后标题就是第1行到第11行。

第三步、在D列把第1行到第11行标注为1、3、，，，，，，奇数填充一直到21。

第四步、在D列把第12行到第21行标注为2、4、，，，，，，偶数填充一直到20。

第五步、选中所有数据按照D列排序就可以实现了。

2.EXCEL的工资表表格的设置有哪些呢步骤01设置标题选中A1单元格，点击格式中的“合并后居中”按钮，将“英才公司4月工资发放表”设置居中。

在右键菜单选择“设置单元格格式”→“字体”，将标题的字体、字号和字形进行设置。

用同样的方法，对表中其他部分进行调整。

步骤02设置表格边框现在，我们需要给表格添加横竖线，让这堆文字更像一个表格。

选中A1单元格，按着Shift键不放再单击F18单元格，就选中了整个表格。

在右键菜单中选择“设置单元格格式”→“边框”，对边框线进行设置，然后点击确定按钮完成设置。

步骤03设置颜色为了突出显示某一部分的文字或数字，可以通过改变字体或单元格的颜色来实现。

选择需要突出显示的部分，在“设置单元格格式”→“填充”中设置单元格的背景颜色等。

3.工资条格式本工资簿包含两张工资表。

第1张工资表就是工资清单，称为"清单"。

它第一行为标题行包括职工姓名、各工资细目。

第2张工作表就是供打印的表，称为"工资条"。

它应设置为每三行一组，每组第一行为标题，第二为姓名和各项工资数据，第三行为空白行。

就是说整张表被3除余1的行为标题行，被3除余2的行为包括职工姓名、各项工资数据的行，能被3整除的行为为空行。

Excel打印工资条表头(一行两行三行表头)代码

Excel中添加打印工资表头及删除打印工资表头一、当工资表表头行数为一行时：(1) 执行“工具→宏→Visual Basic编辑器”命令，进入“Visual Basic编辑”窗口。

执行“插入→模块”命令，插入一个模块（如“模块1”），双击“模块1”在窗口右边展开“模块1（代码）”编辑窗口，输入如下代码：Sub 添加打印工资表头()''描述：从第二行数据开始，给每一行添加第一行的数据表头'========下面的代码适合Excel2000/Excel2003版======='xustudio = [A65536].End(xlUp).Row - 2 '根据A列的文字，判断数据的行数'xu = 2'For zz = 1 To xustudio'studio = zz + xu'Rows("1:1").Select'Selection.Copy'Rows(studio).Select'Selection.Insert Shift:=xlDown'xu = xu + 1'Next'Application.CutCopyMode = Falsexustudio = edRange.Rows.Count - 2 '根据使用的区域，判断数据的行数xu = 2For zz = 1 To xustudiostudio = zz + xuIf edRange.Rows.Count >= ActiveSheet.Rows.Count Then '判断是否到表格底部MsgBox "已到表格底部，无法添加表头！", , "提示"Exit SubElseApplication.ScreenUpdating = FalseActiveSheet.Rows("1:1").SelectSelection.CopyActiveSheet.Rows(studio).SelectSelection.Insert Shift:=xlDownxu = xu + 1Application.CutCopyMode = FalseEnd IfNextEnd Sub(2) 输入完成后，关闭VBA编辑窗口返回工作表状态，执行‘工具--宏--宏’中的‘添加打印工资表头’即可完成自动添加。

用EXCEL制作工资条的五种方法

用EXCEL制作工资条的五种方法制作工资条是许多企业和机构经常需要进行的一项工作。

Excel是一个功能强大的电子表格软件，可以用来创建和管理数据。

在制作工资条时，可以使用Excel的各种功能来简化和自动化计算和填充过程，提高工作效率。

下面介绍五种在Excel中制作工资条的方法：方法一：使用Excel的模板功能Excel提供了许多现成的模板，其中包括工资条模板。

在Excel中，可以通过点击"文件"->"新建"->"从模板创建"，然后在框中输入"工资条"来选择一个适合的模板。

选择后，可以按照模板中的格式填写工资信息即可。

方法二：使用Excel的函数功能Excel中有很多函数可以用于计算工资条中的各种数值，例如求和函数、平均函数、条件函数等等。

在制作工资条时，可以利用这些函数来自动计算各种数值。

例如，可以使用SUM函数来计算工资总额，使用AVERAGE函数来计算平均工资，使用IF函数来计算奖金等等。

方法三：使用Excel的数据透视表功能Excel的数据透视表功能可以帮助整理和分析大量的数据。

在制作工资条时，可以使用数据透视表功能来按员工进行分组，然后对各种薪资数据进行汇总和分析。

通过数据透视表，可以快速查看每个员工的薪资情况，并对薪资数据进行排序、筛选和计算。

方法四：使用Excel的条件格式功能Excel的条件格式功能可以根据预设的条件对单元格进行格式化。

在制作工资条时，可以利用这个功能来根据工资数值的大小设置不同的颜色，以便直观地展示员工的工资水平。

例如，可以设置条件格式，使大于一些数值的工资以红色显示，小于一些数值的工资以绿色显示。

方法五：使用Excel的宏功能Excel的宏功能可以记录和重放一系列的操作，可以用来自动化制作工资条的过程。

在制作工资条时，可以先手动进行一次填写和计算的过程，然后录制宏并保存。

excel打印工资条的几种方法

excel打印工资条的几种方法一、企业人员少的情况对于一些小企业或办公室类型的公司而言，公司总体人数不多，就算是每个人的工资条打成一张纸，也不会造成很大的浪费，所以可以简单设置让其每条记录打印在一张纸上，这是最简单快捷的方法。

这里利用的是类似于“页眉”的方式实现每一页打印后都有一个“标题行”，这样保证工资的明细项目在工资条上体现，然后每一个“标题行”下方跟一条记录，最后打印出的效果就是工资条了，具体操作如下：在Excel做好的工资表中，执行“文件”→“页面设置”命令，在打开的“页面设置”对话框中切换到“工作表”标签，单击“顶端标题行”右侧的按钮，在工作表中选择工资表的头部区域，然后单击回车键，使“页面设置”对话框，然后单击“确定”按钮使设置生效。

接下来单击“打印预览”按钮，使工作表呈打印预览状态，然后在“打印预览”对话框中单击“页边距”按钮，使打印预览对话框中显示出调整页边距的虚线，使用鼠标拖动“下边距”虚线至工作表第二行处，即最终效果为页面中显示的只有两行，一行是工资细目，一行是数据，接下来就可以打印，打印出的每页纸中就是一位员工的工资条了。

虽然这种打印工资条的方法是最简单、最安全、最快速的方法，但太浪费纸张了，如果公司人数稍微多一点，就不适合了。

二、巧用排序，轻松打印工资条工资条的最终结果就是一行工资明细目，一行员工对应的数据，通常做好的工资表都是只有第一行有数据工资细目，下面全部是数据，如果能从第二行开始，每一行的结尾都添加一行工资细目的数据即可。

这一点可以使用排序轻松实现，具体实现方法如下：假设当前工资表中有300行数据，显然使用第一种方法是行不通的。

首先复制第一行的工资细目数据，从300行之后的任一行粘贴，并使用填充柄拖动复制300行。

接下来在A列的前面插入两列，第一列使用填充柄输入序号，从1一直拉到N（本例操作时为1000，这个N可根据实际需求来，基本上只要大于工资表中数据的两倍即可），主要用来打印工资条后下次重新做工资时恢复表格顺序。

EXCEL打印工资条(很有借鉴意义)

EXCEL打印工资条(很有借鉴意义)使用Excel 做工资统计，是很多中、小企业都会做的，但是如何让工资条打印既快速又漂亮是很多人头痛的问题，下面就提供几种综合解决方案，有需要的朋友可以根据自己的实际情况选择一种方案来操作。

一、人少好办事对于一些小企业或者办公室类型的公司来说，公司全体人数也不多，少的几个人，多的也就十几、二十人的样子，即便是每个人的工资条打成一张纸，也不会造成什么大的浪费，所以我们可以简单设置让其每条记录打印在一张纸上，这样是最简单快捷的方法了。

这里利用的是一种类似的“页眉”的方式实现每一页打印后都有一个“标题行”，这样保证工资的明细项目在工资条上体现，然后每一个“标题行”下方跟一条记录，最后打印出的效果就是工资条了，具体操作如下。

在Excel 做好的工资表中，执行“文件”→“页面设置”命令，在打开的“页面设置”对话框中切换到“工作表”标签，单击“顶端标题行”右侧的按钮，在工作表中选择工资表的头部区域，然后单击回车键，然后单击“确定”按钮使设置生效。

选择工资表的头部接下来单击“打印预览”按钮，使工作表呈打印预览状态，然后在“打印预览”对话框中单击“页边距”按钮，使打印预览对话框中显示出调整页边距的虚线，使用鼠标拖动“下边距”虚线至工作表第二行处，即最终效果为页面中显示的只有两行，一行是工资细目，一行是数据接下来就打印吧，打印出的每页纸中就是一位员工的工资条了。

拖动下边距小提示：这种打印工资条的方法是最简单，最安全（不容易出错），最快速的方法，当然弊端就是太浪费纸张了，如果公司人数稍微多一点，就不太适合了，不过你可以试试下面的方法。

二、妙用排序，轻松打印工资条工资条的最终结果就是一行工资明细目，一行员工对应的数据，通常做好的工资表都是只有第一行有数据工资细目，下面全部是数据，如果能从第二行开始，每一行的结尾都添加一行工资细目的数据就好了。

这一点可以使用排序轻松实现，具体实现方法如何，就请接着往下看吧。

2020年最新员工工资条Excel模板完整版

%
合计
应扣金额
出勤栏
代缴费用
应发合计
迟到早退
病事假
旷工
社保
个税
其他
应扣合计
实发工资（元）
0
0
0
0
0
备注备注备注备注
员工工资条
工资条
姓名
月工资标
准
应发金额基本部分
岗位工资
考核工资
全勤奖
通讯补贴
岗位补贴
加班工资
其他
合计
绩效部分
绩效标准比例
业务量（元）
%
合计
应扣金额
出勤栏
代缴费用
应发合计
迟到早退
病事假
旷工
社保
个税
其他
应扣合计
实发工资（元）
0
0
0
0
0
工资条
姓名
月工资标
准
应发金额基本部分
加班工资
其他
合计
绩效部分
绩效标准比例
业务量（元）
%
合计
应扣金额
出勤栏
代缴费用
应发合计
迟到早退
病事假
旷工
社保
个税
其他
应扣合计
实发工资（元）
0
0
0
0
0
工资条
姓名
月工资标
准
应发金额基本部分
岗位工资
考核工资
全勤奖
通讯补贴
岗位补贴
加班工资
其他
合计
绩效部分
绩效标准比例
业务量（元）
岗位工资

VBA EXCEL中的工资条打印代码

，VBA EXCEL中的工资条代码：从工资表中自动生成工资条Public Const ROWSTART As Integer = 3Public GongZiBiao As StringSub MakeGongzitiao()Dim I, HJ1COL, HJ2COL, ZJCOL As IntegerscreenUpdateState = Application.ScreenUpdatingstatusBarState = Application.DisplayStatusBarcalcState = Application.CalculationeventsState = Application.EnableEventsdisplayPageBreakState = ActiveSheet.DisplayPageBreaks '注:这是工作表级的设置'关闭一些Excel功能使代码运行更快Application.ScreenUpdating = FalseApplication.DisplayStatusBar = FalseApplication.Calculation = xlCalculationManualApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = False '注:这是工作表级的设置For Each oMyVar In ThisWorkbook.Sheetssheetsnames = + " " + sheetsnamesNext oMyVarDim HJS(50) As IntegerDim hjcaption(50) As StringZJCOL = 0titlerow = 0XHCOL = 0GongZiBiao = ""XMCOL = 0For j = 1 To ThisWorkbook.Sheets.CountIf Sheets(j).Name <> "工资条" ThenSet XH = Sheets(j).UsedRange.Find("序号")If Not XH Is Nothing Thenlastcol = Sheets(j).UsedRange.Columns.Counttitlerow = XH.Row()XHCOL = XH.Column()hjcount = 0For I = 1 To lastcolIf InStr(Sheets(j).Cells(titlerow, I), "总") > 0 ThenZJCOL = IEnd IfIf InStr(Sheets(j).Cells(titlerow, I), "姓") > 0 ThenXMCOL = IEnd IfIf InStr(Sheets(j).Cells(titlerow, I), "合") > 0 Thenhjcount = hjcount + 1HJS(hjcount) = IEnd IfNext IIf hjcount * ZJCOL * titlerow > 0 ThenGongZiBiao = Sheets(j).NameExit ForEnd IfEnd IfEnd IfNext jIf titlerow * hjcount * ZJCOL * Len(GongZiBiao) = 0 ThenMsgBox "没有工资表或工资表不正确,请正确登记表工资表!", 16, "错误"EndEnd IfIf InStr(sheetsnames, "工资条") = 0 ThenThisWorkbook.Sheets.AddThisWorkbook.Sheets(1).Name = "工资条"For I = 1 To hjcounthjcaption(I) = "合计工资" & Trim(Str(I))Next Ititlerow = ROWSTARTElseSet gztxh = Sheets("工资条").UsedRange.Find("序号")If Not gztxh Is Nothing Thentitlerow = gztxh.Row()For I = 1 To hjcountIf Sheets("工资条").Cells(titlerow, I + 2) <> "" And Sheets("工资条").Cells(titlerow,I + 2) <> "工资总额" Thenhjcaption(I) = Sheets("工资条").Cells(titlerow, I + 2)Elsehjcaption(I) = "合计工资" & Trim(Str(I))End IfNext IElsetitlerow = ROWSTARTFor I = 1 To hjcounthjcaption(I) = "合计工资" & Trim(Str(I))Next IEnd IfEnd Ifhjcaption(I) = "工资总额"Sheets("工资条").Cells.Clearxhfirst = Application.WorksheetFunction.Min(Sheets(GongZiBiao).Columns(XHCOL))xhlast = Application.WorksheetFunction.Max(Sheets(GongZiBiao).Columns(XHCOL)) With Sheets("工资条").Cells.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.RowHeight = 23End WithJSS = 0For XH = xhfirst To xhlastSet THISROW = Sheets(GongZiBiao).Columns(XHCOL).Find(XH)With Sheets("工资条")If Not THISROW Is Nothing Then.Cells(titlerow + JSS * 7 - 1, 1).Value = "通城职高教职工工资条".Cells(titlerow + JSS * 7 - 1, 1).Font.Size = 18.Cells(titlerow + JSS * 7 - 1, 1).Font.Bold = TrueRange(.Cells(titlerow + JSS * 7 - 1, 1), .Cells(titlerow + JSS * 7 - 1, hjcount + 3)).Merge.Cells(titlerow + JSS * 7, 1).Value = "序号"If XMCOL > 0 Then.Cells(titlerow + JSS * 7, 2).Value = "姓名"xm = 1Elsexm = 0End IfFor I = 1 To hjcount + 1.Cells(titlerow + JSS * 7, I + xm + 1).Value = hjcaption(I)Next I.Cells(titlerow + JSS * 7 + 2, hjcount + xm).Value = "通城职高教务处打印".Cells(titlerow + JSS * 7 + 2, hjcount + xm).Font.Size = 14.Cells(titlerow + JSS * 7 + 2, hjcount + xm).Font.Bold = TrueRange(.Cells(titlerow + JSS * 7 + 2, hjcount + xm), .Cells(titlerow + JSS * 7 + 2, hjcount + xm + 2)).Merge.Cells(titlerow + JSS * 7 + 3, hjcount + xm).Value = "=now()"Range(.Cells(titlerow + JSS * 7 + 3, hjcount + xm), .Cells(titlerow + JSS * 7 + 3, hjcount + xm + 2)).Merge.Cells(titlerow + JSS * 7 + 1, 1).V alue = XHIf XMCOL > 0 Then.Cells(titlerow + JSS * 7 + 1, 2).Value = "=" + GongZiBiao + "!" + NTOC(XMCOL) + Trim(Str(THISROW.Row()))End IfFor I = 1 To hjcount.Cells(titlerow + JSS * 7 + 1, I + xm + 1).Value = "=" + GongZiBiao + "!" + NTOC(HJS(I)) + Trim(Str(THISROW.Row()))Next I.Cells(titlerow + JSS * 7 + 1, I + xm + 1).Value = "=" + GongZiBiao + "!" + NTOC(ZJCOL) + Trim(Str(THISROW.Row()))Range(.Cells(titlerow + JSS * 7 + 4, 1), .Cells(titlerow + JSS * 7 + 4, hjcount + xm + 2)).Borders(xlEdgeBottom).LineStyle = xlDotWith Range(.Cells(titlerow + JSS * 7, 1), .Cells(titlerow + JSS * 7 + 1, hjcount + xm + 2)).Borders(xlEdgeLeft).LineStyle = xlDouble.Weight = xlThick.ColorIndex = xlAutomaticEnd WithWith Range(.Cells(titlerow + JSS * 7, 1), .Cells(titlerow + JSS * 7 + 1, hjcount + xm + 2)).Borders(xlEdgeTop).LineStyle = xlDouble.Weight = xlThick.ColorIndex = xlAutomaticEnd WithWith Range(.Cells(titlerow + JSS * 7, 1), .Cells(titlerow + JSS * 7 + 1, hjcount + xm + 2)).Borders(xlEdgeBottom).LineStyle = xlDouble.Weight = xlThick.ColorIndex = xlAutomaticEnd WithWith Range(.Cells(titlerow + JSS * 7, 1), .Cells(titlerow + JSS * 7 + 1, hjcount + xm + 2)).Borders(xlEdgeRight).LineStyle = xlDouble.Weight = xlThick.ColorIndex = xlAutomaticEnd WithWith Range(.Cells(titlerow + JSS * 7, 1), .Cells(titlerow + JSS * 7 + 1, hjcount + xm + 2)).Borders(xlInsideVertical).LineStyle = xlContinuous.Weight = xlHairline.ColorIndex = xlAutomaticEnd WithWith Range(.Cells(titlerow + JSS * 7, 1), .Cells(titlerow + JSS * 7 + 1, hjcount + xm + 2)).Borders(xlInsideHorizontal).LineStyle = xlContinuous.Weight = xlHairline.ColorIndex = xlAutomaticEnd WithJSS = JSS + 1End IfEnd WithNext XHcolwidth = 0For I = 1 To hjcount + 3colwidth = colwidth + Sheets("工资条").Columns(I).WidthNext IWith Sheets("工资条").PageSetup.HeaderMargin = Application.InchesToPoints(0.23).FooterMargin = Application.InchesToPoints(0.2).BottomMargin = Application.InchesToPoints(0.34).TopMargin = Application.InchesToPoints(0.29).FitToPagesWide = 1.FitToPagesTall = 1If (594 - colwidth) / 2 > 20 Then.LeftMargin = (594 - colwidth) / 2.RightMargin = (594 - colwidth) / 2End IfEnd WithApplication.ScreenUpdating = screenUpdateStateApplication.DisplayStatusBar = statusBarStateApplication.Calculation = calcStateApplication.EnableEvents = eventsStateActiveSheet.DisplayPageBreaks = displayPageBreaksState '注:这是工作表End SubFunction NTOC(ByVal ncol As Integer) As String '本函数将列号转换为单元格列名ncol = ncol - 1NHEAD = ncol \ 26NTAIL = ncol - NHEAD * 26If NHEAD = 0 ThenHEAD = ""ElseHEAD = Chr(NHEAD + 64)End IfNTOC = HEAD + Chr(NTAIL + 65)End FunctionPrivate Sub Workbook_BeforeClose(Cancel As Boolean)Set mytools = mandBars.FindControlsFor Each myGZT In mytoolsIf myGZT.Tag = "工资条工具" Or myGZT.Tag = "工资条菜单" ThenmyGZT.DeleteEnd IfNext myGZTEnd SubPrivate Sub Workbook_Open()If mandBars("Formatting").Controls(1).Tag <> "工资条工具" ThenSet mytools = mandBars("Formatting").Controls.Add(msoControlButton, 1, , 1) mytools.Caption = "生成工资条(&J)"mytools.Tag = "工资条工具"ElseSet mytools = mandBars("Formatting").Controls(1)End If'没有工资条按钮则在格式工具栏开头增加工资条按钮Dim mypicture, mypicturemask As Booleanmypicture = FalseSet MyFile = CreateObject("Scripting.FileSystemObject")If MyFile.FileExists(ThisWorkbook.Path & "\BMP\RMB.BMP") ThenSet myico = stdole.StdFunctions.LoadPicture(ThisWorkbook.Path & "\BMP\RMB.BMP") mytools.Picture = myicoIf MyFile.FileExists(ThisWorkbook.Path & "\BMP\RMBMASK.BMP") ThenSet myicoMASK = stdole.StdFunctions.LoadPicture(ThisWorkbook.Path & "\BMP\RMBMASK.BMP")mytools.Mask = myicoMASKEnd If'设置对象图标屏蔽，使背景透明mypicture = TrueEnd If'设置对象图标If Not mypicture Thenmytools.FaceId = 395End Ifmytools.OnAction = & "!MAKEGONGZITIAO"mytools.Tag = "工资条工具"If mandBars("Tools").Controls(1).Tag <> "工资条菜单" ThenSet mytools1 = mandBars("Tools").Controls.Add(msoControlButton, 1, , 1) mytools1.Caption = "生成工资条(&J)"mytools1.Tag = "工资条菜单"ElseSet mytools1 = mandBars("Tools").Controls(1)End Ifmytools1.OnAction = & "!MAKEGONGZITIAO"End Sub。

如何将ecel工资表数据库打印成带有表头的工资条

如何将E X C E L工资表数据库打印成带有表头的工资条Pleasure Group Office【T985AB-B866SYT-B182C-BS682T-STT18】如何将EXCEL工资表数据库打印成带有表头的工资条实现你要求的打印格式程序如下，是根据你的实际表的情况，用宏编写的：Sub Print_table()Sheets("sheet2").Select'5 是工资表上打印的人数减1，可更改For i = 1 To 5'每个工人工资条下方插入两行，20是工资表的列数，可根据情况更改，下面三行中的的20要同时修改。

Range(Cells(3 * i + 1, 1), Cells(3 * i + 2, 20)).SelectShift:=xlDown'复制表头Range(Cells(1, 1), Cells(2, 20)).SelectCells(3 * i + 1, 1).Select("1:1"). = 42NextRange("a2").SelectEnd Sub请注意以下几点：1、Excel启动时，提示是否使用宏，点击“启用宏”。

2、此程序认为工资表页面的名称是“sheet2”，如果你的工资表是别的名称，比如说，“一车间”，则把程序第二行中的sheet2替换掉，写成sheets("一车间").select3、程序装载方法：在页面上点击“工具”-〉宏 -〉Visual Basic编辑器在空白的方框里，将上面的程序复制上去，点击编辑器工具栏里的小箭头即可运行程序了。

如果光标不在程序中，点击小箭头时，会弹出一个窗口，此时选中宏的名称，点击“运行”即可。

4、程序行前面有'的是注释行，'是英文字符中的单引号。

5、原来的工资表的格式应该是只有最上面一个表头，下面每一行是一位工人的工资条。

怎么在excel中制作员工工资条

怎么在excel中制作员工工资条
每个月工资发放之后，正规的公司应发给每个员工一个工资条。

上面有员工当月工资的详细构成。

但不能将工资明细表剪条发放，因为每个数字缺少对应项目，这就需要重新制作一张专门用来打印的工资条。

下面小编就教怎么在excel中制作员工工资条。

excel中制作员工工资条的步骤：
首先，对部门排序
如果部门相同，就按照“基本工资”字段升序排序：选中单元格区域“A2：M15”，选择【数据】;
弹出【排序】对话框，在【主要关键字】下拉列表中选择【部门】，选中其右侧的【降序】，在【次要关键字】下拉列表中选择【基本工资】，在右侧选中【升序】，单击【确定】
其次，对实发工资汇总
选中“A2：M15”，在【数据】下点击【分类汇总】;
弹出【分类汇总】对话框，在【分类字段】下拉列表中选择【部门】选项，在【汇总方式】下拉列表中选择【求和】，在【选定汇总项】列表框中选中【实发工资】复选框，其余选项保持默认设置，单击确定;
回到工作表中，工作表的分类汇总就完成了。

用Excel制作工资条的简单方法

Excel软件中的数据处理功能非常强大，很多人都用它来制作工资表，再打印出工资条。

很多文章都介绍过如何把工资表制成工资条，但这些方法非常复杂，不利于操作。

先推荐两种用Excel制作工资条的非常简单的方法，希望能对有这方面要求的朋友有所帮助。

步骤/方法
1.方法一：排序法
2.第一步：打开工资表→在工资表最后一空白列输入1，2，3……(注：输入的数字与
工资表的行数相同)
3.第二步：在刚输入的数字下面向下输入1.1，2.1……，比上面的数据少一行，本列
在K9中输入1.1
4.第三步：在K列任何一个单元格中单击左键→单击工具栏上的升序排列按钮→选择
工资表→编辑→定位→定位条件选择“空值”→确定。

5.第四步：在编辑栏中输入=A$1→按住Ctrl键不放敲回车键。

6.第五步：在单元格K15下方输入1.01，2.01……一直输入到6.01→单击工具栏上的
升序排列按钮→删除K列的数据。

加一下边框便大功告成了。

7.方法二：函数法
8.第一步：打开工资表→单击Sheet2标签→在Sheet2工作表的A1单元格中输入=IF(M
OD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$N,INT((RO W()+4)/3),COLUMN())))→向后拖到J1单元格(注：拖的长度应与原表长度相同)。

9.第二步：选择A1:J1区域向下拖→拖到第20行即可(注：拖的时候可能拖多或拖少，
这时要看一下原表)→加一下边框便成功了。

10.The End。