Как да поддържам прозореца на Excel винаги отгоре?
Искали ли сте някога вашите прозорци на Excel да са винаги отгоре и да не се покриват от други прозорци? За съжаление, Excel не предоставя функция за решаване на тази задача. Но тук мога да ви дам VBA код, за да се справите с тази работа.
Поддържайте прозореца на Excel винаги отгоре с VBA код
Поддържайте прозореца на Excel винаги отгоре с VBA код
Следният VBA код може да ви помогне да поддържате прозореца на Excel винаги отгоре, кодът се прилага както за 32-битов, така и за 64-битов офис.
1. Задръжте натиснат ALT + F11 за да отворите Прозорец на Microsoft Visual Basic за приложения.
2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
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 и щракнете върху бягане бутон.
4. И тогава вашият прозорец на Excel винаги ще бъде над другите приложения.
Забележка: Ако искате да върнете прозореца на Excel към нормалното, просто натиснете F5 ключ за отваряне на Макроси диалогов прозорец, изберете SetXNormal и кликнете бягане.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!