参考链接:https://www.wallstreetmojo.com/vba-debug-print/
Debug 是 VBA 中的一个对象,与 Assert 和 Print 这两种方法一起使用。在 VBA 中,Debug.Print 语句用于编码程序的任何地方,以在 即时窗口(ctrf+G) 中显示变量或消息的值。这些不需要任何确认,并且不会对开发的代码产生任何影响。
示例 #1 – 显示变量的值
Sub Variables() Dim X As Integer Dim Y As String Dim Z As Double X = 5 Y = "John" Z = 105.632 Debug.Print X Debug.Print Y Debug.Print Z End Sub
Example #2 – 输出到文件
Sub DebugPrintToFile() Dim s As String Dim num As Integer num = FreeFile() Open "D:ArticlesExceltest.txt" For Output As #num s = "Hello, world!" Debug.Print s ' write to the immediate window Print #num, s ' write output to file Close #num End Sub
Example #3 – 在即时窗口中显示数字的阶乘
Public Sub Fact() Dim Count As Integer Dim number As Integer Dim Fact As Integer number = 5 Fact = 1 For Count = 1 To number Fact = Fact * Count Next Count Debug.Print Fact End Sub
Example #4 – 打印活动工作簿的全名
说明如何将当前工作簿名称打印到提示窗口中
Sub Activework() Dim count As Long For count = 1 To Workbooks.count Debug.Print Workbooks(count).FullName Next count Debug.Print count End Sub
这里的“count”是用来计算活动工作簿数量并显示活动工作簿全名的变量。显示活动工作簿的全名和数量,如图所示。
要记住的事情
- Debug.print 的主要问题是即时窗口中没有长字符串的文本换行选项
- 立即窗口应置于顶部查看用户界面中的输出
- 无法对立即窗口中显示的长文本进行换行。在这种情况下,需要将结果显示到存储在驱动器中的文件中。