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

Як тримати вікно Excel завжди зверху?

Ви коли-небудь хотіли, щоб ваші вікна Excel завжди були вгорі і не були покриті іншими вікнами? На жаль, Excel не надає можливості вирішення цього завдання. Але тут я можу надати вам код VBA для роботи з цією роботою.

Тримайте вікно Excel завжди зверху з кодом VBA


стрілка синя права міхур Тримайте вікно Excel завжди зверху з кодом VBA


Наступний код VBA може допомогти вам завжди залишати вікно Excel вгорі, код застосовується як до офісного 32-розрядного, так і до офісного 64-розрядного.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: Тримайте вікно Excel завжди зверху

'Update 20140909
#If Win64 Then
    Public Declare PtrSafe Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As LongPtr, _
            ByVal hwndInsertAfter As LongPtr, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#Else
    Public Declare Function SetWindowPos _
        Lib "user32" ( _
            ByVal hwnd As Long, _
            ByVal hwndInsertAfter As Long, _
            ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
            ByVal wFlags As Long) _
    As Long
#End If
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Sub ShowXLOnTop(ByVal OnTop As Boolean)
    Dim xStype As Long
    #If Win64 Then
        Dim xHwnd As LongPtr
    #Else
        Dim xHwnd As Long
    #End If
    If OnTop Then
        xStype = HWND_TOPMOST
    Else
        xStype = HWND_NOTOPMOST
    End If
    Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Sub SetXLOnTop()
    ShowXLOnTop True
End Sub
Sub SetXLNormal()
    ShowXLOnTop False
End Sub

3. Потім натисніть F5 ключ для запуску цього коду, і a Макрос з'явиться діалогове вікно, виберіть SetXLonTop і натисніть прогін кнопки.

doc-keep-excel-on-top-1

4. І тоді ваше вікно Excel завжди буде поверх інших програм.

примітки: Якщо ви хочете повернути вікно Excel у звичайний стан, просто натисніть F5 ключ, щоб відкрити Макрос діалогове вікно, виберіть SetXNormal і натисніть кнопку прогін.


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (11)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Дякуємо, що надали цей код! Так корисно. Я використовував ключ Judy ten для цієї функції, але тепер можу використовувати Excel. Чудово, дякую!!
Цей коментар був мінімізований модератором на сайті
Люблю це!! Чудовий код. Спасибі! Я початківець програміст, я ледве знаю, що він робить. Де я міг би змінити код, якби я хотів, щоб вікно переходило до певного розміру, ховало стрічку та/або переходило до певного аркуша чи діапазону клітинок?
Цей коментар був мінімізований модератором на сайті
Дякую за допомогу!!! Мені довелося використати це як обхідний шлях, тому що ви не можете відкрити дві робочі сторінки одночасно. Будемо вдячні за поширення коду :)
Цей коментар був мінімізований модератором на сайті
Дякую за це. Дуже корисно під час транспонування даних з кількох систем на електронну таблицю. Цінуйте код!
Цей коментар був мінімізований модератором на сайті
Дякую .. Благослови Бог ..!
Цей коментар був мінімізований модератором на сайті
Велике спасибі за це! Мені потрібно було постійно підтримувати таблицю статистики автоматизованої системи, поки я робив інші речі на основі того, що вона мені показувала. Дуже корисно! :D
Цей коментар був мінімізований модератором на сайті
Абсолютний геній. Саме те, що мені було потрібно. Спасибі!!!
Цей коментар був мінімізований модератором на сайті
Привіт

Здається, що xHwnd визначено для зберігання Application.hWnd перед викликом SetWindowPos, як показано нижче:

xHwnd = Application.hWnd
Викликати SetWindowPos(xHwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE або SWP_NOMOVE)

Дякую
Цей коментар був мінімізований модератором на сайті
Чи потрібно застосовувати цей код до кожного файлу Excel окремо, чи можна зберегти макрос в Excel, щоб його вмикати/виключати щоразу, коли відкривається нова книга Excel?
Цей коментар був мінімізований модератором на сайті
круто!!!!!!
Цей коментар був мінімізований модератором на сайті
круто!!!!!!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця