Перейти до основного матеріалу

Як спливаюче вікно повідомлення відображати діапазон комірок або значення комірок в Excel?

У деяких випадках вам може знадобитися нагадати собі про вибраний діапазон діапазону або відобразити всі значення вказаного діапазону. У цій статті ви ознайомитесь із методами появи спливаючого вікна повідомлення для відображення вибраних посилань на комірку або детальних значень комірок у Excel.

Спливаюче вікно повідомлення, щоб відобразити діапазон комірок з кодом VBA
Спливаюче вікно повідомлення, щоб відобразити значення вказаного діапазону з кодом VBA


Спливаюче вікно повідомлення, щоб відобразити діапазон комірок з кодом VBA

Наступний код VBA допомагає відобразити вибраний діапазон у спливаючому вікні повідомлення. Будь ласка, виконайте наступне.

1. Вибравши діапазон комірок на аркуші, натисніть інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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 для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код VBA у вікно модуля.

Код VBA: вікно повідомлення для відображення вибраних значень комірок в Excel

Sub mesage()
    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 для Excel діалоговому вікні, виберіть діапазон, який вам потрібен для відображення значень комірок у вікні повідомлення, а потім клацніть на OK кнопку. Дивіться знімок екрана:

Тоді ви отримаєте вікно повідомлення, як показано на знімку екрана, і всі значення комірок зазначеного діапазону відображаються у вікні повідомлення.


Статті по темі:

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Me puedes ayudar?. Necesito hacer la selección que se hace con este cuadro, pero al seleccionarlo quiero copiarlo y pegarlo en otra hoja.
This comment was minimized by the moderator on the site
This is very helpful! Is there a way to format the columns on the display of range values in VBA? I see in your example as well that not all of the columns are showing the same data. The name column is long and pushes your date column over to the right.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations