[ExcelVBA] Debug.Printで200回以上使っても見切れない方法

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] ExcelVBA ALL >[ExcelVBA] AdventCalendar

アドベントカレンダー 18日目

さて、そろそろネタも少なくなってきたので
だれが使っているんだろう・・・
みたいなネタを一つ。

Debug.Printでイミディエイトウィンドウに出力した際
200行を超えると先頭の行から消えて行くため、
それ以上を一度に表示することはできません。

厳密には、199回+改行で200行となるので199回出力したらその次から最初の方から削除されることになります。

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     Dim i As Integer  
5.       
6.     For i = 1 To 199  
7.         Debug.Print i  
8.     Next  
9. End Sub  

Option Explicit

Sub SampleCode()
    Dim i As Integer
    
    For i = 1 To 199
        Debug.Print i
    Next
End Sub

↑これが限界？

ちょっと悔しいですね。
じゃ、それ以上表示しましょ。

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     Dim i As Integer  
5.       
6.     For i = 1 To 300  
7.         Debug.Print i;  
8.     Next  
9. End Sub  

Option Explicit

Sub SampleCode()
    Dim i As Integer
    
    For i = 1 To 300
        Debug.Print i;
    Next
End Sub

これで楽勝ではいりましたね。
Debug.Printの最後尾に ; をつけると改行されません！
以上。

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] ExcelVBA ALL >[ExcelVBA] AdventCalendar