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

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.
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 (12)
Brak ocen. Oceń jako pierwszy!
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).
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
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?
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

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?
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?
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
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.
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
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak to zrobić, aby po dwukrotnym kliknięciu dodał znacznik czasu do sąsiedniej komórki?
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
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
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