如何在Excel中以訊息框顯示所選區域或單元格的值？

在某些情況下，您可能需要提醒自己所選的區域範圍，或者顯示指定區域的所有值。本文將介紹如何彈出訊息框來顯示所選單元格的引用或詳細單元格值的方法。

使用VBA代碼彈出訊息框以顯示單元格區域
使用VBA代碼彈出訊息框以顯示指定區域的值

使用VBA代碼彈出訊息框以顯示單元格區域

以下VBA代碼可幫助您在彈出的訊息框中顯示所選的區域範圍。請按照以下步驟操作。

1. 在工作表中選擇一個單元格區域後，同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組。然後複製並將以下VBA代碼粘貼到模組視窗中。

VBA代碼：訊息框顯示單元格區域

Sub Test()
    On Error Resume Next
    MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub

3. 按下 F5 鍵運行代碼。然後會彈出一個訊息框，並在其中顯示所選單元格的區域範圍。

使用VBA代碼彈出訊息框以顯示指定區域的值

假設您需要一個訊息框來顯示A1:D13範圍內所有單元格的值，如下圖所示。請運行以下VBA代碼。

1. 同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組。然後複製並將以下VBA代碼粘貼到模組視窗中。

VBA代碼：訊息框顯示Excel中所選單元格的值

Sub message()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xStr As String
    Dim xRow As Long
    Dim xCol As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    For xRow = 1 To xRg.Rows.Count
        For xCol = 1 To xRg.Columns.Count
            xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
        Next
        xStr = xStr & vbCrLf
    Next
    MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub

3. 按下 F5 鍵運行代碼，在彈出的 Kutools for Excel 對話框中，請選擇需要在訊息框中顯示單元格值的範圍，然後點擊 確定 按鈕。參見截圖：

然後您將看到如下截圖所示的訊息框，並且指定範圍內的所有單元格值都顯示在訊息框中。

相關文章：

• 如何在Excel中創建訊息框計時器，以便在特定時間後自動關閉訊息框？
• 如何在Excel中點擊某個單元格時彈出訊息框？
• 如何從Excel中的訊息框複製文字？
• 如何在Excel中激活/打開指定的工作表時彈出訊息框？
• 如何在Excel中當單元格值在某範圍內變化時彈出訊息框？