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

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

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

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

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

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

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

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

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

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

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

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

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

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

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

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 — это имя вставленного текстового поля, измените его по своему усмотрению.

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