如何在 Excel 的訊息方塊中顯示選定的範圍或儲存格值？

在某些情況下，您可能需要使自己想起所選的範圍範圍，或顯示指定範圍的所有值。 在本文中，您將獲得如何彈出消息框以在Excel中顯示所選單元格引用或詳細單元格值的方法。

彈出消息框以顯示帶有VBA代碼的單元格範圍
彈出消息框以使用VBA代碼顯示指定範圍的值

彈出消息框以顯示帶有VBA代碼的單元格範圍

以下VBA代碼可幫助您顯示在彈出的消息框中選擇的範圍範圍。 請執行以下操作。

1. 在工作表中選擇一系列儲存格後，按 其他 + 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。 按 其他 + 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 運行代碼的關鍵，在彈出窗口中 Excel的Kutools 對話框，請選擇在消息框中顯示單元格值所需的範圍，然後單擊 OK 按鈕。 看截圖：

然後，您將獲得一個消息框，如下面的屏幕快照所示，指定範圍內的所有單元格值都顯示在該消息框中。

相關文章:

• 如何創建一個消息框計時器，以便在Excel中一定時間後自動關閉消息框？
• 單擊Excel中的某個單元格時如何彈出消息框？
• 如何從Excel的消息框中復製文本？
• 在Excel中激活/打開指定的工作表時如何彈出消息框？
• 如果單元格值在Excel的範圍內更改，如何彈出消息框？