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

Jak aktywować komórki do edycji jednym kliknięciem w programie Excel?

Ten artykuł mówi o aktywowaniu komórek do edycji za pomocą jednego kliknięcia w programie Excel. Wykonaj następujące czynności krok po kroku.

Aktywuj komórki do edycji jednym kliknięciem za pomocą kodu VBA


Aktywuj komórkę do edycji jednym kliknięciem za pomocą kodu VBA

Poniższy kod VBA może pomóc aktywować komórki do edycji za pomocą jednego kliknięcia.

1. Otwórz arkusz roboczy, którego potrzebujesz, aby aktywować komórki jednym kliknięciem. Kliknij prawym przyciskiem kartę Arkusz i kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.

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

Kod VBA: aktywuj komórkę do edycji jednym kliknięciem

#If Win64 Then
'Updated by Extendoffice 2018/2/2
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If
Const VK_NUMLOCK = 144
Const VK_CAPITAL = 20
Const VK_SCROLL = 145
Dim xOldNLState As Long
Dim xOldCLState As Long
Dim xOldSLState As Long
Const KEY_MASK As Integer = &HFF80 '

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (GetKeyState(vbKeyShift) And KEY_MASK) <> 0 Then Exit Sub
    xOldNLState = GetAsyncKeyState(VK_NUMLOCK)
    xOldCLState = GetAsyncKeyState(VK_CAPITAL)
    xOldSLState = GetAsyncKeyState(VK_SCROLL)
    SendKeys "{F2}"
    If GetAsyncKeyState(VK_NUMLOCK) <> xOldNLState Then
        Application.SendKeys "{NUMLOCK}"
    End If
    If GetAsyncKeyState(VK_CAPITAL) <> xOldCLState Then
        Application.SendKeys "{CAPSLOCK}"
    End If
    If GetAsyncKeyState(VK_SCROLL) <> xOldSLState Then
        Application.SendKeys "{SCROLLLOCK}"
    End If
End Sub

3. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.

Odtąd, po pojedynczym kliknięciu dowolnej komórki w bieżącym arkuszu, komórka zostanie natychmiast aktywowana.


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 (7)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć ludzie. Miałem pytanie o dziwny efekt uboczny tego kodu, gdy używam go w jednym z moich arkuszy.
Wypróbowałem kod wspomniany we wpisie.
//
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
WyślijKlawisze „{F2}”
End Sub
//
Efektem ubocznym jest to, że gdy aktywuję komórkę, mój Numlock się wyłącza/włącza.
Każda pomoc będzie doceniona.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dobry dzień,
Kod jest aktualizowany wraz z rozwiązywaniem problemów. Dziękuję za Twój komentarz.
Ten komentarz został zminimalizowany przez moderatora na stronie
Hej wszystkim, po pierwsze, wielkie dzięki za opublikowanie tego, to definitywna oszczędność czasu. Właśnie zauważyłem, że jeśli spróbujesz użyć „Shift + tab”, aby przenieść jedną komórkę w lewo, zamiast tego zostanie utworzone pole komentarza. Mimo wszystko naprawić ten problem? Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
Przepraszam, nie jestem pewien, czy mój ostatni post został opublikowany. Oto znowu na wszelki wypadek:

Hej wszystkim, po pierwsze, wielkie dzięki za opublikowanie tego, to definitywna oszczędność czasu. Właśnie zauważyłem, że jeśli spróbujesz użyć polecenia klawiaturowego „Shift+tab”, aby przesunąć jedną komórkę w lewo, zamiast tego zostanie utworzone pole komentarza. Mimo wszystko naprawić ten problem? Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
Drogi Wayne,
Kod został zaktualizowany i rozwiązany problem. Dziękujemy za twoją opinię.
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy jest sposób na to, żebyś mógł być w jednym oknie programu, klikając w okno programu Excel i na komórkę jednym kliknięciem? Zauważyłem, że chociaż przechodzi od razu do trybu edycji, po kliknięciu w program przechodzi do poprzedniej komórki, więc nadal wymaga dwóch kliknięć, aby rozpocząć edycję.
Ten komentarz został zminimalizowany przez moderatora na stronie
miły i zrozumiany
Nie ma tu jeszcze żadnych komentarzy

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