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

最新推荐文章于 2023-06-24 13:30:50 发布

weixin_46846685

最新推荐文章于 2023-06-24 13:30:50 发布

阅读量7.6k

点赞数 7

分类专栏： VBA 文章标签： vba excel cell

本文链接：https://blog.csdn.net/weixin_46846685/article/details/108948855

版权

VBA 专栏收录该内容

4 篇文章 1 订阅

订阅专栏

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 ])
各个参数说明如下：
在这里插入图片描述