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

Як вставити плаваючу таблицю або текстове поле в аркуш Excel?

Якщо у вас є таблиця або текстове поле з деякими важливими даними, які ви хочете завжди бути видимими на екрані аркуша, навіть коли ви прокручуєте аркуш вгору або вниз. Це може бути цікавим завданням, у цій статті я запропоную швидкий трюк для його вирішення.

Вставте плаваючу таблицю в Excel із кодом VBA

Вставте плаваюче текстове поле в Excel із кодом VBA


стрілка синя права міхур Вставте плаваючу таблицю в Excel із кодом VBA

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

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

doc вставка плаваючий стіл 1

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

doc вставка плаваючий стіл 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 це назва зображення, яку ви створили, будь ласка, змініть її відповідно до своїх потреб.

doc вставка плаваючий стіл 3

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


стрілка синя права міхур Вставте плаваюче текстове поле в Excel із кодом VBA

Щоб вставити плаваюче текстове поле, ось також код VBA для вирішення цього завдання.

1. Спочатку слід вставити текстове поле з Розробник вкладка, клацніть Розробник > Insert > Текстове поле (елемент керування ActiveX), а потім намалюйте текстове поле та введіть інформацію в текстове поле, як вам потрібно. Дивіться знімок екрана:

doc вставка плаваючий стіл 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 це назва текстового поля, яке ви вставили, будь ласка, змініть його відповідно до своїх потреб.

doc вставка плаваючий стіл 5

3. Потім збережіть і закрийте вікно коду, тепер, коли ви прокручуєте аркуш у будь-яке місце, вставлене текстове поле завжди зберігається у верхньому правому куті аркуша.


Збільшити або згорнути вікно робочого аркуша

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


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

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL