如何彈出消息框以在Excel中顯示單元格范圍或單元格值？

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

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

彈出消息框以使用VBA代碼顯示指定范圍的值彈出消息框以顯示帶有VBA代碼的單元格范圍驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

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

1.在工作表中選擇單元格范圍后，按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊。 然后將下面的VBA代碼復制并粘貼到“模塊”窗口中。

VBA代碼：顯示單元格范圍的消息框

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

3。 按 F5 鍵來運行代碼。 然后會彈出一個消息框，其中顯示選定單元格的范圍范圍。

彈出消息框以使用VBA代碼顯示指定范圍的值

假設您需要彈出一個消息框以顯示范圍A1：D13的所有單元格值，如下圖所示。 請運行下面的VBA代碼。

1。 按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊。 然后將下面的VBA代碼復制并粘貼到“模塊”窗口中。

VBA代碼：用于在Excel中顯示所選單元格值的消息框

Sub mesage()Dim xRg As RangeDim xTxt As StringDim xCell As RangeDim xStr As StringDim xRow As LongDim xCol As LongOn Error Resume NextIf ActiveWindow.RangeSelection.Count > 1 ThenxTxt = ActiveWindow.RangeSelection.AddressLocalElsexTxt = ActiveSheet.UsedRange.AddressLocalEnd IfSet xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)If xRg Is Nothing Then Exit SubOn Error Resume NextFor xRow = 1 To xRg.Rows.CountFor xCol = 1 To xRg.Columns.CountxStr = xStr & xRg.Cells(xRow, xCol).Value & vbTabNextxStr = xStr & vbCrLfNextMsgBox xStr, vbInformation, "Kutools for Excel"End Sub

3。 按 F5 運行代碼的鍵，在彈出的 Kutools for Excel 對話框，請選擇在消息框中顯示單元格值所需的范圍，然后單擊 OK 按鈕。 看截圖：

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

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

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel