以下是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. 插入一行：Rows(1).Insert

22. 删除一行：Rows(1).Delete

23. 插入一列：Columns(1).Insert

24. 删除一列：Columns(1).Delete

25. 隐藏指定行：Rows(1).Hidden = True

26. 隐藏指定列：Columns(1).Hidden = True

27. 显示所有行：Rows.Hidden = False

28. 显示所有列：Columns.Hidden = False

29. 设置单元格的宽度：Columns('A').ColumnWidth = 15

30. 设置单元格的高度：Rows('1').RowHeight = 30

31. 获取当前工作表的名称：MsgBox ActiveSheet.Name

32. 获取当前工作表的行数：MsgBox
ActiveSheet.UsedRange.Rows.Count

33. 获取当前工作表的列数：MsgBox
ActiveSheet.UsedRange.Columns.Count

34. 获取当前工作表的总单元格数：MsgBox
ActiveSheet.UsedRange.Cells.Count

35. 获取当前工作表的最大行数：MsgBox ActiveSheet.Rows.Count

36. 获取当前工作表的最大列数：MsgBox ActiveSheet.Columns.Count

37. 获取当前工作表的最大单元格数：MsgBox ActiveSheet.Cells.Count

38. 获取当前工作表的第一行：MsgBox ActiveSheet.Rows(1).Address

39. 获取当前工作表的第一列：MsgBox ActiveSheet.Columns(1).Address

40. 获取当前工作表的最后一行：MsgBox ActiveSheet.Rows(ActiveSheet.Rows.Count).Address

41. 获取当前工作表的最后一列：MsgBox ActiveSheet.Columns(ActiveSheet.Columns.Count).Address

42. 获取当前工作表的选定区域：MsgBox Selection.Address

43. 获取当前工作表的活动单元格：MsgBox ActiveCell.Address

44. 获取当前工作表的选定单元格：MsgBox Selection.Cells.Count

45. 获取当前工作表的选定行数：MsgBox Selection.Rows.Count

46. 获取当前工作表的选定列数：MsgBox Selection.Columns.Count

47. 获取当前工作表的选定区域的值：MsgBox Selection.Value

48. 获取当前工作表的选定区域的背景色：MsgBox
Selection.Interior.ColorIndex

49. 获取当前工作表的选定区域的字体颜色：MsgBox Selection.Font.ColorIndex

50. 获取当前工作表的选定区域的字体大小：MsgBox Selection.Font.Size