分享成果，随喜真能量。大家好，今天继续和大家分享VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一，简单的组合起来就是一个复杂的过程，也是一个学习的过程。
以下是50个常用的VBA程序代码：
1. 打开一个新的工作簿：Workbooks.Add
2. 打开一个已有的工作簿：Workbooks.Open("文件路径")
3. 关闭当前工作簿：ActiveWorkbook.Close
4. 保存当前工作簿：ActiveWorkbook.Save
5. 保存当前工作簿为指定名称：ActiveWorkbook.SaveAs("文件路径")
6. 选择指定单元格：Range("A1").Select
7. 复制指定单元格：Range("A1").Copy
8. 粘贴到指定单元格：Range("B1").PasteSpecial xlPasteAll
9. 设置单元格的值：Range("A1").Value = "Hello World"
10. 获取单元格的值：MsgBox Range("A1").Value
11. 设置单元格的背景色：Range("A1").Interior.ColorIndex = 3
12. 设置单元格的字体颜色：Range("A1").Font.ColorIndex = 2
13. 设置单元格的字体大小：Range("A1").Font.Size = 12
14. 设置单元格的字体名称：Range("A1").Font.Name = "Arial"
15. 设置单元格的字体加粗：Range("A1").Font.Bold = True
16. 设置单元格的字体斜体：Range("A1").Font.Italic = True
17. 设置单元格的字体下划线：Range("A1").Font.Underline = True
18. 设置单元格的对齐方式：Range("A1").HorizontalAlignment = xlCenter
19. 设置单元格的边框：Range("A1").Borders.LineStyle = xlContinuous
20. 设置单元格的格式：Range("A1").NumberFormat = "0.00"
21. Option Explicit '强制对模块内所有变量进行声明
22. Option Base 1 '指定数组的第一个下标为1
23. On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
24. On Error GoTo 100 '当错误发生时跳转到过程中的某个位置
25. On Error GoTo 0 '恢复正常的错误提示
26. Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示
27. Application.DisplayAlerts=True '在程序执行过程中恢复显示警告框
28. Application.ScreenUpdating=False '关闭屏幕刷新
29. Application.ScreenUpdating = True '打开屏幕刷新
30. Workbooks.Add() '创建一个新的工作簿
31. Workbooks(“book1.xls”).Activate '激活名为book1的工作簿
