生成工资条恢复工资表宏巨集 vba

简体中文宏
繁体中文巨集

文章目录

工资表、工资条
个税计算
提取表名
根据模板创建报表
多表汇总数据
双重循环处理多个 sheet

工资表、工资条

Sub gzb()Dim i As IntegerFor i = 3 To 50If Range("A" & i) = "" ThenExit ForEnd IfRange("A" & i).SelectSelection.EntireRow.DeleteNextEnd SubSub gzt()Dim i As IntegerFor i = 3 To 50 Step 2If Range("A" & i) = "" ThenExit ForEnd IfRows("1:1").SelectApplication.CutCopyMode = FalseSelection.CopyRange("A" & i).SelectSelection.Insert Shift:=xlDownNextEnd Sub

个税计算

Sub gs()Dim i As IntegerFor i = 2 To 100If Range("a" & i) = "" ThenExit ForEnd IfIf Range("c" & i) <= 1500 ThenRange("d" & i) = Range("c" & i) * 0.03ElseIf Range("c" & i) >= 1500 And Range("c" & i) < 4500 ThenRange("d" & i) = Range("c" & i) * 0.1 - 105ElseIf Range("c" & i) >= 4500 And Range("c" & i) < 9000 ThenRange("d" & i) = Range("c" & i) * 0.2 - 555ElseIf Range("c" & i) >= 9000 And Range("c" & i) < 35000 ThenRange("d" & i) = Range("c" & i) * 0.25 - 1005ElseIf Range("c" & i) >= 35000 And Range("c" & i) < 55000 ThenRange("d" & i) = Range("c" & i) * 0.3 - 2755ElseIf Range("c" & i) >= 55000 And Range("c" & i) < 80000 ThenRange("d" & i) = Range("c" & i) * 0.35 - 5505ElseIf Range("c" & i) >= 80000 ThenRange("d" & i) = Range("c" & i) * 0.45 - 13505End IfNextEnd Sub

提取表名

Sub tq()Dim i As IntegerFor i = 2 To Sheets.CountRange("a" & i - 1) = Sheets(i).NameNextEnd Sub

根据模板创建报表

Sub test()
Dim i As IntegerFor i = 1 To 31Sheet1.Copy after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "5月" & i & "日"Sheets(Sheets.Count).Range("e5") = "2016-5-" & i
NextEnd Sub

多表汇总数据

Sub hz()
Dim i As IntegerFor i = 2 To Sheets.Count'Sheet1.Range("b10") = Sheets(i).Range("e5")Sheet1.Range("b" & i + 8) = Sheets(i).Range("e5")Sheet1.Range("c" & i + 8) = Sheets(i).Range("e6")Sheet1.Range("d" & i + 8) = Sheets(i).Range("e44")NextEnd Sub

双重循环处理多个 sheet

Sub test()
Dim i As Integer
Dim j As IntegerFor j = 1 To Sheets.CountFor i = 100 To 2 Step -1If Sheets(j).Range("b" & i) = "瞶" ThenSheets(j).Range("c" & i) = "LG"ElseIf Sheets(j).Range("b" & i) = "ゅ" ThenSheets(j).Range("c" & i) = "WK"ElseSheets(j).Range("c" & i) = "CJ"End IfIf Sheets(j).Range("e" & i) = "╧" ThenSheets(j).Range("f" & i) = "ネ"ElseIf Sheets(j).Range("e" & i) = "" ThenSheets(j).Range("f" & i) = ""End IfIf Sheets(j).Range("d" & i) = "" ThenSheets(j).Range("d" & i).EntireRow.DeleteEnd IfNext
NextEnd Sub

生成工资条恢复工资表宏巨集 vba相关推荐

批量生成工资条和恢复成工资表
一.问题的提出人事.财务经常会用到工资条,如果手工添加比较麻烦,而且容易出错,我们可以通过录制宏,或者插入VBA代码的方法来解决.有了VBA后,我们可以定义按钮,绑定VBA代码,实现一键生成工资条, ...
Excel工资表通过宏的录制形成工资条形式
内容:工资表通过宏的录制形成工资条形式,设置快捷键,添加按钮指定宏,并且改进宏. 一打开Excel,先点击左侧文件-选项-自定义功能区 ,从左侧的下来菜单中选择开发工具,把开发工具添加到右侧自定义 ...
如何用计算机直接做工资表,在电脑上excel做工资表怎么划线
制作工资条.成绩单是周期性的重复劳动,单调乏味.对此,本文活用WPS表格的智能填充加巧妙算法,教你只用一次粘贴.一个公式.一次拖曳,搞定如图 1样式的条式单据. 言归正传,先操作,后解说. 1. 设定 ...
如何用Automator制作工资表
你其实可以避免那些重复性的操作我们大学每个月都会给足球队发训练补贴,每个人¥144:按照规定,我们每个月都要上交一份工资表的压缩包上去,里面包括了一份word文档,记录发工资的名单一份考勤表一 ...
用工资表做工资条详细介绍（excle简单的录制宏操作）
{一.纯文字}{ 1. 打开工资表(以下用类似表做示范) 2. 点击菜单栏里的[文件](如果菜单栏里有开发工具,直接跳到6) 3. 点击右边菜单栏里的[选项] 4. 点击右边菜单栏里的[自定义功能 ...
宏的录制——制作工资表
以下是用宏制作工资表的代码 Sub 宏1() ' ' 宏1 宏 ' ' 快捷键: Ctrl+p ' ActiveCell.Rows("1:1").EntireRow.Sel ...
wps工资表怎么用计算机,用WPS表格轻松制作出美观实用的工资条
用WPS表格轻松制作出美观实用的工资条分类:计算机等级 | 更新时间:2016-07-08| 来源:转载在任何企业之财务管理中,一定少不了工资计算和设计工资条.工资条头之美观及操作速度是设计的一个 ...
EXCEL之工资表转工资条
很短的时间内几个朋友问同样一个问题: EXCEL之工资表转工资条我最初的方法是在同一工作簿新建一个工作表,再这样:函数 ='1月工资'!A4 有个问题,在往往下拉的时间只有序号为1.3.5- ...
EXCEL工资表一键转化工资条短信如何操作
工资条的种类呢,非常多.传统的纸质工资条.是财务人员通过Excel表.打印出来以后裁剪.给到员工.但是这种工资条呢,有一定的局限性.如果企业员工不多的情况下呢,是可以使用的.如果企业员工数量很庞大这种 ...
编译原理，C语言实现LR(0)分析（扩展文法的生成、项目集规范簇的生成、ACTION GOTO表的生成、句子的分析）
编译原理,C语言实现LR0分析扩展文法的生成.项目集规范簇的生成.ACTION GOTO表的生成.句子的分析演示演示所用文法和句子 (1)根据提示输入文法的个数 (2)输入文法 (3)扩展文法的生 ...

生成工资条恢复工资表宏巨集 vba

文章目录

工资表、工资条

个税计算

提取表名

根据模板创建报表

多表汇总数据

双重循环处理多个 sheet

生成工资条恢复工资表宏巨集 vba相关推荐

最新文章

热门文章

生成工资条 恢复工资表 宏 巨集 vba

文章目录

工资表、工资条

个税计算

提取表名

根据模板创建报表

多表汇总数据

双重循环处理多个 sheet

生成工资条 恢复工资表 宏 巨集 vba相关推荐

最新文章

热门文章

生成工资条恢复工资表宏巨集 vba

生成工资条恢复工资表宏巨集 vba相关推荐