学习使我快乐……-优快云博客

原创 vba案例:字符串函数的应用

需求提取人员主要信息，路、号、室解决Option ExplicitSub 提取主要信息() 'jtzz:家庭住址；xxzz详细住址；S室 'hao门牌号, lu路, H取值的行号， H1写值得行号 Dim jtzz, xxzz, hao, lu, H, H1, S '从第二行开始查找 H = 2 '从第十三行开始写值 H1 = 13 Do While Cells(H, 1) <> "" For

2021-06-10 10:29:11 192

1、LEN（s）函数：求长度功能：返回字符串S的长度; 即S中有多少字符(一个中文字符长度也为1) 使用方法：Option ExplicitSub 字符串函数() Dim A, S A = Cells(2, 2) S = Len(A) '使用弹框显示 MsgBox SEnd Sub2、Tim（s）函数：去两端空格功能：返回一个新的字符串；该串的内容等于S去掉了两段的所有空格Option ExplicitSub 字符

2021-06-09 10:10:56 299

原创 VBA：函数_Function

使用函数显示出级别函数【Function】过程的一种，在执行结束后能将运行结果返回给调用者解决方法Option ExplicitSub while循环武器分类() Dim H1, JIBIE, ZHISHU H1 = 2 Do While Cells(H1, 2) <> "" 'ZHISHU=武器指数 ZHISHU = Cells(H1, 3) JIBIE = 函数武器分类(ZHISHU) Cel

2021-06-08 12:18:18 1185

原创 VBA案例：使用过程，把多个表的总计，登记到新的工作表中

需求有三张表，把每张表的名称与总价提取到新的一张工作表中1. 表12. 表23. 表34. 新表4. 点击按钮，显示人员名称与总价解决方法1、 'Worksheet.name代表了工作表的名称，可以用它取得或修改工作表名2、 'Worksheets引用工作表的两种格式 '1、根据工作表的显示位置：Worksheets（1） '2、根据工作表的名称：Worksheets（“xx”）3、 ' Worksheets.Count 所有工作表Opti

2021-06-07 16:35:25 564

原创给多张工作表赋值

需求给所有打开的工作表，【第30行，第2列赋值=100】Option ExplicitSub 多张工作簿赋值() '声明F1是一个【Worksheet：工作表对象】 Dim f1 As Worksheet '【as】代表这个变量属于哪一类 Dim f2 For f2 = 1 To 4 '从第一张工作簿循环到第四张工作表 'worksheets属性是一个集合类对象，代表workbook【工作薄】下所有工作表 '为代表【对象】的变量赋值时

2021-06-07 10:06:30 464

原创给指定的工作表赋值

需求给工作簿下_第四张工作表_第一行第二列赋值Sub f() '声明F1是一个【Worksheet：工作表对象】 Dim f1 As Worksheet '【as】代表这个变量属于哪一类 'worksheets属性是一个集合类对象，代表workbook【工作薄】下所有工作表 '为代表【对象】的变量赋值时，必须使用【set】关键字 Set f1 = Worksheets(4) '所有工作表中第四张工作表 '未指明工作表时，cells(X,Y)代表当前

2021-06-07 09:46:20 442

原创 VBA案例：多张表成绩一起汇总，多个for循环嵌套

Sub 多张工作表中成绩汇总() Dim Z, H2, B 'Z总分；H2行;B工作表 Dim C1 As Worksheet 'C1为新的工作表 For B = 1 To Worksheets.Count 'B代表工作表，每一张工作表循环一次。 Set C1 = Worksheets(B) Z = 0 '在第一次执行前总分为0 For H2 = 2 To 11

2021-06-06 20:17:41 1799

原创自动添加工作表,并且赋值

'WORKSHEETS的add方法：在所属工作簿中新建一张工作表,并赋值Sub ADD方法() Dim JIA As Worksheet 'JIA对象，'Worksheet类 Set JIA = Worksheets.Add 'add方法 JIA.Cells(25, 2) = 100End Sub

2021-06-06 13:36:45 328

原创面向对象——类

1. APPLICATION 类【excel系统】代表正在运行的excel系统本身 workbooks属性2. WORKBOOK 类【工作簿】代表一个打开的excel文件 worksheets 属性3. WORKSHEET 类【工作表】代表一张工作表 cells 属性代表单个对象 range 多个，大范围4. RANGE 类【单元格区域】代表一个或若干个单元格组成的内容区域

2021-06-05 16:38:47 98

原创 VBA案例：求总分、平均分、成绩等级、标记颜色

需求计算出单个人员的总分、平均分、成绩等级解决方法Option ExplicitSub TEST() Dim HANG, ZONG, PING, LIE HANG = 2 Do While Cells(HANG, 1) <> "" ZONG = Cells(HANG, 2) + Cells(HANG, 3) + Cells(HANG, 4) + Cells(HANG, 5) '总成绩 Cells(HANG, 6) = ZONG

2021-06-05 15:35:06 1997

原创 WHILE....WED,DO WHILE...LOOP循环

需求？把语文成绩<60的标记为红颜色解决方法1，WHILE…WEDOption ExplicitSub WHILE循环() Dim Y '行号 Y = 2 While Cells(Y, 1) <> "" '当第Y行第一列的内容不为空的时候,遇到空单元格结束循环 If Cells(Y, 2) < 60 Then Cells(Y, 2).Font.Color = vbRed '标记红色 Else

2021-06-05 12:38:14 128

原创如何录制宏？

概念excel 自动把手动操作的动作记录下来，然后翻译成VBA代码，保存成为一个宏录制方法打开工作簿 ->开发工具选项 ->点击录制宏手动操作，结束点击停止宏，Visual Basic生成一段录制的代码具体操作案例'录制宏'把注销掉的卡号删除，把余额为负数卡号标红Option ExplicitSub 会员卡() Dim N For N = 13 To 2 Step -1 If Cells(N, 4) = "注销" Then

2021-06-05 10:10:01 649

原创字符串__

1. 两个引号" "括起来举例"你好"2. 特殊显示字符TEST=" "(特殊字符_空格、段落、换行符、回车等)空格(" "):有一个空格字符3. 一个字符串包含多个、一个、零字符【"“空字符串也是字符串】空串(”"):没有字符4. 大小写要注意“TEST” “test”5. 数字、文本要区别“124”: 字符串124字符串用来文字编辑，文本处理字符串相加使用 & 【两边必须要有空格】“10” & “10”=“1010”124: 数字124数

2021-06-05 08:36:16 107

原创 IF...ELSE...THEN分支结构

- 疑问？如果计价单位为RMB，点击人民币按钮，RMB单位结果不变如果计价单位为USD，点击美元按钮，USD单位结果不变- 分析？ IF....THEN 如果....那么 ELSE 否则 .... END IF 结束- 解决方法Option Explicit'将人民币价格转换为美元价格Sub TESTPRICE() Dim PRICE, V 'V循环变量 PRICE = Cells(5, 2) '汇率 '循

2021-06-04 12:33:02 423

原创 FOR....NEXT 次数循环

Option Explicit'将人民币价格转换为美元价格Sub TESTPRICE() Dim PRICE, V 'V循环变量 PRICE = Cells(5, 2) '汇率 '循环的开始 For V = 8 To 16 Step 1 '让V这个变量从第六行到第八行，每步增加1 '循环体 Cells(V, 3) = Cells(V, 3) / PRICE '循环的结束 Next V '下一个 Cells(5, 1) .

2021-06-04 12:01:03 287

原创变量、常量

- 简单的算法Sub JIAN() C = Cells(2, 7) '声明变量 Cells(1, 2) = "-" 'Cells(1, 2) = "+" 字符、文本要用双引号（半角）括起来 Cells(C, 5) = Cells(C, 1) - Cells(C, 3) 'End Sub- 圆周率Option Explicit '强制声明登记注册Sub TEST1() Dim R, Y, M '声明本宏内将用到的变量名称，变量之间用逗号隔开 Con

2021-06-03 20:12:38 98

原创逻辑运算 And、Or、Not

1. AND 并且语句Sub CESHI()If [B2] = "男" And [C2] >= 60 Then [D2] = "正常退休"Else [D2] = "内退"End IfEnd Sub2. OR 或者语句Sub CESHI1()If [B2] = "女" Or [C2] >= 60 Then [D2] = "正常退休"Else [D2] = "内退"End IfEnd Sub3. AND 与 OR 一起使用如果[ 性别

2021-06-03 14:20:40 846

原创 IF...THEN...ELSE...,ELSEIF.....多条件嵌套

Sub ceshi()Dim ceshi As Byte '声明变量ceshi = 40If ceshi >= 90 Then MsgBox "优秀"ElseIf ceshi >= 80 Then MsgBox "良好"ElseIf ceshi >= 60 Then MsgBox "及格"Else MsgBox "不及格"End IfEnd Sub

2021-06-03 13:19:02 3024

原创工作表对象

WORKSHEETS：只统计普通工作表的集合，不会统计出图标工作表Sub ceshi()MsgBox Worksheets.CountEnd SubSHEETS：统计普通工作表和图表工作表Sub ceshi()MsgBox Sheets.CountEnd Sub指定工作表、指定单元格赋值Sub ceshi()Worksheets("sheet3").Range("a1") = 10 '给sheet3工作表,A1单元格赋值Worksheets("sheet3").Ce.

2021-06-01 19:24:56 341

原创 CELLS方式引用单元格

1. 第一种写法Sub ceshi()Cells(1, 3) = 10 '【第一行第三列】End Sub2. 第二种写法Sub ceshi()Cells(1, "B") = 10 '【第一行第二列】End Sub

2021-06-01 16:57:46 423

原创单元格对象--RANGE

RANGE–单元格Sub ceshi()'Range("a1") = 10End SubRANGE–区域Sub ceshi()Range("c2:c10") = 12End Sub

2021-06-01 16:44:09 135

原创运行vba代码的快捷键

1. 单步执行：F82. 一次性执行：F53. 退出：重置按钮4. 断点标记：F9

2021-06-01 12:41:41 3540

原创 2021-06-01 小白vba学习笔记：调用过程报错，发现二义性的名称

这里写自定义目录标题欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题，有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少的KaTeX数学公式新的甘特图功能，丰富你的文章UML 图表FLowchart流程图导出与导入导出导入欢迎使用Markdown编辑器你好！这是你第一次使用 Markdown编辑器所展示的欢迎页。如果你想学习如何使用Mar

2021-06-01 11:42:21 1597

犇犇的学习笔记