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

女爷i 2022-12-12 13:46 1055阅读 0赞

### VBA操作Excel简介 ###

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

# 一、VBA读写Excel文件 #

VBA简介及打开Excel文件方法见[VBA读写Excel文件报错Debug][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)'设置边框颜色

边框类型主要有以下几种：  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80Njg0NjY4NQ_size_16_color_FFFFFF_t_70_pic_center]  
字体颜色可以通过VBA内部索引设置，VBA内置的颜色及对应的值如下：  
![在这里插入图片描述][2020101523363332.JPG_pic_center]  
也可以通过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参数说明如下：  
![在这里插入图片描述][2020101710423834.JPG_pic_center]

# 三、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)，说明如下  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80Njg0NjY4NQ_size_16_color_FFFFFF_t_70_pic_center 1]  
Type 参数是指返回的数据类型， 可以是一个值，也可以将多个值相加。 例如，对于可接受文本和数字的输入框，将 Type 设置为 1 + 2。  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80Njg0NjY4NQ_size_16_color_FFFFFF_t_70_pic_center 2]  
将输出显示到窗口  
将一些信息以窗口提示的方式显示出来，使用MsgBox方法，语法为  
MsgBox (prompt, \[ buttons, \] \[ title, \] \[ helpfile, context \])  
各个参数说明如下：  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80Njg0NjY4NQ_size_16_color_FFFFFF_t_70_pic_center 3]

# 参考文档 #

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

[VBA_Excel_Debug]: https://blog.csdn.net/weixin_46846685/article/details/108897988
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80Njg0NjY4NQ_size_16_color_FFFFFF_t_70_pic_center]: /images/20221123/25cca28594a94f328df76e27eb78cb3b.png
[2020101523363332.JPG_pic_center]: /images/20221123/67ab7d503b064dd09f327a13c7361c5e.png
[2020101710423834.JPG_pic_center]: /images/20221123/21b4c3a61ba2456a93d002e5d593d776.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80Njg0NjY4NQ_size_16_color_FFFFFF_t_70_pic_center 1]: /images/20221123/6bdd71004d1a4d499c34895e2843b240.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80Njg0NjY4NQ_size_16_color_FFFFFF_t_70_pic_center 2]: /images/20221123/fce87111817b465ea9981079b59f1208.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80Njg0NjY4NQ_size_16_color_FFFFFF_t_70_pic_center 3]: /images/20221123/47eda702cece4dcbbf0799193ca167c3.png
[Excel VBA]: https://www.cnblogs.com/wuzhiblog/p/vba_eight.html
[Excel VBA 1]: https://blog.csdn.net/csdndscs/article/details/103797824
[vba_Excel]: https://blog.csdn.net/u012867174/article/details/23272697
[Application.InputBox _ _Excel]: https://docs.microsoft.com/zh-cn/office/vba/api/excel.application.inputbox
[MsgBox]: https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/msgbox-function
[Excel-VBA_Application_Workbook_Worksheet_Range]: https://www.cnblogs.com/wzh313/articles/9739085.html