Как отобразить окно сообщения с запросом «Выберите диапазон или значения ячеек» в Excel?
В некоторых случаях может понадобиться напомнить себе о выбранном диапазоне или отобразить все значения Ограниченный диапазон. В этой статье вы найдёте способы вызова окна сообщения для отображения ссылки на выбранные ячейки или подробных значений ячеек в Excel.
Вызов окна сообщения для отображения диапазона ячеек с помощью кода VBA
Вызов окна сообщения для отображения значений Ограниченный диапазон с помощью кода VBA
Вызов окна сообщения для отображения диапазона ячеек с помощью кода VBA
Следующий код VBA отображает диапазон выбранных ячеек во всплывающем окне сообщения. Выполните следующие действия.
1. После выделения диапазона ячеек на листе одновременно нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код VBA в окно модуля.
Код VBA: Окно сообщения для отображения диапазона ячеек
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub3. Нажмите клавишу F5, чтобы запустить код. После этого появится окно сообщения с отображением диапазона выбранных ячеек.
Вызов окна сообщения для отображения значений Ограниченный диапазон с помощью кода VBA
Допустим, вам нужно окно сообщения, которое отображает все значения ячеек из диапазона A1:D13, как показано на снимке экрана ниже. Запустите приведённый ниже код VBA.
1. Одновременно нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код 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 Sub3. Нажмите клавишу F5, чтобы запустить код. Во всплывающем диалоговом окне Kutools для Excel укажите диапазон, значения ячеек которого необходимо отобразить в окне сообщения, и нажмите кнопку ОК. См. снимок экрана:
После этого откроется окно сообщения, как показано на снимке экрана ниже, в котором отображаются все значения ячеек из диапазона «Ограниченный диапазон».
Связанные статьи:
- Как настроить таймер для окна сообщения, чтобы оно автоматически закрывалось через заданное время в Excel?
- Как отобразить окно сообщения при щелчке по определённой ячейке в Excel?
- Как скопировать текст из окна сообщения в Excel?
- Как отобразить окно сообщения при активации или открытии указанного листа в Excel?
- Как отобразить окно сообщения при изменении значения ячейки в заданном диапазоне в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек