3 個實用的 VBA MsgBox 換行方法

使用 VBA 時，我們可以呼叫 MsgBox 函數顯示訊息視窗，傳遞訊息給使用者。當訊息視窗有多個句子，為了提升閱讀性以及美觀，我們可以利用“換行”，將訊息視窗做段落排版。本篇文章介紹 3 個經常使用的 MsgBox 換行方法。

MsgBox 基本操作

我們建立 3 個字串變數 ” textBreakLine”、”textOne”、”textTwo”，接著呼叫 MsgBox 函數，利用 “&” 連結 3 個變數，程式碼範例如下：

Sub no_break_line()
    
    Dim textBreakLine As String
    Dim textOne As String
    Dim textTwo As String
    
    textBreakLine = "沒有換行。"
    textOne = "這是第一行句子。"
    textTwo = "這是第二行句子。"
 
    MsgBox textBreakLine & textOne & textTwo

End Sub

上述範例是沒有換行的訊息視窗，如下圖：

MsgBox 換行方法

我們利用上述相同範例，使用常數 “vbCrLf“、”vbNewLine” 及函數 “Char(10)” 換行。

vbCrLf

“vbCrLf” 是 VBA 的內建常數，程式碼使用範例：

Sub Using_vbCrLf()
 
    Dim textBreakLine As String
    Dim textOne As String
    Dim textTwo As String
 
    textBreakLine = "使用 vbCrLf"
    textOne = "這是第一行句子。"
    textTwo = "這是第二行句子。"
 
    MsgBox textBreakLine & vbCrLf & textOne & vbCrLf & textTwo
 
End Sub

上述範例中，我們在 3 個變數中加上 “vbCrLf” ，換行排版後的訊息視窗如下圖：

vbNewLine

“vbNewLine” 是 VBA 的內建常數，程式碼使用範例：

Sub Using_vbNewLine()
    
    Dim textBreakLine As String
    Dim textOne As String
    Dim textTwo As String
 
    textBreakLine = "使用 vbNewLine"
    textOne = "這是第一行句子。"
    textTwo = "這是第二行句子。"
 
    MsgBox textBreakLine & vbNewLine & textOne & vbNewLine & textTwo
 
End Sub

上述範例中，我們在 3 個變數中加上 “vbNewLine” ，換行排版後的訊息視窗如下圖：

Chr(10)

“Chr(10)” 是 VBA 的內建函式(Microsoft 說明)，程式碼使用範例：

Sub Using_Chr()
 
    Dim textBreakLine As String
    Dim textOne As String
    Dim textTwo As String
 
    textBreakLine = "使用 Chr(10)"
    textOne = "這是第一行句子。"
    textTwo = "這是第二行句子。"
 
    MsgBox textBreakLine & Chr(10) & textOne & Chr(10) & textTwo
 
End Sub

上述範例中，我們在 3 個變數中加上 “Chr(10)” ，換行排版後的訊息視窗如下圖：

---

如果本篇文章有幫助到你，請在下方拍手圖示按 5 下。只要花幾秒鐘登入 Google 或 FB 帳號，不需任何花費就能提供我實質的回饋，支持我繼續創作，謝謝