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

Jak ustawić kolejność tabulacji komórek lub odblokowanych komórek w programie Excel?

Przypuśćmy, że musisz ustawić kolejność tabulacji dla własnych zdefiniowanych komórek, na przykład naciśnięcie klawisza Tab spowoduje przejście z komórki B5 do C6, z C6 do D7, z D7 do E8, a następnie powrót do B5 po opuszczeniu komórki E8 w arkuszu jak pokazano na poniższym zrzucie ekranu. Jak to osiągnąć? W tym artykule przedstawiono metodę VBA.

Ustaw kolejność tabulacji komórek lub odblokowanych komórek za pomocą kodu VBA


Ustaw kolejność tabulacji komórek lub odblokowanych komórek za pomocą kodu VBA

Uruchom poniższą metodę VBA, aby ustawić kolejność tabulatorów komórek w normalnym arkuszu lub odblokowanych komórek w chronionym arkuszu.

1. W arkuszu roboczym musisz ustawić kolejność tabulatorów, kliknij prawym przyciskiem myszy kartę arkusza i kliknij Wyświetl kod z menu kontekstowego.

2. w Microsoft Visual Basic for Applications okno, skopiuj i wklej poniższy kod VBA do pliku Kod okno.

Kod VBA: ustaw kolejność tabulacji komórek lub odblokowanych komórek

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

Uwagi:

1) W kodzie B5, C6, D7, E8 to kolejność komórek wejściowych i należy użyć dużej litery adresu komórki. Możesz je zmieniać w zależności od potrzeb.
2) W przypadku chronionego arkusza roboczego komórki wejściowe muszą być odblokowane.

3. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.

Od tej chwili po wprowadzeniu danych w B5 kursor przechodzi do C6 naciskając klawisz Tab lub Enter, następnie przechodzi do D7 wychodząc z C6, a następnie przechodzi do D7, E8 w bieżącym arkuszu.


Powiązane artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (14)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można tego użyć do wymuszenia przejścia tabulatorem do następnej odblokowanej komórki w arkuszu? Na przykład potrzebuję, aby operator wpisał (zeskanował) dane do komórki A15, a następnie powinien przejść do C15, następnie E15, potem G15 (czyli koniec wiersza), a następnie wrócić do pierwszej komórki w następnej wiersz, A16 i powtórz sekwencję. Muszę wymusić ten wzór, ponieważ niektórzy operatorzy używali skanerów zaprogramowanych na tabulator, a inni są zaprogramowani do wejścia. Dzięki!!
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można użyć tego samego kodu, aby wymusić tabulator w każdym wierszu do każdej niechronionej komórki? Muszę przejść na kartę zaczynając od komórki A15, a następnie przejść do następnej niezabezpieczonej komórki (C15), następnie E15, a następnie G15. Będąc tutaj, muszę przejść do A16 i powtórzyć ten proces dla pozostałej części formularza. Powodem, dla którego tego potrzebuję, jest to, że dane są wprowadzane przez skaner kodów kreskowych, a niektóre są zaprogramowane na tabulator, a inne na wprowadzanie. Dzięki za pomoc w tej sprawie. Spinaz
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam i dziękuję za kod VBA, aby ustawić kolejność zakładek w chronionym arkuszu, w którym etykiety kontrolne formularza i pola rozwijane kontroli formularza są odblokowane, a użytkownik może przeglądać i wypełniać informacje na etykiecie, a także z rozwijanej listy wybierz liczbę elementów, które dają mu instrukcje, a ja poczyniłem postępy w twoim kodzie. Na początku mogłem tylko przejrzeć każdą z kontrolek formularza etykiet, teraz czasami trafiam na listy rozwijane. Naprawdę podobałby mi się przewodnik po tym, jak tro robić tis
Ten komentarz został zminimalizowany przez moderatora na stronie
Z kolejnością, w której je wymieniłeś, program Excel nie zawiera kodu VBA. Niech cofają się, a wtedy coś masz.
Ten komentarz został zminimalizowany przez moderatora na stronie
Najpierw wybierz komórki, które chcesz, aby były niechronione.

Gdy chronisz swój arkusz, automatycznie ustawi kolejność zakładek zgodnie z niechronionymi komórkami. Przechodzi do przodu od lewej do prawej iz góry na dół; Shift+Tab wstecz od prawej do lewej i od dołu do góry.
Ten komentarz został zminimalizowany przez moderatora na stronie
Drogi Ewie,
Dziękujemy za dzielenie się.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki za kod przy wprowadzaniu zamówienia. Pracuję nad arkuszem kalkulacyjnym wprowadzam informacje o kodzie kreskowym i muszę rozciągnąć do 300 komórek, a program pozwala mi wprowadzić tylko 142 komórki. Czy jest sposób, aby dodać więcej, aby uzyskać do 300?



Podziękowania
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Jeanne,
Dzięki za komentarz.
Ale kodu nie można zoptymalizować pod kątem Twoich potrzeb. Przepraszam za to.
Ten komentarz został zminimalizowany przez moderatora na stronie
No me funcionó, lo coloqué en la hoja de trabajo, debe haber algún error, me podrían ayudar, necesito implementarlo en mi trabajo,

Atte,

Collins Neptali Arráiz López
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, czy jest sposób, aby po prostu nacisnąć Enter bez wprowadzania czegokolwiek i przejść do następnego wyboru?
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj, Nowość tutaj Kod VBA działa, dopóki nie nacisnę Pull Down Box, przechodzę do pierwszego po dokonaniu wyboru, naciskam Tab i przenosi się do zablokowanej komórki. Działa jak komórka, w której nie wprowadziłem żadnych danych. Dowolne propozycje? GlennD24
Ten komentarz został zminimalizowany przez moderatora na stronie
Olá, o código VBA para definir a ordem 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 código 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 opressionando T. Como eu tenho algumas células vazias e outras com valores, por padrão, eu gostaria de percorrer as células sem precisar entrar com dados em todas elas novamente, mas, somente alterando as céluso que foremattci

Tekst przetłumaczony przez Google Translator
Witam, kod VBA do ustawiania kolejności żądanych komórek działał idealnie. Zdałem sobie sprawę, że aby to zadziałało, konieczne jest wprowadzenie danych do komórki i naciśnięcie TAB lub ENTER.
PYTANIE: Możesz sprawić, że ten kod przejdzie przez wszystkie komórki (w moim przypadku jest ich 31, niektóre są puste, a inne z wartościami domyślnymi) bez konieczności wprowadzania w nich danych, po prostu naciskając TAB lub ENTER. Ponieważ mam kilka pustych komórek i inne z wartościami, domyślnie chciałbym przełączać się między komórkami bez konieczności ponownego wprowadzania danych we wszystkich, a jedynie zmieniając te komórki, które muszę zmienić.att

Ten komentarz został zminimalizowany przez moderatora na stronie
Skopiowałem Twój kod do arkusza, ale gdy tylko go zamknę i ponownie go otworzę, aby ponownie go użyć, kod zniknął. Jak to zapisać?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Anita,
Jeśli chcesz zachować kod VBA do użytku funkcji, po dodaniu kodu VBA zapisz skoroszyt jako Skoroszyt programu Excel z obsługą makr jak pokazano na zrzucie ekranu poniżej. Następnie użyj nowo zapisanego pliku w przyszłości.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/Excel_macro-enabled_workbook.png
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL