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

Sut i osod trefn tab celloedd neu gelloedd heb eu cloi yn Excel?

Gan dybio bod angen i chi osod y drefn tab ar gyfer eich celloedd diffiniedig eich hun, er enghraifft, pwyswch yr allwedd Tab a bydd yn symud o gell B5 i C6, o C6 i D7, o D7 i E8, yna dychwelwch i B5 wrth adael cell E8 mewn taflen waith fel y dangosir sgrinlun isod. Sut i'w gyflawni? Mae'r erthygl hon yn darparu dull VBA i chi.

Gosod trefn tab celloedd neu gelloedd heb eu cloi gyda chod VBA


Gosod trefn tab celloedd neu gelloedd heb eu cloi gyda chod VBA


Os gwelwch yn dda rhedeg y dull VBA isod i osod trefn tab celloedd mewn taflen waith arferol neu gelloedd heb eu cloi mewn taflen waith warchodedig.

1. Yn y daflen waith mae angen i chi osod trefn tab, cliciwch ar y dde ar y tab dalen a chlicio Gweld y Cod o'r ddewislen cyd-destun.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod VBA isod i'r Côd ffenestr.

Cod VBA: Gosod trefn tab celloedd neu gelloedd heb eu cloi

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tabArray As Variant
    Dim i As Long
    tabArray = Array("B5", "C6", "D7", "E8")
    Application.ScreenUpdating = False
    For i = LBound(tabArray) To UBound(tabArray)
        If tabArray(i) = Target.Address(0, 0) Then
            If i = UBound(tabArray) Then
                Me.Range(tabArray(LBound(tabArray))).Select
            Else
                Me.Range(tabArray(i + 1)).Select
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Nodiadau:

1) Yn y cod, B5, C6, D7, E8 yw trefn y celloedd mewnbwn, a rhaid i chi ddefnyddio llythyren uchaf cyfeiriad y gell. Gallwch eu newid yn seiliedig ar eich anghenion.
2) Ar gyfer y daflen waith warchodedig, rhaid datgloi'r celloedd mewnbwn.

3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, ar ôl mewnbynnu data yn B5, mae'r cyrchwr yn mynd i C6 gyda phwyso'r tab Tab neu Enter, yna mynd i D7 wrth adael C6, ac yna symud i D7, E8 yn y daflen waith gyfredol.


Erthyglau perthnasol:


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 (14)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellir defnyddio hwn i orfodi tab i'r gell ddatgloi nesaf yn y daflen waith? Er enghraifft, mae angen i'r gweithredwr fewnbynnu (sganio) data i mewn i gell A15, ac yna dylai tabio drosodd i C15, yna E15, yna G15 (sef diwedd y rhes), yna dychwelyd i'r gell gyntaf yn y nesaf rhes, A16 ac ailadrodd y dilyniant. Mae angen i mi orfodi'r patrwm hwn gan fod rhai gweithredwyr yn defnyddio sganwyr wedi'u rhaglennu i dab, ac mae eraill wedi'u rhaglennu i fynd i mewn. Diolch!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl defnyddio'r un cod hwn i orfodi tab ar draws pob rhes i bob cell heb ei diogelu? Mae angen i mi dab gan ddechrau yng nghell A15, ac yna symud i'r gell ddiamddiffyn nesaf (C15), yna E15, yna G15. Unwaith yma, mae angen i mi dapio i A16 ac ailadrodd y broses ar gyfer gweddill y ffurflen. Y rheswm pam mae angen hyn arnaf yw bod data'n cael ei fewnbynnu gan sganiwr cod bar, ac mae rhai wedi'u rhaglennu i dab, ac eraill i'w nodi. Diolch am eich cymorth ar hyn. Spinaz
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo a diolch i chi am y cod VBA i osod trefn y tab mewn dalen warchodedig lle mae'r labeli rheoli ffurflenni a'r blychau cwymplen rheoli ffurflenni wedi'u datgloi a gall y defnyddiwr dapio drwodd a llenwi'r wybodaeth mewn label, ac wrth tabio i rhestr ostwng dewiswch nifer yr eitemau y mae'r cyfarwyddiadau yn ei roi iddo, ac rwyf wedi gwneud cynnydd gyda'ch cod. Ar y dechrau, dim ond pob un o'r rheolyddion ffurflen label y gallwn i eu tabio, nawr rydw i weithiau'n taro'r cwymplenni. Byddwn i wir yn mwynhau tiwtorial ar sut tro do tis
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gyda'r drefn rydych chi wedi'u rhestru mae excel yn ei wneud heb god VBA. Gwnewch iddyn nhw fynd am yn ôl ac fe gawsoch chi rywbeth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gyntaf dewiswch pa gelloedd yr hoffech eu cael heb eu diogelu.

Pan fyddwch chi'n amddiffyn eich dalen bydd yn gosod trefn y tab yn awtomatig yn ôl eich celloedd heb eu diogelu. Bydd yn Tab ymlaen o'r Chwith i'r Dde, a'r Brig i'r Gwaelod; Shift+Tab yn ôl o'r Dde i'r Chwith, ac o'r Gwaelod i'r Brig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Evan,
Diolch am rannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod ar enter order. Rwy'n gweithio ar daenlen yn mewnbynnu gwybodaeth cod bar ac mae angen i mi rychwantu hyd at 300 o gelloedd a dim ond 142 o gelloedd y mae'r rhaglen yn gadael i mi eu nodi. A oes ffordd i ychwanegu mwy fel y gallaf gael hyd at 300?



diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jeanne,
Diolch am eich sylwadau.
Ond ni ellir optimeiddio'r cod i ddiwallu'ch anghenion. Sori am hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Na fi funcionó, lo coloqué en la hoja de trabajo, debe haber algún error, mi podrían ayudar, necesito implementarlo en mi trabajo,

Atte,

Collins Neptali Arráiz López
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes ffordd i daro enter heb nodi unrhyw beth a'i gael i fynd i'r dewis nesaf?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Newydd yma Mae'r cod VBA yn gweithio nes i mi daro Blwch Tynnu i Lawr, rwy'n cyrraedd y cyntaf ar wneud fy newis , taro Tab ac mae'n symud i gell wedi'i gloi, Mae'n gweithredu fel cell na wnes i nodi unrhyw ddata ynddo. Unrhyw awgrymiadau? GlennD24
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Olá, o codigo VBA i ddiffinio a gorchymyn das células desejadas funcionou perfeitamente. Eu percebi que para que ele funcione , é necessário entrar com um dado na célula e pressionar TAB ou ENTER.
PERGUNTA: Você tem como fazer este codigo percorrer todas as células (no meu caso são 31, sendo algumas vazias e outras com valores padrão) sem ter que entrar com dados nelas, somente pressionando TAB ou ENTER. Como eu tenho algumas células vazias e outras com valores, por padrão, neu gostaria de percorrer as células sem precisar entrar com dados em todas elas novamente, mas, somente alterando as células que forem preciso alterar.

Testun wedi'i gyfieithu gan Google Translator
Helo, roedd y cod VBA i osod trefn y celloedd a ddymunir yn gweithio'n berffaith. Sylweddolais, er mwyn iddo weithio, fod angen mewnbynnu data i'r gell a phwyso TAB neu ENTER.
CWESTIWN: Gallwch chi wneud i'r cod hwn fynd trwy'r holl gelloedd (yn fy achos i mae 31, rhai yn wag ac eraill â gwerthoedd rhagosodedig) heb orfod mewnbynnu data ynddynt, dim ond pwyso TAB neu ENTER. Gan fod gennyf rai celloedd gwag ac eraill â gwerthoedd, yn ddiofyn hoffwn feicio trwy'r celloedd heb orfod mewnbynnu data ym mhob un ohonynt eto, ond dim ond newid y celloedd y mae angen i mi eu newid.att

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi copïo'ch cod i'm taflen waith, ond cyn gynted ag y byddaf yn ei gau a'i ailagor i'w ddefnyddio eto, mae'r cod wedi mynd. Sut mae arbed hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Anita,
Os ydych chi am gadw'r cod VBA ar gyfer defnydd nodwedd, ar ôl ychwanegu'r cod VBA, arbedwch eich llyfr gwaith fel Excel Llyfr gwaith Macro-alluogi fel y dangosir yn y screenshot isod. Yna defnyddiwch y ffeil sydd newydd ei chadw yn y dyfodol.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/Excel_macro-enabled_workbook.png
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir