轻松掌握基础功能! 给excel初学者的16个VBA基本代码

Sub Example1()
    '在消息框中显示单元格A1中的值
    MsgBox Range("A1")
    '也可以使用Cell对象引用单元格A1
    MsgBox Cells(1, 1) '第1个数值代表行号,第2个数值代表列号
End Sub

Sub Example2()
    '在单元格A1中输入数据
    Range("A1") = "Hi! 完美Excel."
    '同样可以使用Cell对象
    Cells(3, 2) = "Hi! 完美Excel." '这里的3代表行号,2代表列号
End Sub

Sub Example3()
    '使用Interior.ColorIndex属性设置单元格色
    Range("B1:B5").Interior.ColorIndex = 5 ' 5=蓝色
End Sub

Sub Example4()
    '使用Font对象的Interior.ColorIndex属性设置颜色
    Range("A1:A10").Font.ColorIndex = 3 ' 3=红色
End Sub

Sub Example5()
    '使用UCase函数将文本转换成大写
    Range("A2").Value = UCase(Range("A2").Value)
    '使用LCase函数将文本转换成小写
    Range("A3").Value = LCase(Range("A3").Value)
End Sub

Sub Example6()
    '使用Copy方法
    Range("A1:A10").Copy Destination:=Range("E1")
End Sub

Sub Example7()
    '使用Select方法
    Sheet2.Select
    '使用Activate方法
    Sheet1.Activate
End Sub

Sub Example8()
    '使用ActiveSheet.Name属性获取当前工作表名称
    MsgBox ActiveSheet.Name
    '使用ActiveWorkbook.Name属性获取当前工作簿名称
    MsgBox ActiveWorkbook.Name
End Sub

Sub Example9()
    '使用Add方法添加工作表
    Sheets.Add
    '使用工作表的Name属性重命名工作表
    ActiveSheet.Name = "MySheet"
    '使用Delete方法删除工作表
    Sheets("MySheet").Delete
End Sub

Sub Example10()
    '使用Add方法添加工作簿
    Workbooks.Add
    '访问当前工作簿指定工作表单元格
    ActiveWorkbook.Sheets("Sheet1").Range("A1") = "示例数据"
    '将当前工作簿保存到默认文件夹
    ActiveWorkbook.SaveAs "MyNewWorkbook.xls"
    '关闭当前工作簿
    ActiveWorkbook.Close
End Sub

Sub Example11()
    '使用Hidden属性
    Rows("2:5").Hidden = True '隐藏第2行至第5行
    Rows("2:5").Hidden = False '取消隐藏第2行至第5行
    '使用Hidden属性
    Columns("B:D").Hidden = True '隐藏列B至列D行
    Columns("B:D").Hidden = False '取消隐藏列B至列D
End Sub

Sub Example12()
    '使用Insert方法和Delete方法
    Rows(6).Insert '在第6行插入一行
    Rows(6).Delete '删除第6行
    '使用Insert方法和Delete方法  
    Columns("B").Insert '在列B前插入一列
    Columns("B").Delete '删除列B
End Sub

Sub Example13()
    '使用RowHeight属性和ColumnWidth属性 
    Rows(2).RowHeight = 30
    Columns(2).ColumnWidth = 36
End Sub

Sub Example14()
    '使用Merge方法 
    Range("A11:A15").Merge
    '使用UnMerge方法
    Range("A11:A15").UnMerge
End Sub

Sub Example15()
    '比较单元格A2和单元格A3中的值
    If Range("A2").Value = Range("A3") Then
        MsgBox "True"
    Else
        MsgBox "False"
    End If
End Sub

Sub Example16()
    Dim i As Integer
    For i = 1 To 1000
        Cells(i, 5) = i '在列E输入1至1000
    Next i
    '提示输入完成
    MsgBox "已完成!在列E已经输入了1000个整数."
End Sub