Как отобразить выбранный диапазон или значения ячеек в окне сообщения в Excel?

В некоторых случаях вам может потребоваться напомнить себе о выбранной области диапазона или отобразить все значения указанного диапазона. В этой статье вы узнаете методы, как вызвать окно сообщения для отображения ссылки на выбранную ячейку или подробных значений ячеек в 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 выберите диапазон, значения ячеек которого необходимо отобразить в окне сообщения, а затем нажмите кнопку OK. См. скриншот:

Затем вы получите окно сообщения, как показано на скриншоте ниже, и все значения ячеек указанного диапазона будут отображены в окне сообщения.

Статьи по теме:

• Как создать таймер окна сообщения для автоматического закрытия окна сообщения через определенное время в Excel?
• Как вызвать окно сообщения при нажатии на определенную ячейку в Excel?
• Как скопировать текст из окна сообщения в Excel?
• Как вызвать окно сообщения при активации/открытии указанного листа в Excel?
• Как вызвать окно сообщения, если значение ячейки изменяется в пределах диапазона в Excel?