Ինչպե՞ս Excel- ի պատուհանը միշտ վերևում պահել:
Երբևէ ցանկացե՞լ եք, որ ձեր Excel պատուհանները միշտ վերևում լինեն և այլ պատուհաններով չծածկվեն: Unfortunatelyավոք, 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 այս կոդը գործարկելու բանալին, և ա Մակրո կհայտնվի երկխոսության տուփ, ընտրեք SetXLOnTop- ը տարբերակը և սեղմեք Վազում կոճակը:
4. Եվ այնուհետև ձեր Excel պատուհանը միշտ կլինի այլ ծրագրերի վերևում:
ՆշումԵթե ցանկանում եք Excel- ի պատուհանը վերադարձնել նորմալ, պարզապես սեղմեք F5 բանալին բացելու համար Մակրո երկխոսություն, ընտրեք SetX Նորմալ եւ սեղմեք Վազում.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: