以下是50個常用的VBA程序代碼：

1. 打開一個新的工作簿：Workbooks.Add

2. 打開一個已有的工作簿：Workbooks.Open('文件路徑')

3. 關(guān)閉當(dāng)前工作簿：ActiveWorkbook.Close

4. 保存當(dāng)前工作簿：ActiveWorkbook.Save

5. 保存當(dāng)前工作簿為指定名稱：ActiveWorkbook.SaveAs('文件路徑')

6. 選擇指定單元格：Range('A1').Select

7. 復(fù)制指定單元格：Range('A1').Copy

8. 粘貼到指定單元格：Range('B1').PasteSpecial xlPasteAll

9. 設(shè)置單元格的值：Range('A1').Value = 'Hello World'

10. 獲取單元格的值：MsgBox Range('A1').Value

11. 設(shè)置單元格的背景色：Range('A1').Interior.ColorIndex = 3

12. 設(shè)置單元格的字體顏色：Range('A1').Font.ColorIndex = 2

13. 設(shè)置單元格的字體大?。篟ange('A1').Font.Size = 12

14. 設(shè)置單元格的字體名稱：Range('A1').Font.Name = 'Arial'

15. 設(shè)置單元格的字體加粗：Range('A1').Font.Bold = True

16. 設(shè)置單元格的字體斜體：Range('A1').Font.Italic = True

17. 設(shè)置單元格的字體下劃線：Range('A1').Font.Underline = True

18. 設(shè)置單元格的對齊方式：Range('A1').HorizontalAlignment = xlCenter

19. 設(shè)置單元格的邊框：Range('A1').Borders.LineStyle = xlContinuous

20. 設(shè)置單元格的格式：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. 設(shè)置單元格的寬度：Columns('A').ColumnWidth = 15

30. 設(shè)置單元格的高度：Rows('1').RowHeight = 30

31. 獲取當(dāng)前工作表的名稱：MsgBox ActiveSheet.Name

32. 獲取當(dāng)前工作表的行數(shù)：MsgBox
ActiveSheet.UsedRange.Rows.Count

33. 獲取當(dāng)前工作表的列數(shù)：MsgBox
ActiveSheet.UsedRange.Columns.Count

34. 獲取當(dāng)前工作表的總單元格數(shù)：MsgBox
ActiveSheet.UsedRange.Cells.Count

35. 獲取當(dāng)前工作表的最大行數(shù)：MsgBox ActiveSheet.Rows.Count

36. 獲取當(dāng)前工作表的最大列數(shù)：MsgBox ActiveSheet.Columns.Count

37. 獲取當(dāng)前工作表的最大單元格數(shù)：MsgBox ActiveSheet.Cells.Count

38. 獲取當(dāng)前工作表的第一行：MsgBox ActiveSheet.Rows(1).Address

39. 獲取當(dāng)前工作表的第一列：MsgBox ActiveSheet.Columns(1).Address

40. 獲取當(dāng)前工作表的最后一行：MsgBox ActiveSheet.Rows(ActiveSheet.Rows.Count).Address

41. 獲取當(dāng)前工作表的最后一列：MsgBox ActiveSheet.Columns(ActiveSheet.Columns.Count).Address

42. 獲取當(dāng)前工作表的選定區(qū)域：MsgBox Selection.Address

43. 獲取當(dāng)前工作表的活動單元格：MsgBox ActiveCell.Address

44. 獲取當(dāng)前工作表的選定單元格：MsgBox Selection.Cells.Count

45. 獲取當(dāng)前工作表的選定行數(shù)：MsgBox Selection.Rows.Count

46. 獲取當(dāng)前工作表的選定列數(shù)：MsgBox Selection.Columns.Count

47. 獲取當(dāng)前工作表的選定區(qū)域的值：MsgBox Selection.Value

48. 獲取當(dāng)前工作表的選定區(qū)域的背景色：MsgBox
Selection.Interior.ColorIndex

49. 獲取當(dāng)前工作表的選定區(qū)域的字體顏色：MsgBox Selection.Font.ColorIndex

50. 獲取當(dāng)前工作表的選定區(qū)域的字體大?。篗sgBox Selection.Font.Size