VBA操作Excel简介

一、VBA读写Excel文件二、VBA设置单元格属性三、VBA弹出输入和输出窗口参考文档

一、VBA读写Excel文件

VBA简介及打开Excel文件方法见VBA读写Excel文件报错Debug，这里不再赘述，只介绍新建和关闭Excel文件代码如下：

Workbooks.Add'创建一个新的工作簿即excel文件 fn="D:\test01.xls"'待打开的文件路径 Set wb = Workbooks.Open(fn) wb.Close savechanges:=False'false为不保存，true为保存

当前VBA依托的Excel工作簿对象名称为ThisWorkbook，当需要对其进行操作时，使用如下代码：

ThisWorkbook.Sheets(1).Cells(1, 1) = "hello"

二、VBA设置单元格属性

设置单元格格式 设置单元格高度、宽度、对齐方式、字体大小等参数，代码如下：

ThisWorkbook.Sheets(1).Cells(row01, 1).RowHeight = 40'设置单元格行高 ThisWorkbook.Sheets(1).Cells(row01, 1).ColumnWidth = 40'设置单元格列宽 ThisWorkbook.Sheets(1).Cells(row01, 1).Font.Size = 24'设置字体大小 ThisWorkbook.Sheets(1).Cells(row01, 1).Font.Name = "Times New Roman"'设置字体类型 ThisWorkbook.Sheets(1).Cells(row01, 3).Font.ColorIndex = 45'设置字体颜色 ThisWorkbook.Sheets(1).Cells(row01, 3).Font.Bold = True'设置字体加粗 ThisWorkbook.Sheets(1).Cells(row01, 3).Font.Italic = True'设置字体倾斜 ThisWorkbook.Sheets(1).Cells(row01, 1).HorizontalAlignment = xlCenter'设置水平对齐方式，类型有xlLeft，xlRight，xlLeft ThisWorkbook.Sheets(1).Cells(row01, 1).VerticalAlignment = xlCenter'设置垂直对齐方式 ThisWorkbook.Sheets(1).Cells(row01, 1).Borders.LineStyle = xlContinuous'设置边框类型为实线，全框 ThisWorkbook.Sheets(1).Cells(row01, 1).Borders.Color = RGB(0, 0, 0)'设置边框颜色

边框类型主要有以下几种： 字体颜色可以通过VBA内部索引设置，VBA内置的颜色及对应的值如下： 也可以通过RGB值直接设置，如Color = RGB(0, 0, 0)。 获取最后一行和最后一列 有时我们需要获得工作表中带有数据的最后一行或最后一列 那么可以使用如下代码：

row01 = ThisWorkbook.Sheets(1).Range("a" & ThisWorkbook.Sheets(1).Rows.Count).End(xlUp).Row'获取a列的最后一行 col01 = ThisWorkbook.Sheets(1).Cells(2, ThisWorkbook.Sheets(1).Columns.Count).End(xlToLeft).Column'获取第二行的最后一列

End参数说明如下：

三、VBA弹出输入和输出窗口

获取窗口输入 显示用于用户输入的对话框，通过Application.InputBox方法来实现，代码如下：

Dim note01 As String Dim num01 As String note01 = "请输入姓名"'窗口显示的消息 name01 = Application.InputBox(prompt:=note01, title:=note01)'获取到的值赋值给name01

该方法参数为InputBox (Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)，说明如下 Type 参数是指返回的数据类型， 可以是一个值，也可以将多个值相加。 例如，对于可接受文本和数字的输入框，将 Type 设置为 1 + 2。 将输出显示到窗口 将一些信息以窗口提示的方式显示出来，使用MsgBox方法，语法为 MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ]) 各个参数说明如下：

参考文档

Excel VBA入门（八）单元格边框 Excel VBA:设置行高与列宽 vba设置Excel单元格左对齐、右对齐、居中对齐、字体、字号、字型 Application.InputBox 方法 (Excel) MsgBox 函数 Excel-VBA常用对象(Application、Workbook、Worksheet、Range)