Excel_VBA
黑口罩
记录想记录的,收集想收集的
展开
-
VBA-Like运输符号
'like: 用来比较两个字符串,返回值的逻辑值true或false'语法结构:result=string Like patter'pattern 中的字符 符合string中的'? 任何单一字符'* 零个或多个字符'# 任何一个数字(0-9)'[charlist] charlist中的任何单一字符'[!charlist] 不在cha...原创 2021-07-08 13:58:27 · 342 阅读 · 0 评论 -
VBA-循环语句总结
for...next 数字循环for each...next 数组循环或集合遍历do...loop 循环内容不确定do until....loop 直到条件成立时,停止循环do while...loop 当条件成立时,则开始循环...原创 2020-02-13 09:32:22 · 1004 阅读 · 0 评论 -
VBA-resize练习
姓名 班级 语文 数学 英语 A001 1班 68 67 87 A001 1班 68 67 87 A006 1班 69 79 75 A002 2班 91 51 92 A008 1班 63 75 85...原创 2020-02-14 11:02:23 · 416 阅读 · 0 评论 -
VBA-Do Until 和 Do while
Sub doUtil()Dim num%'until直到条件成立时,停止循环'while当条件成立时,则开始循环Do Until num >3 num = num + 1 MsgBox numLoopEnd Sub============================================Sub doWhile()Dim num%'un...原创 2020-02-12 21:53:51 · 4086 阅读 · 1 评论 -
VBA-Do。。。Loop循环实例
Sub doloop计算金额()Dim k%k = 1Do k = k + 1//excel表第8个sheet ;判断当前行列单元格是否为空;如果为空退出do。。。loop循环; If Worksheets(8).Cells(k, "a") = "" Then Exit Do Else//计算c列单元格的金额 Worksh...原创 2020-02-12 21:44:10 · 1179 阅读 · 0 评论 -
VBA-创建sheet表
Sub addSheet()Dim ws As WorksheetFor Each ws In Worksheets If ws.Name = "testT" Then End Next ws Worksheets.Add.Name = "testT"End Sub说明:判断当前Excel里头的sheet里头是否有个sheet名称叫testT 没有的的情况下,创建一...原创 2020-02-12 19:33:10 · 2500 阅读 · 0 评论 -
VBA-For Each。。。In 之计算提成金额
业务员 业绩 提成金额 张三 12000 6000 李四 10000 5000 王二 5000 2500 麻子 20000 10000 成丰富 350000 175000 牛奶 1000000 500000 Sub 提成金额()Dim n%n = 2 计时器,For E...原创 2020-02-12 15:47:25 · 694 阅读 · 0 评论 -
VBA-for嵌套练习之九九乘法表
1*1=1 2*1=2 2*2=4 3*1=3 3*2=6 3*3=9 4*1=4 4*2=8 4*3=12 4*4=16 ...原创 2020-02-12 11:39:33 · 316 阅读 · 0 评论 -
VBA-Select语句
数据类型(简写):Integer:整型 %Single:单精度 !Double:双精度 #Long:长整型 &String:字符 $Currency:货币型 @Sub test()Dim pass$0:pass = InputBox("请输入密码")Select Case passCase "999"MsgBox "登陆成功"Cas...原创 2020-02-11 14:39:44 · 2306 阅读 · 0 评论 -
VBA-for循环
产品 数量 单价 金额 A1 16 34 544 A2 32 22 704 A3 13 22 286 A4 1 53 53 A5 3 2 6 A6 4 3 12 A7 34 23 782 A8 22 33 ...原创 2020-02-11 15:06:24 · 1002 阅读 · 0 评论 -
VBA-IF判断语句
Dim 定义语句Sub test1() Dim num As Integer num = 70 If num > 80 Then MsgBox "及格" Else MsgBox "不及格" End IfEnd Sub=====================================================...原创 2020-02-11 11:53:53 · 551 阅读 · 0 评论