当前位置：首页 > VBA中常见函数
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。 VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。 VbRetryCancel 5 显示 Retry 及 Cancel 按钮。 VbCritical 16 显示 Critical Message 图标。 VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。 VbInformation 64 显示 Information Message 图标。 vbDefaultButton1 0 第一个按钮是缺省值。 vbDefaultButton2 256 第二个按钮是缺省值。 vbDefaultButton3 512 第三个按钮是缺省值。 vbDefaultButton4 768 第四个按钮是缺省值。
vbApplicationModal 0 应用程序强制返回；应用程序一直被挂起直到用户对消息框作出响应才继续工作。
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。
vbMsgBoxHelpButton 16384 将Help按钮添加到消息框
VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口 vbMsgBoxRight 524288 文本为右对齐
vbMsgBoxRtlReading 1048576 指定文本应为在希伯来和阿拉伯语系统中的从右到左显示
第一组值 (0–5) 描述了对话框中显示的按钮的类型与数目； 第二组值 (16, 32, 48, 64) 描述了图标的样式； 第三组值 (0, 256, 512) 说明哪一个按钮是缺省值；
第四组值 (0, 4096) 则决定消息框的强制返回性。将这些数字相加以生成 buttons 参数值的时候，只能由每组值取用一个数字。 第五组值 (16384, 65536，524288，1048576)是附加选项。
注意 这些常数都是 Visual Basic for Applications (VBA) 指定的。结果，可以在程序代码中到处使用这些常数名称，而不必使用实际数值。 返回值
常数 值 描述 vbOK 1 确定 vbCancel 2 取消
vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 说明
在提供了 helpfile 与 context 的时候，用户可以按 F1(Windows) or HELP (Macintosh) 来查看与 context 相应的帮助主题。像 Microsoft Excel 这样一些主应用程序也会在对话框中自动添加一个 帮助 按钮。
如果对话框显示 取消 按钮，则按下 ESC 键与单击 取消 按钮的效果相同。如果对话框中有 Help 按钮，则对话框中提供有上下文相关的帮助。但是，直到其它按钮中有一个被单击之前，都不会返回任何值。 注意 如果还要指定第一个命名参数以外的参数，则必须在表达式中使用 MsgBox。为了省略某些位置参数，必须加入相应的逗号分界符。
第1.31例 Now函数
一、题目：
要求编写一段代码，使用 Now 函数返回系统当前的日期与时间。 二、代码：
Sub 示例_1_031()
Dim jt jt = Now
End Sub
三、代码详解
1、Sub 示例_1_031()：宏程序的开始语句。宏名为示例_1_031。 2、Dim jt ：声明变量jt为可变型变量。
3、jt = Now ：把系统当前的日期与时间赋给变量jt。
注意：Now函数里包含时间，如果只需要日期，可用Date函数。Date函数请见第1_05例。 Now 函数
返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。
第1.32例 RGB函数
一、题目：
要求编写一段代码，使用 RGB 函数返回A1单元格的底色和字体的 RGB 色彩值。
二、代码：
Sub 示例_1_032()
Dim hs, I, RGBValue
hs = RGB(255, 255, 0) I = 35
RGBValue = RGB(I, 64 + I, 128 + I) Cells(5, 1).Interior.Color = RGBValue Cells(5, 1).Font.Color = hs End Sub
三、代码详解
1、Sub 示例_1_032()：宏程序的开始语句。宏名为示例_1_032。 2、Dim hs, I, RGBValue ：声明变量均为可变型变量。
3、hs = RGB(255, 255, 0) ：把红绿蓝色彩空间的色彩值赋给变量hs（黄色）。 4、I = 35 ：把35赋给变量I。
5、RGBValue = RGB(I, 64 + I, 128 + I) ：把不变量I作为偏移量计算得到的红绿蓝色彩空间中的RGB(35, 99, 163)颜色赋给变量RGBValue。
6、Cells(5, 1).Interior.Color = RGBValue ：把颜色赋给单元格A5的底色。 7、Cells(5, 1).Font.Color = hs ：把黄色赋给单元格A5的字体。 RGB函数
用来表示一个RGB颜色值。 RGB(red, green, blue) RGB函数的参数
red 必要的参数，Variant (Integer)，数值范围从0～255，表示颜色的红色成分
green 必要的参数，Variant (Integer)，数值范围从0～255，表示颜色的绿色成分
Blue 必要的参数，Variant (Integer)，数值范围从0～255，表示颜色的蓝色成分
注意：使用RGB函数设置颜色受系统限制，如果系统只能显示16色，那么RGB函数就不能设置出更多的颜色。
第1.33例 Rnd函数
一、题目：
要求编写一段代码，使用 Rnd 函数随机生成一个 1 到 100 的随机整数。 二、代码：
Sub 示例_1_033() Dim x%
For x = 1 To 10
Cells(x, 2) = Int((100 * Rnd) + 1) ' 生成 1 到 100 之间的随机数值。
Next x End Sub
三、代码详解
1、Sub 示例_1_033()：宏程序的开始语句。宏名为示例_1_033。 2、Dim x% ：声明变量x为整型变量。
3、For x = 1 To 10 ：x从1 到10进行循环。
4、Cells(x, 2) = Int((100 * Rnd) + 1) ：把使用Rnd 函数产生的随机数乘100加1以后再取整得到的数值依次赋给B列单元格。 Rnd 函数
返回一个包含随机数值的 Single。 Rnd[(number)]
可选的 number 参数是 Single 或任何有效的数值表达式。 返回值
如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。
大于 0 序列中的下一个随机数。 等于 0 最近生成的数。 省略 序列中的下一个随机数。 说明
Rnd 函数返回小于 1 但大于或等于 0 的值。 number 的值决定了 Rnd 生成随机数的方式。
对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。 在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
第1.34例 Round函数
一、题目：
要求编写一段代码，使用 Round 函数返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。 二、代码：
Sub 示例_1_034() Dim Zdz
Zdz = Round(5.235, 2) '返回5.24 Zdz = Round(5.225, 2) '返回5.22 Zdz = Round(2.5) '返回2
Zdz = Round(2.6) '返回3 End Sub
三、代码详解
1、Sub 示例_1_034()：宏程序的开始语句。宏名为示例_1_034。
2、Dim Zdz! ：声明变量Zdz为单精度浮点型变量。!是单精度浮点型的类型声明字符，其它类型声明字符请见第1_024例。
3、Zdz = Round(5.235, 2) ：把指定数值5.235运用Round 函数按照小数点后面2位进行四舍五入运算的结果赋给变量Zdz，返回5.24。
4、Zdz = Round(5.225, 2) ：把指定数值5.225运用Round 函数按照小数点后面2位进行四舍五入运算的结果赋给变量Zdz，返回5.22。请大家注意：这里的答案不准确！与我们运用工作表Round函数运算的结果不一样。其原因是VBA的Round 函数采用的是Banker舍入法，而不是算术舍入。按照Banker舍入规则，如果保留位数的下一位数字正好是5且其后没有其它的有效数字，则依保留位最后一位“偶舍奇入”的方法进行处理。
本文作者：...共分享92篇相关文档
