以下是用宏制作工资表的代码

Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+p
'
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
End Sub

首先打开工资表，依次点击文件—选项—自定义功能区—开发工具，然后点击确定，接下来我们就可以录制宏了。

制作的工资条如下图所示

宏的录制——制作工资表相关推荐

在Linux下制作工资表(转)
在Linux下制作工资表(转) 在Linux桌面系统下,使用办公套件的电子表格模块可方便制作各种常用的表格,并进行数据计算或插入图表.下面以工资表为例,讲解在Linux下应用RedOffice电子表格 ...
怎么用计算机绘制不规则表格,怎么绘制表格-Excel小技巧：快速制作工资表和不连续填充表格信息，人事必看...
小伙伴们,大家好!面对杂乱没有规律的工资内容,如何将它们转换成查阅方便的工资条是每个人事在月中或者月底进行工资核算和发放都会遇到的难题.如果将WORD中文字内容的工资明细,依次进行粘贴复制或者是手动输 ...
linux生成表格文件大小,在Linux下制作工资表(转)
在Linux下制作工资表(转)[@more@] 在Linux桌面系统下,使用办公套件的电子表格模块可方便制作各种常用的表格,并进行数据计算或插入图表.下面以工资表为例,讲解在Linux下应用RedOf ...
如何用Automator制作工资表
你其实可以避免那些重复性的操作我们大学每个月都会给足球队发训练补贴,每个人¥144:按照规定,我们每个月都要上交一份工资表的压缩包上去,里面包括了一份word文档,记录发工资的名单一份考勤表一 ...
Excel如何制作工资表
使用索引函数=INDEX(reference, row_num, [column_num], [area_num]) =索引( 引用,行号,[列号],[区域] ) 红色为必选项. 表格3 有表格结构, ...
第八次作业——Excel制作工资表
转载于:https://www.cnblogs.com/shengge7153/p/7900031.html
Excel工资表通过宏的录制形成工资条形式
内容:工资表通过宏的录制形成工资条形式,设置快捷键,添加按钮指定宏,并且改进宏. 一打开Excel,先点击左侧文件-选项-自定义功能区 ,从左侧的下来菜单中选择开发工具,把开发工具添加到右侧自定义 ...
用工资表做工资条详细介绍（excle简单的录制宏操作）
{一.纯文字}{ 1. 打开工资表(以下用类似表做示范) 2. 点击菜单栏里的[文件](如果菜单栏里有开发工具,直接跳到6) 3. 点击右边菜单栏里的[选项] 4. 点击右边菜单栏里的[自定义功能 ...
VLOOKUP函数制作多表查询（学生信息表/员工工资表）
VLOOKUP函数制作多表查询(学生信息表/员工工资表) 一.vlookup函数定义 VLOOKUP函数是Excel中的一个纵向查找函数,在工作中都有广泛应用,例如可以用来核对数据,多个表格之间快速导 ...

宏的录制——制作工资表

以下是用宏制作工资表的代码

Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+p
'
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
End Sub

首先打开工资表，依次点击文件—选项—自定义功能区—开发工具，然后点击确定，接下来我们就可以录制宏了。

制作的工资条如下图所示

宏的录制——制作工资表相关推荐

最新文章

热门文章

宏的录制——制作工资表

以下是用宏制作工资表的代码

Sub 宏1() ' ' 宏1 宏 ' ' 快捷键: Ctrl+p ' ActiveCell.Rows("1:1").EntireRow.Select Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown End Sub

首先打开工资表，依次点击文件—选项—自定义功能区—开发工具，然后点击确定，接下来我们就可以录制宏了。

制作的工资条如下图所示

宏的录制——制作工资表相关推荐

最新文章

热门文章

Sub 宏1()
'
' 宏1 宏
'
' 快捷键: Ctrl+p
'
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
End Sub