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

Sut i grwpio a grwpio rhesi mewn taflen waith warchodedig?

Fel y gwyddom i gyd, mewn taflen waith warchodedig, mae yna lawer o gyfyngiadau inni gymhwyso rhai gweithrediadau. Fel, ni allwn toglo rhwng data wedi'u grwpio a heb eu grwpio. A oes ffordd i grwpio neu grwpio rhesi mewn taflen waith warchodedig?

Rhesi grwp ac grwp mewn taflen waith warchodedig gyda chod VBA


swigen dde glas saeth Rhesi grwp ac grwp mewn taflen waith warchodedig gyda chod VBA

Efallai, nid oes unrhyw ffordd dda arall o ddatrys y broblem hon ond gan ddefnyddio cod VBA, gwnewch fel a ganlyn:

1. Gweithredwch eich taflen waith rydych chi am ei defnyddio, gwnewch yn siŵr nad yw'r daflen waith wedi'i gwarchod eto.

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

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

Cod VBA: Rhesi grŵp ac grwp mewn taflen waith warchodedig

Sub EnableOutlining()
'Update 20140603
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
Dim xPws As String
xPws = Application.InputBox("Password:", xTitleId, "", Type:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=True
xWs.EnableOutlining = True
End Sub

4. Yna, pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa rhag nodi'r cyfrinair i amddiffyn y daflen waith gyfredol. Gweler y screenshot:

taflen doc-grŵp-mewn-gwarchodedig1

5. Yna cliciwch OK, mae eich taflen waith wedi'i gwarchod, ond gallwch ehangu a chontractio'r symbolau amlinellol yn y daflen waith warchodedig hon, gweler y screenshot:

taflen doc-grŵp-mewn-gwarchodedig1

Nodyn: Os yw'ch taflen waith wedi'i gwarchod eisoes, ni fydd y cod hwn yn gweithio.


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools for Excel Datrys y rhan fwyaf o'ch problemau, a chynyddu eich cynhyrchiant 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 Office / Excel 2007-2021 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 (32)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ymddangos bod hyn yn gweithio'n wych, ond pan fyddaf yn cau ac yn ail-agor y llyfr gwaith, rwy'n rhedeg i mewn i'r un broblem - ni allaf ehangu fy ngrwpiau cwympo.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf yr un broblem, a oes unrhyw un yn gwybod sut i'w goresgyn. Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen VBA arnoch ar gyfer hyn, a bydd angen i'r defnyddiwr terfynol ganiatáu i macros i hyn weithio.

Pwyswch Alt+F11 i actifadu'r Golygydd Visual Basic.

Cliciwch ddwywaith ar ThisWorkbook, o dan Microsoft Excel Objects yn yr archwiliwr prosiect ar yr ochr chwith.

Copïwch y cod canlynol i'r modiwl sy'n ymddangos:



Is-lyfr gwaith preifat_Agored()
Gyda thaflenni gwaith ("Crynodeb Emp")
.EnableOutlining = Gwir
.Protect UserInterfaceOnly:=Gwir
Diwedd Gyda
Is-End



Bydd y cod hwn yn cael ei weithredu'n awtomatig bob tro y bydd y llyfr gwaith yn cael ei agor.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Mae'n ymddangos bod hyn yn gweithio'n wych, ond pan fyddaf yn cau ac yn ail-agor y llyfr gwaith, rwy'n rhedeg i mewn i'r un broblem - ni allaf ehangu fy ngrwpiau sydd wedi cwympo.Gan mayich[/quote]Datrysir y mater hwnnw fel isod Is-lyfr Gwaith Preifat_Open() Dim wsh Fel Amrywiad Ar Gyfer Pob wsh Mewn Taflenni Gwaith(Array("Taflen1", "Taflen2")) wsh.EnableOutlining = Gwir wsh.Protect Password:="260615" , DrawingObjects:=Gau, _ cynnwys:=Gwir, _ Senarios:=Gwir, _ AllowFiltering:=Gwir, _ AllowFormattingCells:=Gwir, _ userinterfaceonly:=Gwir Nesaf wsh Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais yr un broblem, cyn gynted ag y byddaf yn cau ac yn ail-roi'r ddalen, nid yw'n gweithio... rhowch gam wrth gam o ble a sut i ddefnyddio Mae'r mater hwnnw wedi'i ddatrys fel isod Preifat Is Llyfr Gwaith_Open() Dim wsh As Amrywiad Ar Gyfer Pob wsh Mewn Taflenni Gwaith(Arra y("Taflen1", "Taflen2")) wsh.EnableOutli ning = Gwir wsh.Protect Password:="2606 15", DrawingObjects: =Gau, _ cynnwys:=Gwir, _ Senarios: =Gwir, _ AllowFiltering:=Gwir, _ AllowFormattingCells:=Gwir, _ userinterfaceonly:=Gwir Nesaf wsh Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn bro mae hyn yn gweithio'n neis iawn. Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut wnaethoch chi gael hwn i weithio? Rwyf wedi ceisio ei ychwanegu at y VBA uchod a gwneud modiwl gwahanol ond nid yw'n gweithio o hyd. Oes angen i mi newid unrhyw un o'r codau? fel fy nghyfrinair rydw i'n ei ddefnyddio neu a oes angen i mi newid enwau'r dalennau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf yr un broblem pan fyddaf yn cau'r llyfr gwaith. Unrhyw syniadau i'w drwsio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is Llyfr Gwaith Preifat_Open() Dim wsh Fel Amrywiad Ar Gyfer Pob wsh Mewn Taflenni Gwaith(Array("TD_ phase_3", "RS_Phase_2")) wsh.EnableOutlining = Gwir wsh.Protect Password:="260615", DrawingObjects:=Anghywir, _ cynnwys: =Gwir, _ Senarios:=Gwir, _ AllowFiltering:=Gwir, _ AllowFormattingCells:=Gwir, _ defnyddiwrinterfaceonly:=Gwir Nesaf wsh Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dal ddim yn siŵr sut mae hyn yn gweithio. Ydw i'n gwneud modiwl newydd neu'n cysylltu â'r un uchod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwch chi gerdded cam wrth gam i ble i roi hwn fel y gwnaethant yn y cyfarwyddiadau gwreiddiol. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Defnyddiais y macro cyntaf yn llwyddiannus ac yna cefais yr un mater o gau'r llyfr gwaith a'r macro ddim yn gweithio mwyach. Gwelaf yr ateb uchod ond ni allaf gael hynny i weithio o gwbl. Fyddech chi'n meindio camu drwodd? A ydw i'n cyfuno'r ddau god neu ddim ond yn defnyddio'r olaf? Os mai "ci" yw fy nghyfrinair, a ydw i'n disodli un o'r gwerthoedd yn y cod? Dim ond i un daflen waith yr wyf yn gwneud cais ("Taflen 1"); ydw i'n defnyddio hwnna yn unrhyw le? Diolch yn fawr ymlaen llaw!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helpwch fi os gwelwch yn dda, rwyf am gwympo ac ehangu rhai rholiau a cholofnau mewn taenlen excel sydd wedi'i diogelu. Sut alla i ddefnyddio macros i wneud hyn? Rwyf wedi rhoi cynnig ar yr hyn a ddangoswyd gennych ond nid ydynt yn gweithio ar fy nhaenlen. Helpwch os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, helpwch fi i ehangu a chwympo rholiau a cholofnau mewn taenlen excel sydd wedi'i diogelu. Ceisiais ddefnyddio'r rhai a ddangoswyd gennych uchod ond nid ydynt yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydy e wedi cael ei ofyn/ateb? Ble yn y cod gallwch chi nodi / newid cyfrinair personol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i newid y cyfrinair i werth arall?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan ddefnyddiaf y gorchymyn, gwelaf neges gwall fel y dangosir isod:
Is-lyfr gwaith preifat_Agored()
Dim wsh Fel Amrywiad
Ar gyfer Pob wsh Mewn Taflenni Gwaith (Array ("TD_ phase_3", "RS_Phase_2"))
wsh.EnableOutlining = Gwir
wsh.Protect Password:="260615", DrawingObjects:=Anghywir, _
cynnwys: = Gwir, _
Senarios:=Gwir, _
Caniatáu Hidlo:=Gwir, _
AllowFormattingCells:=Gwir, _
userinterfaceonly:=Gwir
wsh nesaf
Is-End
Gwall amser rhedeg '9':
Tanysgrifiad allan o ystod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae hyn yn gweithio am ychydig, ar ôl i chi gau ac ailagor, mae'n stopio :(
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hyd yn oed i mi , A oes unrhyw ateb arall ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-lyfr gwaith_Agored()
'Diweddariad 20140603
Dim xWs Fel Taflen Waith
Gosod xWs = Application.ActiveSheet
Dim xPws Fel Llinyn
xPws = "rfc" ''Application.InputBox("Cyfrinair:", xTitleId, "", Math:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=Gwir
xWs.EnableOutlining = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi cael y cod hwn i weithio. Ond pan fyddaf yn cau ac yn ailagor rhaid i mi fynd i'r tab datblygwr, dewis y botwm macros, dewis rhedeg a nodi'r cyfrinair.

A oes ffordd i dynnu'r cyfrinair o'r cod NEU god rhedeg ceir a fydd yn rhedeg y marco hwn yn awtomatig ac yn nodi'r cyfrinair?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Er mwyn trwsio'r broblem nad yw hyn yn gweithio yn eich ffeil ar ôl i chi ei chau a'i hagor eto, mae'n rhaid i chi gludo'r cod VBA yn "ThisWorkbook" o dan Microsoft Excel Objects yn lle modiwl newydd. Bydd hyn wedyn yn rhedeg y macro yn awtomatig bob tro y bydd y ffeil yn cael ei hagor.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a oes gennych chi ddelweddau ar gyfer y Cod VBA a drafodwyd 6 diwrnod yn ôl i peachyclean am ThisWorkbook dan Microsoft Objects yn lle modiwl newydd. Mae'r swyddogaeth yn cael ei golli pan fyddaf yn mynd yn ôl i'm llyfr gwaith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Efallai y bydd angen hyn ar rywun, rwy'n meddwl fy mod wedi cyfrifo sut i wneud i hyn weithio.

Yn gyntaf, mae angen ysgrifennu'ch cod yn "ThisWorkbook" o dan Microsoft Excel Objects, fel y mae @peachyclean yn ei awgrymu.
Yn ail, cymerwch y cod a ysgrifennodd @Sravanthi, a gludwch i'r lleoliad a grybwyllwyd uchod.

Is-lyfr gwaith_Agored()
'Diweddariad 20140603
Dim xWs Fel Taflen Waith
Gosod xWs = Application.ActiveSheet
Dim xPws Fel Llinyn
xPws = "rfc" ''Application.InputBox("Cyfrinair:", xTitleId, "", Math:=2)
xWs.Protect Password:=xPws, Userinterfaceonly:=Gwir
xWs.EnableOutlining = Gwir
Is-End

Y peth yw bod angen i chi fod ar y daflen yr ydych am ei diogelu ond yn caniatáu defnyddio grwpio, ac arbed y llyfr gwaith a chau, heb amddiffyn. Nawr os byddwch chi'n ei agor, mae'r macro yn cychwyn yn awtomatig, bydd yn gwneud y daflen wedi'i diogelu gyda'r cyfrinair "rfc". Nawr gallwch chi ddefnyddio'r grwpio, mae'r ddalen wedi'i diogelu.

Ar gyfer fy ateb, rwyf wedi addasu'r cyfrinair a ddefnyddiwyd, felly gallwch chi ailysgrifennu unrhyw gyfrinair YMA:
xPws = "YSGRIFENNU PASSSWORDHERE" ''Application.InputBox("Cyfrinair:", xTitleId, "", Math:=2)

Ar ben hynny, nid oeddwn am i'r ddalen i'w diogelu fod yn weithredol wrth agor y ffeil, felly rwyf wedi addasu'r rhan hon:
Gosod xWs = Application.ActiveSheet ->
Gosod xWs = Application.Worksheets("WRITEANYSHEEET'SNAMEHERE")

Nawr mae'n gweithio fel swyn, mae'r ddalen o'r enw 'WRITEANYSHET'SNAMEHERE' wedi'i diogelu ond mae'r grŵp yn berthnasol. Yn y tymor hir, rwy'n meddwl mai'r broblem fydd, os ydw i am addasu'r ffeil hon a chadw'r ateb, mae angen i mi ddad-ddiogelu'r daflen hon i wneud iddo weithio ar yr agoriad nesaf. Mae'n debyg y gallwch chi ysgrifennu macro arall i ddadamddiffyn yn awtomatig wrth gau :)


Rwy'n gobeithio ei fod wedi helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hii.. fe wnaeth hyn ryfeddodau. yr unig le rydw i'n mynd yn sownd nawr yw bod angen i mi wneud hyn ar gyfer taflenni lluosog yn y llyfr gwaith. allwch chi pls helpu gyda hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd y llinyn hwn yn edrych i fod yn union yr hyn yr oeddwn ei angen, gan nad wyf yn gwybod dim am VBA. Llwyddais i gael hwn i weithio i ddechrau ond fel y nodwyd, ar ôl i chi gau'r daenlen a'i hailagor, nid yw'n gweithio mwyach. Ceisiais ysgrifennu'r cod yn "ThisWorkbook" fel y nodwyd ond ni allaf ddarganfod sut i wneud hynny. Gallaf weld "ThisWorkbook" ond nid wyf yn gwybod sut i ysgrifennu ynddo. Bob ffordd a welaf i greu modiwl, mae'n creu modiwl newydd mewn ffolder "Modiwlau" ar wahân, y tu allan i'r ffolder "Microsoft Excel Objects". Unrhyw awgrymiadau ar sut i roi'r cod hwn yn "ThisWorkbook" ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hyfryd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i Grwpio A Dadgrwpio Rhesi a Cholofnau Mewn Taflen Waith Warchodedig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
f*ck, fe wnaeth hyn ddwyn fy excel yn ddiweddarach a newid cyfrinair yn breifat
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd o gael hwn i weithio ar lyfr gwaith a rennir? - Dwi angen y newidiadau trac, Diolch
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL