Як спливаюче вікно повідомлення відображати діапазон комірок або значення комірок в 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 кнопку. Дивіться знімок екрана:
Тоді ви отримаєте вікно повідомлення, як показано на знімку екрана, і всі значення комірок зазначеного діапазону відображаються у вікні повідомлення.
Статті по темі:
- Як створити таймер вікна повідомлення для автоматичного закриття вікна повідомлення через певний час в Excel?
- Як спливати вікно повідомлення при натисканні на певну комірку в Excel?
- Як скопіювати текст із вікна повідомлення в Excel?
- Як спливати вікно повідомлення при активації / відкритті певного аркуша в Excel?
- Як спливати вікно повідомлення, якщо значення комірки змінюється в межах діапазону в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!