自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

吾傻又爱代码

天生愚钝,老师教不会,自学没天分,十足的样样会,门门瘟!

  • 博客(12)
  • 收藏
  • 关注

原创 VBA-vba与运算符

声明:笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师:曾贤志定义:运算符是代表VBA某种运算功能的符号赋值运算符:= 数学运算符:&(字符连接符)、+(加)、-(减)、Mod(取余)、\(整除)、*(乘)、/(除)、-(负号)、^(指数) 逻辑运算符:Not(非)、And(与)、Or(或)、Xor(异域)、Eqv(相等)、Imp(隐含) 关系运算符:=(相同)...

2018-11-09 19:26:08 8870

原创 Excel-常用公式收藏

目录查找重复内容用出生年月来计算年龄从输入的18位身份证号计算出生年月从输入的身份证号码内让系统自动提取性别根据出生日期自动计算周岁查找最后一行的数据对可见区域求和判断日期,没到预定日期不显示自动记录数据的录入时间统计不重复的个数计算错误值不显示查找重复内容=IF(COUNTIF(A:A,A2)>1,"重复","")用出生年月来计算年...

2018-11-09 18:06:32 633

翻译 VBA-实用代码珍藏

目录提取单元格中的数字部分,忽略其他字符(如下图) 提取单元格中的数字部分,忽略其他字符(如下图) Sub text() Dim reg As Object, i%, arr Set reg = CreateObject("vbscript.regexp") arr = Range("a1:a10") With reg .Global = ...

2018-11-08 19:38:32 2090

原创 VBA-with语句

声明:笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师:曾贤志with语句,当对某个对象执行一系列的语句时,不用重复指出对象的名称。Sub with语句1() a = Range("a1").Address b = Range("a1").Parent.Name Range("a1") = "1234"End SubSub with语句2()...

2018-11-08 18:42:37 8886

原创 VBA-错误分支语句

声明:笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师:曾贤志例子:当错误的时候继续执行下去           统计学生的总分,若有未考,则不统计总分(如图)Sub onerrorresume()Dim i!On Error Resume Next '该行代码作用是当错误的时候继续执行下去For i = 2 To 8 Cells(i,4) = Cel...

2018-11-08 18:23:03 437

原创 VBA-跳转语句

声明:笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师:曾贤志GoTo line无条件地转移到过程中指定的行。注意_太多的GoTo 语句,会使程序代码不容易阅读及调试。尽可能使用结构化控制语句(Do...Loop、For...Next、If...Then...Else...)Sub gotoline()Dim str$Dim k!123:k = k + 1If ...

2018-11-08 17:56:00 7596

原创 VBA-Exit与End语句

声明:笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师:曾贤志Exit 是退出当前语句Exit Do Exit For Exit Function Exit Sub例子:找出第一个王五的行号Sub exitfor退出()Dim i!For i = 2 To 7 If Sheet1.Cells(i, 1) = "王五" Then E...

2018-11-08 17:47:01 2710

原创 VBA-循环语句之For Each..Next

声明:笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师:曾贤志当需要处理集合成员时,一般会用 For Each...Next,实际上就是处理对象实例应用:判断是否等于“A1”是就填充底色为红色Sub foreachnext循环1()Dim rng As Range, n!For Each rng In Sheet1.Range("a2:a10") '取a2:a...

2018-11-08 17:29:30 11771 1

原创 VBA-循环语句之Do...Loop

声明:笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师:曾贤志Do ... Loop 循环语句,直到满足某个条件Sub DoLoop基本示例()Dim a%Doa = a + 1 If a > 10 Then MsgBox a & "终于大于10" Exit Do End IfLoopEnd Sub实例应用:将大于...

2018-11-08 16:35:22 8409

原创 VBA-判断语句之Select

声明:笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师:曾贤志Select Cate 语句 根据表达式的值,来决定执行几组语句中的其中之一。Sub select单条件判断()i = 1Select Case iCase Is > 0 MsgBox "正数"Case Else MsgBox "负数"End SelectEnd SubS...

2018-11-08 16:01:46 3088

原创 VBA-判断语句之IF

声明:笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师:曾贤志'判断语句IF单条件与多条件判断Sub IF条件判断之单条件1()Dim a%, b% '声明变量a = 2 '给变量赋值b = 2 '给变量赋值If a = b Then MsgBox "相等" '如果a等于b,就输入到窗口显示“相等”End SubSub IF条件判断之单条件2(...

2018-11-08 15:28:51 30708

原创 VBA-常见的数据类型

VBA中的常见数据类型类型 注释 简写 占用内存 Integer 整型 % 2Byte Single 单精度 ! 4Byet Double 双精度 # 8Byet Long 长整型 & 4Byet String 字符型 $ 定长或变长 Currency ...

2018-11-08 14:23:51 3655

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除