Note: The other languages of the website are Google-translated. Back to English

Как вставить плавающую таблицу или текстовое поле в лист 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (8)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо - это очень легко решило мою проблему!
Этот комментарий был сведен к минимуму модератором на сайте
Если я изменю размер окна, изображение сместится слишком далеко в середину. Как сделать так, чтобы изображение плавало на одном и том же поле от экрана, независимо от того, какой у меня размер окна?
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Где-то между шагами 2 и 3 в разделе «Вставка плавающей таблицы в Excel с кодом VBA» я пропустил, как назвать изображение, которое я просто скопировал и вставил.

Том
Этот комментарий был сведен к минимуму модератором на сайте
То же самое случилось и со мной, как вы знаете имя файла изображения?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Питер,
Чтобы узнать название изображения, вам просто нужно выбрать изображение, а затем просмотреть имя в поле «Имя» в верхнем левом углу.
Этот комментарий был сведен к минимуму модератором на сайте
Верхний левый угол рядом с полем ввода формулы
Этот комментарий был сведен к минимуму модератором на сайте
Имена такие же, но по какой-то причине я все еще сталкиваюсь с ошибкой времени выполнения 424 требуется объект?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, доброе утро.

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.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL