如何在 Excel 的訊息方塊中顯示所選區域或儲存格的數值？

作者Siluvia修改日期2024-10-31

在某些情況下，您可能需要提醒自己目前選取的範圍，或查看所有限定區域的數值。本文將為您介紹如何彈出訊息方塊，即時顯示所選儲存格的參照位置或詳細數值。

使用 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 鍵以執行程式碼，隨即會彈出一個訊息方塊，顯示所選儲存格的範圍。

顯示 Excel 中所選儲存格範圍的訊息方塊截圖

使用 VBA 程式碼彈出訊息方塊以顯示限定區域的數值

假設您需要一個訊息方塊，用來顯示範圍 A1:D13 中所有儲存格的數值（如下方截圖所示），請執行下列 VBA 程式碼。

Excel 範圍 A1:D13 的截圖，預計在訊息方塊中顯示

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 對話方塊中，請選擇要在訊息方塊中顯示數值的範圍，然後點擊確定按鈕。請參閱截圖：

Kutools for Excel 輸入對話方塊的截圖，提示選取要在訊息方塊中顯示的範圍

接著，您將看到如下方截圖所示的訊息方塊，其中會顯示限定區域內所有儲存格的數值。

顯示所選 Excel 範圍中儲存格值的訊息方塊截圖

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多