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

Cum se setează ordinea de file a celulelor sau celulelor deblocate în Excel?

Presupunând că trebuie să setați ordinea de file pentru propriile celule definite, de exemplu, apăsați tasta Tab se va muta de la celula B5 la C6, de la C6 la D7, de la D7 la E8, apoi reveniți la B5 când părăsiți celula E8 într-o foaie de lucru așa cum se arată mai jos. Cum se realizează? Acest articol vă oferă o metodă VBA.

Setați ordinea filelor celulelor sau celulelor deblocate cu codul VBA


Setați ordinea filelor celulelor sau celulelor deblocate cu codul VBA

Rulați metoda VBA de mai jos pentru a seta ordinea de file a celulelor din foaia de lucru normală sau celulele deblocate din foaia de lucru protejată.

1. În foaia de lucru trebuie să setați ordinea filelor, faceți clic dreapta pe fila foaie și faceți clic pe Afișați codul din meniul contextual.

2. În Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți codul VBA de mai jos în Cod fereastră.

Cod VBA: setați ordinea filelor de celule sau celule deblocate

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

notițe:

1) În cod, B5, C6, D7, E8 este ordinea celulelor de intrare și trebuie să utilizați litera mare a adresei celulei. Le puteți schimba în funcție de nevoile dvs.
2) Pentru foaia de lucru protejată, celulele de intrare trebuie deblocate.

3. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

De acum înainte, după introducerea datelor în B5, cursorul merge la C6 apăsând tasta Tab sau Enter, apoi merge la D7 la ieșirea din C6 și apoi se mută la D7, E8 în foaia de lucru curentă.


Articole pe aceeași temă:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (14)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Poate fi folosit pentru a forța o filă la următoarea celulă deblocată din foaia de lucru? De exemplu, am nevoie ca operatorul să introducă (scaneze) date în celula A15, apoi ar trebui să treacă la C15, apoi E15, apoi G15 (care este sfârșitul rândului), apoi să revină la prima celulă din următoarea rândul, A16 și repetați secvența. Trebuie să forțez acest model, deoarece unii operatori au folosit scanere programate pentru tab, iar alții sunt programați să intre. Mulțumiri!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să folosiți același cod pentru a forța filarea pe fiecare rând către fiecare celulă neprotejată? Trebuie să fac tab începând cu celula A15, apoi să trec la următoarea celulă neprotejată (C15), apoi E15, apoi G15. Odată ajuns aici, trebuie să trec la A16 și să repet procesul pentru restul formularului. Motivul pentru care am nevoie de acest lucru este că datele sunt introduse prin scanerul de coduri de bare, iar unele sunt programate pentru a fi introduse, iar altele. Vă mulțumim pentru ajutor în acest sens. Spinaz
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua și vă mulțumim pentru codul VBA pentru a seta ordinea filetului într-o foaie protejată în care etichetele de control al formularului și casetele derulante pentru controlul formularelor sunt deblocate, iar utilizatorul poate parcurge și completa informațiile dintr-o etichetă, iar atunci când tabula la o listă derulantă selectează numărul de articole pe care i le oferă instrucțiunile și am făcut progrese cu codul tău. La început, puteam trece doar prin fiecare dintre controalele formularului de etichetă, acum uneori accesam listele drop-down. Mi-ar plăcea foarte mult un turorial despre cum să faci asta
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cu ordinea în care le-ați enumerat, excel nu are cod VBA. Fă-i să meargă înapoi, atunci ai ceva.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mai întâi selectați celulele pe care doriți să le aveți neprotejate.

Când vă protejați foaia, va seta automat ordinea filelor în funcție de celulele dvs. neprotejate. Se va trece Tab înainte de la stânga la dreapta și de sus în jos; Shift+Tab înapoi de la dreapta la stânga și de jos în sus.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragă Evan,
Vă mulțumim pentru partajarea.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru codul de la introducerea comenzii. Lucrez la o foaie de calcul care introduce informații despre coduri de bare și trebuie să acoperă până la 300 de celule, iar programul îmi permite să introduc doar 142 de celule. Există vreo modalitate de a adăuga mai multe, astfel încât să pot obține până la 300?



mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Jeanne,
Vă mulțumim pentru comentariu.
Dar codul nu poate fi optimizat pentru a satisface nevoile dvs. Îmi pare rău pentru asta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
No me functionó, lo coloqué en la hoja de trabajo, debe haber alguna error, me couldn help, necesito implementarlo in my work,

att,

Collins Neptali Arráiz López
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, există vreo modalitate de a apăsa enter fără a introduce nimic și de a trece la următoarea selecție?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua, Nou aici Codul VBA funcționează până când lovesc o casetă derulantă, ajung la prima la efectuarea selecției, apăsați Tab și se mută într-o celulă blocată, se comportă ca o celulă în care nu am introdus date. Orice sugestii? GlennD24
Acest comentariu a fost redus la minimum de moderatorul de pe site
Olá, o cod VBA pentru a defini a ordona celulelor dorite să funcționeze perfect. Eu percebi que para că ele funcţionează, este necesar să intre com um dado na célula e pressionar TAB sau ENTER.
PERGUNTA: Você tem como fazer este cod percorrer todas as cells (no meu caso são 31, sendo algumas vazias and other com values ​​padrão) sem ter que entrar com dados nelas, somente pressionando TAB or ENTER. Como eu tenho algumas celule vazias și alte com valori, por padrão, eu gostaria de percorrer as cells sem precisar entrar com dados em all elas novamente, mas, somente alterando as cells that forem precis alterar.att

Text tradus de Google Translator
Bună ziua, codul VBA pentru a seta ordinea celulelor dorite a funcționat perfect. Mi-am dat seama că pentru ca acesta să funcționeze, este necesar să introduceți date în celulă și să apăsați TAB sau ENTER.
ÎNTREBARE: Puteți face acest cod să treacă prin toate celulele (în cazul meu sunt 31, unele fiind goale, iar altele cu valori implicite) fără a fi nevoie să introduceți date în ele, doar apăsând TAB sau ENTER. Deoarece am unele celule goale și altele cu valori, în mod implicit aș dori să parcurg celulele fără a fi nevoie să introduc din nou date în toate, ci doar schimbând celulele pe care trebuie să le schimb.att

Acest comentariu a fost redus la minimum de moderatorul de pe site
Am copiat codul dvs. în foaia de lucru, dar de îndată ce îl închid și îl redeschid pentru al utiliza din nou, codul a dispărut. Cum salvez asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Anita,
Dacă doriți să păstrați codul VBA pentru utilizarea caracteristicilor, după adăugarea codului VBA, salvați registrul de lucru ca un Registrul de lucru Excel Macro-activat așa cum se arată în captura de ecran de mai jos. Apoi utilizați fișierul nou salvat în viitor.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/Excel_macro-enabled_workbook.png
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL