顯示2010年至2015年msgbox中的所有數字

Question

如何顯示來自所有數字。例如，一個價值2010另一2015年，我想在MSGBOX顯示：2010年2011年2012年2013年2014 2015

感謝

Answer 1

這應該做的伎倆：

Option Explicit 

Sub tmpSO() 

Dim lngNumber As Long 
Dim txtMessage As String 

For lngNumber = 2010 To 2015 
    txtMessage = txtMessage & lngNumber & Chr(10) 
Next lngNumber 

MsgBox txtMessage 

End Sub