目录
一、基础知识学习
二、单元格格式
三、循环语句与判断语句
一、基础知识学习
1、对单元格赋值
Sub 赋值()
'对单元格进行赋值
Range("A1").Value = 100
End Sub
2、多区域赋值
Sub 多个区域赋值()
'多区域赋值
Range("B1:C2").Value = 200
End Sub
3、不连续区域赋值
Sub 不连续赋值()
'不连续的区域进行赋值
Range("B3,C5").Value = "不连续"
End Sub
4、修改指定单元格
Sub 修改指定单元格()
'修改单元格
Range("B6").Value = "修改"
5、选定行的第一行
'行的第一行
Sub 第一行()
Rows("2:5").Rows(1).Select
End Sub
6、选定列的第二列
'列引用
Sub 列选择()
Columns("B:G").Columns(2).Select
End Sub
7、offset属性:返回指定区域
offset(2,3) 向下偏移二行,向右偏移三列(负号是反方向偏移)
'偏移
Sub 偏移()
'向右偏移两行两列
Range("B1").Offset(2, 2).Select
8、End:获取行或列的首末行单元格
xlToLeft:返回最左端的单元格
xlToRight:返回最右端的单元格
xlToUp:返回最上端的单元格
xlToDown:返回最下端的单元格
'end应用
Sub End应用()
Range("I1").End(xlDown).Offset(1, 0) = 12
Range("I1").End(xlDown).Offset(0, 1) = "女"
End Sub
9、inputbox :提示
Sub box窗口练习()
'box提示使用
gonghao = InputBox("请输入工号")
xingming = InputBox("请输入姓名")
bumen = InputBox("请输入部门")
Range("A1").End(xlDown).Offset(1, 0).Value = gonghao
Range("A1").End(xlDown).Offset(0, 1).Value = xingming
Range("A1").End(xlDown).Offset(0, 2).Value = bumen
End Sub
二、单元格格式
Sub 设置单元格格式()
'合并单元格,并居中
Set biaoti = Range("A1:F1")
'合并单元格
biaoti.Merge
'字体居中
biaoti.HorizontalAlignment = xlCenter
'背景修改,字体颜色修改
Set biaotou = Range("A3:F3")
'字体居中
biaotou.HorizontalAlignment = xlCenter
'字体大小
biaotou.Font.Size = 12
'字体颜色:黑色
biaotou.Font.Color = 1
'字体加粗
biaotou.Font.Bold = True
'设置背景颜色
biaotou.Interior.ColorIndex = 15
'添加表格边框线 去除是flase
Range("A3:F9").Borders.LineStyle = True
End Sub
三、循环语句与判断语句
1、语法:
1)for循环
for 循环变量 = 初值 to 终值
循环体
next 循环变量
2)if判断语句
if 判断 then
elseif then
else
end if
3)select case语句
Select Case分数
Case is >=90
评定为优秀
Case is>=80
评定为良好
Case Else
评定为不合格
2、代码文章来源:https://www.toymoban.com/news/detail-461557.html
Sub if语句()
'根据已有标准判断
For i = 2 To 7
If Range("B" & i).Value < 60 Then
Range("C" & i) = "不及格"
ElseIf Range("B" & i).Value >= 60 And Range("B" & i).Value < 80 Then
Range("C" & i) = "及格"
ElseIf Range("B" & i).Value >= 90 Then
Range("C" & i) = "优秀"
Else
Range("C" & i) = "良好"
End If
Next i
End Sub
Sub case使用()
For i = 2 To 7
Select Case Range("B" & i).Value
Case Is >= 90
Range("C" & i).Value = "优秀"
Case Is >= 80
Range("C" & i).Value = "良好"
Case Is >= 60
Range("C" & i).Value = "及格"
Case Else
Range("C" & i).Value = "不及格"
End Select
Next i
End Sub
文章来源地址https://www.toymoban.com/news/detail-461557.html
到了这里,关于VBA学习-循环语句的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!