VBA操作Excel之设置单元格属性

VBA操作Excel简介

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

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参数说明如下：

获取窗口输入
显示用于用户输入的对话框，通过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)