VBA学习-循环语句

目录

一、基础知识学习

二、单元格格式

三、循环语句与判断语句

---

一、基础知识学习

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、代码

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