Jak dodać znacznik wyboru w komórce za pomocą dwukrotnego kliknięcia w programie Excel?

Zwykle, aby wstawić znacznik wyboru w komórce, musisz przejść do okna dialogowego Symbol, znaleźć symbol znacznika wyboru i wstawić go ręcznie. Jednak znalezienie symbolu znacznika wyboru w oknie dialogowym Symbol nie jest tak łatwe, ponieważ w środku znajduje się wiele symboli. Jak szybko dodać znacznik wyboru w komórce w programie Excel? W tym artykule pokażemy metodę VBA, aby łatwo dodać znacznik wyboru w komórce za pomocą tylko dwukrotnego kliknięcia.

Kliknij dwukrotnie, aby dodać znacznik wyboru w komórce z kodem VBA

Kliknij dwukrotnie, aby dodać znacznik wyboru w komórce z kodem VBA

Poniższy kod VBA może pomóc w dodaniu znacznika wyboru w komórce za pomocą dwukrotnego kliknięcia. Wykonaj następujące czynności.

1. Otwórz arkusz roboczy, w którym chcesz dodać znacznik wyboru do komórki, a następnie kliknij prawym przyciskiem myszy i wybierz Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.

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

Kod VBA: kliknij dwukrotnie, aby dodać znacznik wyboru w komórce

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Uwagi: W kodzie B1: B10 to zakres, do którego dodasz znacznik wyboru po dwukrotnym kliknięciu. Zmień to w zależności od potrzeb.

3. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications i wróć do arkusza.

Teraz kliknij dwukrotnie dowolną komórkę w zakresie B1: B10, znacznik wyboru zostanie wprowadzony automatycznie. Po ponownym dwukrotnym kliknięciu komórki wstawiony znacznik wyboru zostanie usunięty.

Jeśli musisz często używać znaczników wyboru w codziennej pracy programu Excel, tutaj polecam Automatyczny tekst Użyteczność Kutools dla programu Excel. Dzięki tej funkcji możesz zapisać znacznik wyboru jako automatyczny wpis tekstowy, a następnie ponownie go w przyszłości za pomocą jednego kliknięcia w programie Excel, jak pokazano poniżej.
Pobierz i wypróbuj teraz! (30-dzień wolny szlak)

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.

Czytaj więcej... Darmowe pobieranie... Zakup...

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!

Czytaj więcej... Darmowe pobieranie... Zakup...

Komentarze (12)

Brak ocen. Oceń jako pierwszy!

Luiza Carlosa Diasa

o 4 lat temu

#27122

Ten komentarz został zminimalizowany przez moderatora na stronie

como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marka sairia na frente do número quando eu der duplo clique... e quanpado a eu quizer a marcalo clique novamente ea célula voltaria ao normar (continuaria apenas o número).

Odpowiedz

Tadao Kano Luiza Carlosa Diasa

o 4 lat temu

#27123

Ten komentarz został zminimalizowany przez moderatora na stronie

Ola Luiz, tente essa alteracao. Ira funcionar nas celulas A2:A10 i D2:D5, altere conforme sua necessidade.

tadao

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Anuluj jako Boolean)
If Not Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) jest niczym Wtedy
Application.EnableEvents = Fałsz
Jeśli Left(ActiveCell.Value, 1) = ChrW(&H2713) Wtedy
ActiveCell.Value = Right(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
Więcej
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
End If
Cancel = True
End If
Application.EnableEvents = True
End Sub

Odpowiedz

Elizabeth

o 2 lat temu

#34106

Ten komentarz został zminimalizowany przez moderatora na stronie

Czy istnieje sposób na zapętlenie tego kodu, tak aby znajdował się on w wielu arkuszach w jednym skoroszycie?

Odpowiedz

Zgłoś

kryształ Elizabeth

o 2 lat temu

#34107

Ten komentarz został zminimalizowany przez moderatora na stronie

Cześć leoflute, po naciśnięciu przycisku inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications kliknij dwukrotnie Ten zeszyt otworzyć ThisWorkbook (kod) okno, a następnie skopiuj poniższy kod do okna kodu. Nie zapomnij zmienić nazw arkuszy i zakresu komórek w kodzie. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh jako obiekt, ByVal Target jako zakres, Anuluj jako Boolean)
'Aktualizowany przez Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName jako ciąg
Dim xEEBol, xWSNBol, xBol jako Boolean
Przyciemnij xArrWs
Wym. xArrRg
Dim xI, xJ jako liczba całkowita
Dim xWs jako arkusz roboczy
Dim xRg jako zakres

xStrWs = "Arkusz5,Arkusz1,Arkusz2„ 'Konkretne nazwy arkuszy roboczych
xStrRg = "B3: B10" 'Zakres komórek, w których wstawisz znaczniki wyboru
xArrWs = Podział(xStrWs, ",")
xArrRg = Podział (xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = Fałsz
On Error Resume Next
xStrWsName = Sh.Nazwa
xBol = Fałsz
xWSNBol = Fałsz
Dla xI = 0 To UBound(xArrWs)
Jeśli xStrWsName = xArrWs(xI) Wtedy
xWSNBol = Prawda
Wyjdź dla
End If
Następny xI

Jeśli xWSNBol Wtedy
Ustaw xWs = Application.Worksheets.Item(xArrWs(xI))
Dla xJ = 0 To UBound(xArrRg)
Ustaw xRg = Sh.Range(xArrRg(xJ))
Jeśli nie przecina (cel, xRg) jest niczym, to
xBol = Prawda
Wyjdź dla
End If
Następny xJ
End If

Jeśli xBol to
Jeśli ActiveCell.Value = ChrW(&H2713) Wtedy
ActiveCell.Wyczyść zawartość
Więcej
ActiveCell.Value = ChrW(&H2713)
End If
Cancel = True
End If
Application.EnableEvents = xEEBol
End Sub

Odpowiedz

Zgłoś

CSherrod

o 1 rok temu

#35215

Ten komentarz został zminimalizowany przez moderatora na stronie

Siemanko! Co dodałbym do powyższego kodu, aby komórka zmieniła kolor po dodaniu pola wyboru?

Odpowiedz

Dan

o 1 rok temu

#36632

Ten komentarz został zminimalizowany przez moderatora na stronie

Cześć kryształ
czy istnieje sposób na umieszczenie znaczników w A1:A10 razem z B3:B10?

Odpowiedz

Michał

o 1 rok temu

#36920

Ten komentarz został zminimalizowany przez moderatora na stronie

Jak to powtórzyć dla wielu kolumn?
Na przykład potrzebuję tego w następujący sposób:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

Odpowiedz

Ulissesa Nonato

o 7 miesięcy temu

#38841

Ten komentarz został zminimalizowany przez moderatora na stronie

Eu gostaria de sabre se é possível adicionar a marca com apenas um clique ao invés de dois.

Odpowiedz

kryształ Ulissesa Nonato

o 6 miesięcy temu

#38900

Ten komentarz został zminimalizowany przez moderatora na stronie

Witam Ulissesa Nonato,
Jeśli chcesz dodać znacznik wyboru do komórki za pomocą jednego kliknięcia myszą, poniższy kod VBA może ci wyświadczyć przysługę.
Musisz kliknąć Prawa myszka przycisk, aby aktywować kod.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Odpowiedz

Zgłoś

Sora

o 2 miesięcy temu

#41276

Ten komentarz został zminimalizowany przez moderatora na stronie

Jak to zrobić, aby po dwukrotnym kliknięciu dodał znacznik czasu do sąsiedniej komórki?

Odpowiedz

kryształ Sora

o 2 miesięcy temu

#41491

Ten komentarz został zminimalizowany przez moderatora na stronie

Cześć Sora,
Poniższy kod VBA może wyświadczyć ci przysługę. Proszę spróbować. Dziękuję Ci.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

Odpowiedz

Zgłoś

anne

około tydzień temu

#42923

Ten komentarz został zminimalizowany przez moderatora na stronie

Witam,

Une fois ces przypadkach cochées, j'aimerais qu'une cellule x m'additionne les chiffres d'une Certaine colonne, est ce możliwe?

Merci à vous, bonne soirée

Odpowiedz

Nie ma tu jeszcze żadnych komentarzy

Zostaw swój komentarz

Publikowanie jako gość

Nazwa (Wymagane)

E-mail (wymagane)

Oceń ten post:

Zresetuj

0 Postacie

Zgadzam się na Terminy i warunki