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

Sut i gadw ffenestr excel bob amser ar ei ben?

A ydych erioed wedi dymuno cadw'ch ffenestri Excel ar ben bob amser a pheidio â chael eich gorchuddio gan ffenestri eraill? Yn anffodus, nid yw Excel yn darparu nodwedd ar gyfer datrys y dasg hon. Ond, yma, gallaf roi cod VBA i chi ddelio â'r swydd hon.

Cadwch ffenestr Excel bob amser ar ei phen gyda chod VBA


swigen dde glas saeth Cadwch ffenestr Excel bob amser ar ei phen gyda chod VBA


Gall y cod VBA canlynol eich helpu i gadw'r ffenestr Excel bob amser ar ben, mae'r cod yn cael ei gymhwyso i swyddfa 32-bit a swyddfa 64-bit.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Cadwch ffenestr Excel bob amser ar ei phen

'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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac a Macros bydd blwch deialog yn ymddangos, dewiswch SetXLOnTop opsiwn, a chlicio Run botwm.

doc-cadw-excel-ar-ben-1

4. Ac yna bydd eich ffenestr Excel bob amser ar ben cymwysiadau eraill.

Nodyn: Os ydych chi am ddychwelyd y ffenestr Excel yn normal, pwyswch F5 allweddol i agor y Macros deialog, dewiswch SetXNormal a chliciwch Run.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (11)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am ddarparu'r cod hwn! Mor ddefnyddiol. Rydw i wedi bod yn defnyddio allwedd Judy ten ar gyfer y nodwedd hon ond nawr gallaf ddefnyddio excel. Gwych, diolch!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Caru hwn!! Cod gwych. Diolch! Rwy'n rhaglennydd dechreuol, prin yr wyf yn gwybod beth mae'n ei wneud. Ble byddwn i'n newid yn y cod pe bawn i eisiau i'r ffenestr neidio i faint penodol, cuddio'r rhuban, a / neu neidio i ddalen benodol neu ystod cell?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am yr help!!! Roedd yn rhaid i mi ddefnyddio hwn fel ateb i'r broblem oherwydd ni allwch gael dwy dudalen waith ar agor ar yr un pryd. Gwerthfawrogi eich bod yn rhannu eich cod :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am hyn. Defnyddiol iawn wrth drosi data o systemau lluosog i daenlen. Gwerthfawrogi'r cod!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch .. Dduw Bendithia ..!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr am hwn! Roedd angen i mi gadw fy nhaflen ystadegau system awtomataidd i fyny bob amser tra roeddwn yn gwneud pethau eraill yn seiliedig ar yr hyn yr oedd yn ei ddangos i mi. Cymwynasgar iawn! :D
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Athrylith llwyr. Yn union yr hyn yr oeddwn ei angen. Diolch!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo

Mae'n ymddangos bod xHwnd wedi diffinio i storio Application.hWnd cyn ffonio SetWindowPos fel isod:

xHwnd = Cais.hWnd
Ffoniwch SetWindowPos(xHwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Neu SWP_NOMOVE)

diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes rhaid cymhwyso'r cod hwn i bob ffeil Excel ar wahân neu a ellir cadw'r macro yn Excel i'w dynnu ymlaen / i ffwrdd pryd bynnag y bydd llyfr gwaith Excel newydd ar agor?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
anhygoel!!!!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
anhygoel!!!!!!!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir