- 博客(13)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 如何用VBA快速的合并多个工作簿成为一个工作簿
Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenX = Range("A65536").End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)...
2018-06-10 11:40:20
23103
原创 如何用VBA从身份证号码中提取性别
Sub 根据身份证号码确定性别()sid = InputBox("请输入身份证号码：")i = Len(sid)If i <> 15 And i <> 18 Then '判断身份证号长度是否正确MsgBox "身份证号码只能为15位或18位！"Exit SubEnd IfIf i = 15 Then ...
2018-06-09 23:48:28
3120
原创 如何用VBA批量copy内容到各工作簿
Sub 批量COPY工作表到工作簿() '将工作表中的内容，分表COPY到另一个工作簿中 '准备一个工作簿，选取需要COPY的工作表（区域），贴,保存，关闭 mypath = ThisWorkbook.Path '代码所在工作簿的文件夹路径 Set zb = ThisWorkbook '代码所在的工作簿For Each biao In zb.Sheets Se...
2018-06-09 23:38:31
5545
原创 如何用VBA批量删除文件
Sub 批量删除文件() mypath = ThisWorkbook.Path f = Dir(mypath & "\*.xlsx") '查找当前路径下符合条件的文件名 While f <> "" '一直到F找不到合条件的就结束循环 If f <> "test.xls" Then 不为test.xls 则删除 ...
2018-06-09 23:36:07
5989
2
原创 如何用VBA获取当前时间
获取当前的系统时间在【A1】中，系统中的年在[B1],月在【C1】日在【D1】Sub D()ActiveCell.FormulaR1C1 = "=NOW()" Range("B1").Select ActiveCell.FormulaR1C1 = "=year" Range("B1").Select ActiveCell.FormulaR1C1 = "=YEAR(RC[-1...
2018-06-09 16:52:29
22026
原创 如何用VBA计算个人所得税
Sub i个人所得税()For Each Sheet In WorksheetsFor i = 2 To xx = Sheet.UsedRange.Rows.CountDim a%, b% a = Sheet.Cells(i, "I") If a < 3500 Then Range(Sheet.Cells(i, "J")) = 0 ElseIf a - 3500 < 1500 Then...
2018-06-09 16:47:23
3699
原创 如何用VBA统计出勤天数
注：这里的rng=1是出勤，rng=0是未出勤Sub i统计出勤()Dim rng As Range '定义范围For Each rng In [b2:b32] 'For Each语句 外循环 If rng = 1 Then 'ElseIf循环体 内循环 sum1 = sum1 + 1 ElseIf rng = 0 Then ...
2018-06-09 16:30:43
2119
原创 如何用VBA求一个圆形的面积
Sub AreaOfCircle()Const PI As Single = 3.14r = Val(InputBox("请输入半径"))Range("A1").Value = rDim areaarea = PI * r ^ 2MsgBox "圆的面积" & areaEnd Sub
2018-06-09 16:20:05
2450
原创 如何用if条件判断，用单元格底色区分成绩
将每个工作表的总分列进行操作：判断总分，<60,底色为红色,60-100,底色为蓝色，100以上：底色为绿色Sub test()For Each y In Worksheetsx = y.UsedRange.Rows.CountFor i = 2 To xIf x <= 60 Then x = y.Cells(i, "I") y.Cells(i, "I").Interior. Colo...
2018-06-09 16:12:10
5167
原创 如何用VBA将每张工作表的C-H列或者4到5行隐藏
工作表的C-H列隐藏Sub test()For Each y In Worksheetsy.Columns("C:H").Hidden = TrueNextEnd Sub工作表的4到5行隐藏Sub test()For Each y In Worksheetsy.Rows("4:5").Hidden = TrueNextEnd Sub
2018-06-09 16:03:49
986
原创 如何用VBA制作工资条
使用宏与编写VBA代码的方法也可轻松实现工资条的制作，将宏指定到按钮上，每次只要轻点按钮即可实现工资条的制作。Sub 工资条()Dim x AsIntegerRange("A1").SelectFor x = 1 ToRange("a1048576").End(xlUp).Row - 2ActiveCell.Rows("1:1").EntireRow.SelectSelection.CopyAct...
2018-06-09 15:56:20
4258
原创 如何用VBA将一个工作簿里多张表的名字与人数汇总在一张表里
Sub text1()Worksheet.Add.Name="汇总"For Each Sheet In Worksheetsk = k + 1x = y.usedRange.Rows.Countsheets("汇总").Cells(k, 1) = Sheet.Namesheets("汇总").Cells(k, 2) =xNextEnd Sub
2018-06-08 00:16:04
1877
原创 VBA中的标识符，常量和变量
标识符： 在程序运行的过程中，通常需要将计算结果保存下来，在后面使用，程序中使用的数据都保存在计算机的内存中。数据保存在内存中，需要使用某种方式引用它，就必须给这些内存一个名称，这就是标识符。定义标识符时应该遵循以下规则：1、以字符开头，包含字母、数字和下划线，不区分大小写。2、长度不能超过255个字符3、不能使用VBA的关键字4、同一个过程内不能使用重复的名称常量： 在程序运行...
2018-06-07 23:33:52
5085
用友在Windows10和2003系统下的安装注意事项.pdf
2020-04-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人