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

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

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

Sub 开心辞典()Dim DA As Integer, TM As Integer, FS As IntegerDim i As IntegerFor i = 2 To 11DA = MsgBox(Range("A" & i).Value, vbYesNo + vbQuestion + vbDefaultButton1, "开心辞典")If DA = 6 ThenRange("C" & i).Value = "√"ElseRange("C" & i).Value = "×"End IfIf Range("B" & i).Value = "√" ThenTM = 6ElseTM = 7End IfIf TM = DA ThenFS = FS + 10End IfNext iRange("C12").Value = FSIf FS >= 90 ThenDA = MsgBox("你最棒", vbCritical + vbDefaultButton1, "开心辞典")Range("C13").Value = "你最棒"ElseIf FS >= 60 ThenDA = MsgBox("还可以", vbCritical + vbDefaultButton1, "开心辞典")Range("C13").Value = "还可以"End IfDA = MsgBox("失败", vbExclamation + vbDefaultButton1, "开心辞典")Range("C13").Value = "失败"End IfEnd Sub

MsgBox是Visual Basic的一个函数，功能是弹出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。“MsgBox”即为“Message Box”的缩写，在英语中意为“信箱”。

语法：MsgBox (Prompt [,Buttons] [,Title] [,Helpfile,Context])

MsgBox函数参数：

Buttons参数设置值：常数都是Visual Basic for Applications（VBA）指定的。所以，可以在程序代码中使用这些常数名称，而不使用实际数值。

MsgBox函数返回值：

Msgbox百度百科地址：

Msgbox百度百科

VBA代码实例---Msgbox函数及应用实例相关推荐

php弹窗图片代码大全,render函数生成图片弹窗实例(自己项目实际代码）
项目中列表显示缩略图,决定做一个双击的图片弹窗效果,项目用的iview的UI框架,用到Modal组件的,以下是render函数生成的图片弹框的原始代码.双击动作调用showLargeImage方法,以 ...
python装饰器实例-Python函数装饰器--实例讲解
一.装饰器定义: 1.装饰器的本质为函数: 2.装饰器是用来完成被修饰函数的附加功能的所以:装饰器是用来完成被修饰函数附属功能的函数装饰器的要求: 1.不能修改被修饰函数的源代码: 2.不能更改被 ...
VBA中的MsgBox函数使用
首先来看一下MsgBox的基本语法格式: MsgBox(prompt[, buttons] [, title] [, helpfile, context]) 下面就其中的各参数进行详细的讲解 2. p ...
mod函数在计算机中实例,excel MOD函数的使用方法实例 MOD函数的公式语法及使用方法实例...
excel MOD函数的使用方法实例 MOD函数的公式语法及使用方法实例,这个问题是我们很多人都很困惑的一个问题,excel MOD函数的使用方法实例是我们非常常用的一个东西,也是我们工作和学习中必不 ...
vba定义全局变量并赋值_利用VBA代码如何打开任意程序
大家好,后疫情时代一定会到来,各行各业,都将是一场战胜萧条的无声的战役.无论怎样,我们一定要坚信,疫情终将会过去,曙光一定会到来.后疫情时代将会是一个全新的世界,很多理念都将被打破,大多数人不会再享受 ...
用python批量执行VBA代码
先说下背景环境 1. 公司需要问卷调查,有两份问卷, 1)是spss问卷,2)是excel问卷.spss问卷数据不全,但有各种标签, excel呢, 生成的数据直接把选项变成了值 2. 现在需要把ex ...
vba代码编程800例_VBA编程常用过程代码实例2630
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 分享成果,随喜真能量.大家 ...
OpenCV使用函数compareHist的实例(附完整代码)
OpenCV使用函数compareHist的实例 OpenCV使用函数compareHist的实例 OpenCV使用函数compareHist的实例 #include "opencv2/im ...
OpenCV使用函数calcHist的实例(附完整代码)
OpenCV使用函数calcHist的实例 OpenCV使用函数calcHist的实例 OpenCV使用函数calcHist的实例 #include "opencv2/highgui.hpp ...

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

VBA代码实例---Msgbox函数及应用实例相关推荐

最新文章

热门文章