Excel VBA 完整代码示例

"该资源提供的是关于Excel VBA的全代码示例，这些代码适用于所有版本的Excel，但并未包含具体的应用实例。" 在Excel VBA（Visual Basic for Applications）编程中，我们可以直接操作Excel对象模型来实现各种自动化任务。以下是一些关键的VBA代码片段，它们展示了如何控制Excel应用程序、工作簿、工作表以及单元格等元素： 1) 显示Excel窗口： ```vba ExcelID.Visible = True ``` 这行代码将确保Excel应用程序窗口对用户可见。 2) 修改Excel标题： ```vba ExcelID.Caption = "我的Excel示例" ``` 此代码将Excel窗口的标题栏文本更改为指定的字符串。 3) 创建新工作簿： ```vba ExcelID.Workbooks.Add ``` 调用此方法会在当前Excel应用中添加一个新的空白工作簿。 4) 打开指定的工作簿： ```vba ExcelID.Workbooks.Open("C:\Excel\Demo.xls") ``` 这段代码会打开指定路径下的“Demo.xls”文件。 5) 切换到第二个工作表： ```vba ExcelID.Worksheets[2].Activate ExcelID.Worksheets["Sheet2"].Activate ``` 这两行代码可以激活并显示工作簿中的第二个工作表，或者直接通过工作表名称切换。 6) 设置单元格值： ```vba ExcelID.Cells[1, 4].Value = "示例数据" ``` 这行代码将单元格A4的值设置为指定的文本。 7) 调整列宽： ```vba ExcelID.ActiveSheet.Columns[1].ColumnWidth = 5 ``` 这将设置活动工作表的第一列宽度为5个标准单元格宽度。 8) 设置行高： ```vba ExcelID.ActiveSheet.Rows[2].RowHeight = 1 / 0.035 ``` 此代码将第二行的高度设置为1英寸（假设默认单位是厘米）。 9) 添加页面分隔符： ```vba ExcelID.Worksheets[1].Rows[8].PageBreak = xlPageBreakManual ``` 这会在第八行添加手动页分隔符。 10) 删除页面分隔符： ```vba ExcelID.ActiveSheet.Columns[4].PageBreak = xlPageBreakNone ``` 这将删除第四列上的页面分隔符。 11) 设置边框样式： ```vba ExcelID.ActiveSheet.Range["B3:D4"].Borders[xlEdgeBottom].Weight = xlThick ``` 这将设置范围B3到D4的下边框线的粗细为粗线。 12) 清除单元格内容： ```vba ExcelID.ActiveSheet.Cells[1, 4].ClearContents ``` 这行代码会清除单元格A4的内容。 13) 修改字体属性： ```vba ExcelID.ActiveSheet.Rows[1].Font.Name = "Arial" ExcelID.ActiveSheet.Rows[1].Font.Color = RGB(0, 0, 255) '蓝色 ExcelID.ActiveSheet.Rows[1].Font.Bold = True ``` 这些代码将第一行的字体设置为Arial，颜色设为蓝色，并使字体加粗。 请注意，虽然这里提供了各种基础操作的代码，但实际的VBA项目可能需要结合更多的逻辑、错误处理和特定功能来创建复杂的自动化流程。在没有具体实例的情况下，理解这些基本操作是构建自定义Excel解决方案的基础。