VBA代码实例---Msgbox函数及应用实例

最新推荐文章于 2024-08-20 17:04:37 发布

半个馒头

最新推荐文章于 2024-08-20 17:04:37 发布

阅读量2.7w

点赞数 1

分类专栏： office技能技巧（Excel/PPT/Word/VBA）

本文链接：https://blog.csdn.net/bangemantou/article/details/70146067

版权

本文介绍了VBA中Msgbox函数的使用，通过实例展示了如何利用Msgbox创建一个评分系统。在该系统中，B列存储正确答案，C列记录挑战者的回答，每答对一题得10分，最终得分在C12单元格显示，C13单元格则根据得分确定等级。

摘要由CSDN通过智能技术生成

知识点：Msgbox的使用；for语句；

实例：B列为正确答案，C列填写挑战者答案，对一个10分，C12填写最终得分，C13填等级。

Sub 开心辞典()
    
    Dim DA As Integer, TM As Integer, FS As Integer
    Dim i As Integer
    For i = 2 To 11
        DA = MsgBox(Range("A" & i).Value, vbYesNo + vbQuestion + vbDefaultButton1, "开心辞典")
        If DA = 6 Then
            Ra