Excel VBA 基础语法
程序员文章站
2024-01-27 17:06:22
...
-
Is 比较两个对象的引用变量|| 对象1 Is 对象2 || 当对象1和对象2引用相同的对象时返回True,否则返回False
-
Like 比较两个字符串是否匹配 || 字符串1 Like 字符串2 || 当字符串1与字符串2匹配时返回True,否则返回False
-
-
Range("A1") >= 500
-
-
Range("B2") Like "陈*"
-
-
"*"是通配符,代替任意多个字符
-
"?" 代替任意的单个字符
-
"#" 代替任意单个数字
-
[A-Z] 代替位于charlist中的任意一个字符
-
[!H-J] 代替不在charlist中的任意一个字符
-
-
3.8.4 逻辑运算符
-
And 逻辑"与"
-
Or 逻辑"或"
-
Not 逻辑"非"
-
Xor 逻辑"异或"
-
Eqv 逻辑"等价"
-
Imp 逻辑"蕴含"
-
-
3.10.3 使用Select Case语句解决“多选一”的问题
-
Sub Test()
-
Select Case Range("B2").Value
-
Case Is >= 90
-
Range("C2").Value = "优秀"
-
Case Is >= 80
-
Range("C2").Value = "良好"
-
Case Is >= 60
-
Range("C2").Value = "及格"
-
Case Else
-
Range("C2").Value = "不及格"
-
End Select
-
End Sub
-
-
3.10.4 用For...Next语句循环执行同一段代码
-
Sub ShtAdd()
-
'在活动工作表前插入一张新工作表,新插入的工作表即为活动工作表
-
Worksheets.Add
-
End Sub
-
-
Sub ShtAdd()
-
'定义一个Byte类型的变量,名称为i
-
Dim i As Byte
-
For i = 1 To 5 Step 1
-
'在活动工作表前插入一张新工作表
-
Worksheets.Add
-
Next i
-
End Sub
-
-
使用Exit For终止For循环
-
-
Sub Test()
-
Dim i As Byte '定义一个Byte类型的变量,名称为i
-
For i = 2 To 11 Step 1 '用For语句定义循环次数
-
Select Case Range("B" & i).Value 'B列第i行的成绩是要评定等次的成绩
-
Case Is >= 90
-
Range("C" & i).Value = "优秀" '成绩达到90时要执行的代码
-
Case Is >= 80
-
Range("C" & i).Value = "良好" '成绩达到80时要执行的代码
-
Case Is >= 60
-
Range("C" & i).Value = "及格" '成绩达到60时要执行的代码
-
Case Else
-
Range("C" & i).Value = "不及格" '成绩是其他情况时要执行的代码
-
End Select 'Select语句到此结束
-
Next i 'For语句到此结束
-
End Sub
-
-
3.10.5 用For Each...Next语句循环处理集合或数组中的成员
-
Sub ShtName()
-
Dim sht As Worksheet, i As Integer '定义两个变量,其中sht是Worksheet(工作表)类型
-
i = 1 '第1次写入工作表名称的是A1单元格,所以变量值定义为1
-
For Each sht In Worksheets '循环语句开始
-
Range("A" & i) = sht.Name '将工作表名称写入A列第i行的单元格
-
i = i + 1 '让变量i的值增加1,以便下次能将工作表名写入其他单元格中
-
Next sht '循环语句结束
-
End Sub
-
-
问题:将1-100写入A1-A100中
-
Sub RN()
-
Dim c As Range, i As Integer
-
i = 1
-
For Each c In RANGE("A1:A100")
-
c.Value = i
-
i = i + 1
-
Next c
-
End Sub
-
-
3.10.6 用Do语句按条件控制循环
-
Sub ShtAdd_01()
-
Dim i As Byte '定义一个Byte类型的变量,名称为i
-
i = 1 '给变量i赋值
-
Do While i <= 5 '当变量i小于或等于5时执行循环体
-
Worksheets.Add '在活动工作表前插入一张新工作表
-
i = i + 1 '每执行一次循环体,变量i的值就增加1
-
Loop 'Do语句结束的标志
-
End Sub
-
-
Sub ShtAdd_02()
-
Dim i As Byte '定义一个Byte类型的变量,名称为i
-
i = 1 '给变量i赋值
-
Do 'Do语句开始
-
If i > 5 Then Exit Do '如果变量i的值大于5,那么终止循环
-
Worksheets.Add '在活动工作表前插入一张新工作表
-
i = i + 1 '每执行一次循环体,变量i的值就增加1
-
Loop 'Do语句结束的标志
-
End Sub
-
-
Sub ShtAdd_03()
-
Dim i As Byte '定义一个Byte类型的变量,名称为i
-
i = 1 '给变量i赋值
-
Do 'Do语句开始
-
Worksheets.Add '在活动工作表前插入一张新工作表
-
i = i + 1 '每执行一次循环体,变量i的值就增加1
-
Loop While i <= 5 '如果变量i小于或等于5,那返回Do语句开始处再执行一次循环体
-
End Sub
-
-
3.10.7 使用GoTo语句让程序转到另一条语句去执行
-
Sub Sum_Test()
-
Dim mysum As Long, i As Integer '定义两个变量
-
i = 1 '变量i的初始值为1
-
x: mysum = mysum + i '将变量mysum的值与变量i的值相加,并将结果重新赋给变量mysum
-
i = i + 1 '变量i的值在原值的基础上增加1
-
If i <= 100 Then GoTo x '如果i小于或等于100,跳转到x标签处
-
MsgBox "1到100的自然数和是:" & mysum '用对话框显示变量mysum的值
-
End Sub
-
-
3.10.8 With语句简写代码离不开它
-
Sub FontSet_02()
-
With Worksheets("Sheet1").Range("A1").Font '开始With语句,定义要设置的对象
-
.Name = "仿宋" '设置字体仿宁
-
.Size = 12 '设置字号为12号
-
.Bold = True '设置字体为加粗字体
-
.ColorIndex = 3 '设置字体颜色为红色
-
End With 'With语句到这里结束
-
End Sub
-
-
3.11.2 Sub过程的基本结构
-
Sub hong()
-
RANGE("A1:A8").Select
-
SELECTION.COPY
-
RANGE("C1").Select
-
ACTIVESHEET.PASTE
-
END Sub
上一篇: css样式_浮动与清除浮动
下一篇: CSS——CSS浮动与清除浮动