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

Sut i gloi neu rewi tab taflen waith yn Excel?

Gan dybio bod gennych lyfr gwaith sy'n cynnwys nifer o daflenni gwaith, mae yna daflen waith o'r enw Prif Daflen fel y tab cyntaf yn y llyfr gwaith. Ac yn awr, rydych chi am geisio cloi neu rewi'r tab dalen hon i'w wneud bob amser yn weladwy hyd yn oed wrth sgrolio ar draws nifer o daflenni gwaith. Mewn gwirionedd, nid oes unrhyw ffordd uniongyrchol i chi rewi'r tab, ond, gallwch ddefnyddio trothwy gwaith i ddelio â'r broblem hon.

Clowch neu rewi tab taflen waith benodol gyda chod VBA


swigen dde glas saeth Clowch neu rewi tab taflen waith benodol gyda chod VBA

Yn Excel, gallwn gymhwyso'r cod VBA canlynol i wneud y daflen waith benodol bob amser cyn eich tab taflen waith sydd wedi'i glicio ar hyn o bryd, fel y gallwch chi bob amser weld y daflen waith hon pan fyddwch chi'n sgrolio ar draws unrhyw dabiau dalen eraill. Gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Yna dewiswch Llyfr Gwaith hwn o'r chwith Archwiliwr Prosiect cwarel, cliciwch ddwywaith arno i agor y Modiwlau, ac yna copïo a gludo gan ddilyn y cod VBA i'r Modiwl gwag:

Cod VBA: Rhewi neu gloi tab taflen waith benodol

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Update by Extendoffice
Application.EnableEvents = False
Application.ScreenUpdating = False
If Application.ActiveSheet.Index <> Application.Sheets("Main-sheet").Index Then
    Application.Sheets("Main-sheet").Move Before:=Application.Sheets(Application.ActiveSheet.Index)
    Application.Sheets("Main-sheet").Activate
    Sh.Activate
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

doc-rhewi-taflen-tab-1

3. Ac yna arbed a chau'r cod hwn, nawr, pan fyddwch chi'n clicio unrhyw un o'ch tab taflen waith, bydd y daflen waith benodol hon bob amser ar flaen eich tab dalen wedi'i glicio, gweler sgrinluniau:

doc-rhewi-taflen-tab-2
-1
doc-rhewi-taflen-tab-3

Nodyn: Yn y cod uchod, y Brif Daflen yw'r enw dalen rydych chi am ei rewi, gallwch ei newid i'ch angen.


Erthyglau cysylltiedig:

Sut i Rewi Paneli yn Excel 2010?

Sut i gymhwyso cwareli rhewi / dadrewi ar sawl taflen waith ar unwaith?


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 (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn defnyddio VBA, ni allaf gopïo data o'r Brif Ddalen i ddalen arall Helpwch fi i drwsio'r byg hwn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hahaha. mor wir! wnaethoch chi ddod o hyd i ateb i hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Methu cael eich cod i weithio, ond fe wnaeth yr un yma :) Is-Preifat Sub Workbook_SheetActivate(ByVal Sh As Object) Dim sc As Hir 'cyfrif y taflenni Dim NewPos As Long' Mynegai o ddalen serlected Application.EnableEvents = Ffug Application.ScreenUpdating = Anwir If ActiveSheet.Index 1 Yna sc = Sheets.Count NewPos = ActiveSheet.Index Ar gyfer i = 2 I NewPos - 1 Taflen(2).Symud Ar Ôl:=Taflenni(sc) Nesaf i Sheets(1).Activate Sheets(2). Activate Diwedd Os Application.ScreenUpdating = Gwir Application.EnableEvents = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl creu un â dadleuon lluosog? Fel yn lle dim ond symud yr un brif ddalen i flaen lle rydych chi'n gweithio, a yw'n bosibl symud tri tab o flaen yr hyn rydych chi'n gweithio arno?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydy, mae'n bosibl, mae'n rhaid i chi ychwanegu mwy o ddadleuon i'r os cymal gan ddefnyddio'r "A" fel hyn OS Application.ActiveSheet.Index Application.Sheets("Prif-ddalen").Index AND Application.ActiveSheet.Index Application. Sheets("Arall-Prif-ddalen").Mynegai ac yn y blaen... Yna Application.Sheets("Prif-ddalen").Move Before:=Application.Sheets(Application.Sheets("Arall-Prif-ddalen"). .Index) Application.Sheets("Prif-ddalen").Activate Application.Sheets("Arall-Prif-ddalen").Move Before:=Taflenni.Cais(Application.ActiveSheet.Index) Application.Sheets("Arall-Prif-Ddalen"). -sheet").Activate Sh.Activate Bydd hyn yn gosod y Brif Ddalen, yna'r Arall-Brif Daflen o flaen eich dalen weithredol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ai nid yw hyn yn vba fy excel taflen freezeplease rhoi ateb i mi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd y cod hwn yn dda. Yr unig broblem yw... os byddwn yn cau'r ffeil a'i hagor eto mae'n mynd i ffwrdd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Gweithiodd y cod hwn yn dda. Yr unig broblem yw... os byddwn yn cau'r ffeil a'i hagor eto mae'n mynd i ffwrdd.Gan Sangs[/quote] Ceisiwch gadw dogfen fel Llyfr Gwaith Macro-Galluogi. Rwy'n meddwl y dylai weithio'n dda felly.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fel y nododd Thuyen 2 flynedd yn ôl, ni allwch gopïo data rhwng dalennau tra bod y cod hwn yn weithredol. Ar ben hynny, mae'r cod yn ddiangen o gymhleth. Mae'r daflen rydych chi'n ei actifadu yn cael ei throsglwyddo i'r weithdrefn fel y paramedr "Sh". Mae hyn yn gwneud y galwadau aml i "Active Sheet" yn ddiangen, a gallai achosi problemau i rywun sy'n ceisio addasu'r cod ond nad yw'n brofiadol iawn.

Dyma fy fersiynau sy'n cywiro'r materion hynny, a hyd yn oed yn dangos sut i ychwanegu 2il "Prif" ddalen (yn debyg i'r hyn a bostiodd Dzingai):
-------------------------------------------------- ---------------

'Nid yw'r 2 linell hyn yn angenrheidiol os ydych yn defnyddio codenames y dalennau, yr wyf yn argymell.
Gosod shtMain1 = Taflenni Gwaith ("Prif Daflen-1")
Gosod shtMain2 = Taflenni Gwaith ("Prif Daflen-2")

Os Application.CutCopyMode = Gau Yna
Os Sh.Index <> shtMain1.Index A Sh.Index <> shtMain2.Index Yna
shtMain1.Move before:=Sh
shtMain2.Move before:=Sh
Sh.Activate
Gorffennwch Os
Gorffennwch Os
Lleihawyd y sylw hwn gan y safonwr ar y wefan
chăng đc gi cả
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir