Перейти к основному содержанию

Как вставить плавающую таблицу или текстовое поле в лист Excel?

Если у вас есть таблица или текстовое поле с некоторыми важными данными, которые вы хотите, чтобы они всегда были видны на экране рабочего листа, даже если вы прокручиваете его вверх или вниз. Это может быть интересная задача, в этой статье я представлю вам быстрый трюк для ее решения.

Вставить плавающую таблицу в Excel с кодом VBA

Вставить плавающее текстовое поле в Excel с кодом VBA


стрелка синий правый пузырь Вставить плавающую таблицу в Excel с кодом VBA

У вас нет прямого способа вставить плавающую таблицу, поэтому вам нужно преобразовать данные таблицы в изображение, а затем применить код для его завершения, пожалуйста, сделайте следующее:

1. Выберите таблицу данных, которую вы хотите сохранить видимой, затем щелкните Копировать > Копировать как изображение под Главная вкладку, см. снимок экрана:

документ вставить плавающую таблицу 1

2. В выскочившем Копировать картинку диалоговое окно, выберите Как показано на экране из Внешний вид , и выберите Картина под Формат разделом, щелкните OK чтобы закрыть диалоговое окно, а затем щелкните ячейку для вывода изображения, наконец, нажмите Ctrl + V чтобы вставить это изображение, см. снимок экрана:

документ вставить плавающую таблицу 2

3. После преобразования таблицы в изображение щелкните правой кнопкой мыши вкладку листа, содержащую изображение таблицы, которое вы хотите всегда видеть, и выберите Просмотреть код из контекстного меню, а в открывшемся Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустой модуль:

Код VBA: вставить плавающую таблицу в excel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Внимание: В этом коде картинка1 - это имя созданного изображения, измените его по своему усмотрению.

документ вставить плавающую таблицу 3

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


стрелка синий правый пузырь Вставить плавающее текстовое поле в Excel с кодом VBA

Чтобы вставить плавающее текстовое поле, вот также код VBA для решения этой задачи.

1. Во-первых, вы должны вставить текстовое поле из Застройщик вкладку нажмите Застройщик > Вставить > Текстовое поле (элемент управления ActiveX), а затем нарисуйте текстовое поле и введите информацию в текстовое поле по мере необходимости. Смотрите скриншот:

документ вставить плавающую таблицу 4

2. Затем щелкните правой кнопкой мыши вкладку листа, содержащую текстовое поле, которое вы хотите всегда видеть видимым, и выберите Просмотреть код из контекстного меню, а в открывшемся Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустой Модули:

Код VBA: вставить плавающее текстовое поле в Excel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

Внимание: В этом коде TextBox1 это имя текстового поля, которое вы вставили, измените его по своему усмотрению.

документ вставить плавающую таблицу 5

3. Затем сохраните и закройте окно кода, теперь, когда вы прокручиваете лист в любое место, вставленное текстовое поле всегда остается в правом верхнем углу листа.


Развернуть или свернуть окно рабочего листа

Чтобы развернуть окно рабочего листа, можно освободить больше места для пользователей, в Excel вы можете развернуть окно рабочего листа до максимума, скрыв ленту, строку формул или строку состояния. Kutools for Excel's Рабочая зона может помочь вам скрыть ленту одним щелчком мыши. Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola, buenos días.

Mi pregunta es cómo mantener siempre visible la imagen flotante aun cuando me desplace en distintas filas o columnas de la hoja.

Saludos y gracias por compartir tus conocimientos.
This comment was minimized by the moderator on the site
The names are the same but for some reason I am still coming across runtime error 424 object required?
This comment was minimized by the moderator on the site
Hi,
Somewhere between steps 2 and 3 on "Insert Floating Table In Excel With VBA Code" I missed how to name the picture I just copy and pasted.

Tom
This comment was minimized by the moderator on the site
Top left corner next to the box you input the formula
This comment was minimized by the moderator on the site
Same has happened to me too, how do you know the name of the picture file?
This comment was minimized by the moderator on the site
Hello, Peter,
To know the name of the picture, you just need to select the picture, and then view the name from the Name Box in the top left corner.
This comment was minimized by the moderator on the site
If I re-size the window, the picture floats too far into the middle. How do I make the picture float to the same margin from the screen no matter what size window I have?
This comment was minimized by the moderator on the site
Thank you-this solved my problem very easily!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations