VBA程序怎么做测试

常用的F8，以及Ctrl+F8，来看哪句报错，变量当前值等。

如果要看过程中变量赋值的情况，Debugprint xx，会在立即窗口中输出变量所取的值。

>

一般是在上面显示信息和计算

显示语法：DebugPrint Str

Str是要显示的信息

计算方法：方法1：示例：DebugPrint 1+1 Debug那会显示2

方法2：直接在debug那输入算式

他在程序中起调试作用和计算器作用，他可以显示程序内数据，又不会在程序生成后显示在客户面前

Worksheets("工资表")Range (CStr(i) & ":" & CStr(i)) Copy (Worksheets("工资条")Cells(3 i - 6, 1))

改为:

Worksheets("工资表")Range (CStr(i) & ":" & CStr(i))Copy (Worksheets("工资条")Cells(3 i - 6, 1))

就可以了

这个写在通用里：

Option Explicit

Private Flag As Boolean

添加一个开始按钮，代码如下：

Private Sub CommandButton1_Click()

Dim cell As Range

Flag = False

Do Until Flag = True

Range("A1:A28")Cells(Int(Rnd()  28) + 1)Select

DoEvents

Loop

End Sub

添加一个结束按钮，写入以下代码：

Private Sub CommandButton2_Click()

Flag = True

End Sub

在excel里测试可用，，你可以如上添加两个命令按钮

界面如下，点start开始，点result结束

补充问题：第二个按钮加上以下几句

With SelectionFont

Bold = True

Color = RGB(255, 0, 0)

Name = "黑体"

End With

第二个按钮代码 改为

Private Sub CommandButton2_Click()

Flag = True

With SelectionFont

Bold = True

Color = RGB(255, 0, 0)

Name = "黑体"

End With

End Sub

看我新传的，试了三次，结果如图

要的话导出来给你

以上就是关于VBA程序怎么做测试全部的内容，包括:VBA程序怎么做测试、进行vba程序开发使用的编辑和调试工具是什么、VBA中debugger该如何使用等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！