vba学习记录2-CSDN博客

前言

昨天初步了解了vba是什么，以及学习了一个简单的msgbox函数，今天继续来学习vba。

一、

工作簿事件窗口的代码：在工作簿满足代码所指定的条件时自动触发，比方你可以在这里面编写一个弹出“欢迎来到excel”的弹窗，那么后面每次当你打开这个表格文件时，都会弹出弹窗欢迎你。

对于新手而言，所有的代码都建议保存在模块中。

在编写vba代码时，要注意代码的层次，通过tab健使程序的结构层次更加清晰

示例1：

Sub 设置单元格格式()                     '放置位置：模块中
With ActiveCell.Font                    '设置单元格的字体
.Bold = True                            '字体加粗
.Italic = True                          '字体倾斜
.Underline = xlUnderlineStyleSingle     '添加单下画线
.Name = "宋体"                          '字体名称设置为宋体
.Size = 9                               '字体大小为9号
End With
With ActiveCell.Borders                 '设置单元格的边框
.LineStyle = xlContinuous               '边框采用实线
.ColorIndex = 3                         '指定边框颜色为红色
.Weight = xlMedium                      '指定线条的粗细为中等
End With
End Sub里插入代码片

示例2：

Sub 设置单元格格式()                         '放置位置：模块中
    With ActiveCell.Font                    '设置单元格的字体
        .Bold = True                        '字体加粗
        .Italic = True                      '字体倾斜
        .Underline = xlUnderlineStyleSingle '添加单下画线
        .Name = "宋体"                      '字体名称设置为宋体
        .Size = 9                           '字体大小为9号
    End With
    With ActiveCell.Borders                 '设置单元格的边框
        .LineStyle = xlContinuous           '边框采用实线
        .ColorIndex = 3                     '指定边框颜色为红色
        .Weight = xlMedium                  '指定线条的粗细为中等
    End With
End Sub

很明显，第二种书写形式的代码可读性更高，所以要多多按照第二种结构来编写代码。

条件判断：当现在处于下午时，使用msgbox函数输出“下午好”，反之输出“上午好”
代码如下：

Sub 问候()
    If Hour(Now) > 12 Then
        MsgBox "下午好", 1 + 32 + 0
    Else
        MsgBox "上午好", 1 + 32 + 0
    End If
End Sub

点击运行后，输出结果如下：
if条件判断时间输出问候语句

因为笔者在执行这段代码时处于下午，所以输出下午好。
同时我们可以看到，msg后面有一个1+32+0，在上一篇文章中我们学过，第一个数字1表示按钮样式，也就是“确定”和“取消，第二个数字32”表示图标样式为问号，第三个数字0表示默认选择第一个按钮，也就是选择确定。
我们可以看到，点击运行后，系统已经默认帮我们选择了第一个选项确定。