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

Kako dodati kljukico v celico z dvojnim klikom v Excelu?

Običajno morate za vstavljanje kljukice v celico odpreti pogovorno okno Simbol, poiskati simbol kljukice in ga vstaviti ročno. Vendar simbola kljukice v pogovornem oknu Simbol ni tako enostavno najti, saj je v njem naštetih veliko simbolov. Kako hitro dodati kljukico v celico v Excelu? V tem članku je prikazana metoda VBA za enostavno dodajanje kljukice v celico samo z dvojnim klikom.

Dvokliknite, da dodate kljukico v celico s kodo VBA


Dvokliknite, da dodate kljukico v celico s kodo VBA

Naslednja koda VBA vam lahko pomaga z dvojnim klikom dodati kljukico v celico. Naredite naslednje.

1. Odprite delovni list, ki ga želite dodati v celico, nato z desno miškino tipko kliknite in izberite Ogled kode v meniju z desnim klikom.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v Koda okno.

Koda VBA: Dvokliknite za dodajanje kljukice v celico

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

Opombe: V kodi je B1: B10 obseg, ki ga boste dodali z dvojnim klikom. Prosimo, spremenite ga glede na vaše potrebe.

3. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno in se vrnite na delovni list.

Zdaj dvokliknite katero koli celico v območju B1: B10, kljukica bo samodejno vnesena. In z dvojnim klikom na celico znova odstranimo vstavljeno kljukico.

Če morate pogosto uporabljati kljukice pri vsakodnevnem delu v Excelu, priporočam Samodejno besedilo Uporabnost Kutools za Excel. S to funkcijo lahko kljukico shranite kot samodejni vnos besedila in jo nato v prihodnosti nadaljujete z enim samim klikom v Excelu, kot je prikazano spodaj.
Prenesite in preizkusite zdaj! (30-dnevna prosta pot)


Sorodni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (12)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
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 marca sairia na frente do número quando eu der duplo clique... e quando apaeu a marca quando apaeu eu clique novamente ea célula voltaria ao normar (continuaria apenas o número).
Ta komentar je moderator na spletnem mestu minimiziral
Ola Luiz, tente essa alteracao. Funkcionira na celicah A2:A10 in D2:D5, ki so v skladu s potrebami.

tadao


Zasebni pod delovni list_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Če se ne seka(Cilj, Združenje(Obseg("A2:A10"), Obseg("D2:D5"))) ni nič potem
Application.EnableEvents = False
Če je Left(ActiveCell.Value, 1) = ChrW(&H2713), potem
ActiveCell.Value = Desno(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
Else
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
Konec Če
Prekliči = Res
Konec Če
Aplikacija EnableEvents = True
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način za zanko te kode, tako da je na veliko delovnih listih v enem delovnem zvezku?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo leofluta, po pritisku na druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno, prosimo, dvokliknite Ta delovni zvezek da odprete ThisWorkbook (koda) okno in nato kopirajte spodnjo kodo v kodno okno. Ne pozabite spremeniti imen listov in obsega celic v kodi. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh kot objekt, ByVal Target kot obseg, Cancel kot Boolean)
'Posodobil Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName kot niz
Dim xEEBol, xWSNBol, xBol Kot Boolean
Dim xArrWs
Dim xArrRg
Dim xI, xJ Kot celo število
Dim xWs kot delovni list
Dim xRg As Range

xStrWs = "List5, List1, List2" "Imena določenih delovnih listov
xStrRg = "B3: B10" "Obseg celic, v katerega boste vstavili kljukice
xArrWs = Split(xStrWs, ",")
xArrRg = Split(xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = False
On Error Resume Next
xStrWsName = Sh.Name
xBol = False
xWSNBol = False
Za xI = 0 do UBound(xArrWs)
Če je xStrWsName = xArrWs(xI) Potem
xWSNBol = Res
Izhod za
Konec Če
Naslednji xI

Če je xWSNBol Potem
Nastavite xWs = Application.Worksheets.Item(xArrWs(xI))
Za xJ = 0 do UBound(xArrRg)
Nastavi xRg = Sh.Range(xArrRg(xJ))
Če se ne seka (Target, xRg) je potem nič
xBol = Res
Izhod za
Konec Če
Naslednji xJ
Konec Če

Če xBol Potem
Če je ActiveCell.Value = ChrW(&H2713) Potem
ActiveCell.ClearContents
Else
ActiveCell.Value = ChrW(&H2713)
Konec Če
Prekliči = Res
Konec Če
Application.EnableEvents = xEEBol
End Sub

Ta komentar je moderator na spletnem mestu minimiziral
Zdravo! Kaj bi dodal zgornji kodi, da bi celica spremenila barvo, ko je dodano potrditveno polje?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo kristal
ali obstaja način za kljukice v A1:A10 skupaj z B3:B10?
Ta komentar je moderator na spletnem mestu minimiziral
Kako to ponovim za več stolpcev? 
Na primer, potrebujem ga v naslednjem:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX
Ta komentar je moderator na spletnem mestu minimiziral
Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de dois.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Ulisses Nonato,
Če želite celici dodati kljukico s samo enim klikom miške, vam lahko naslednja koda VBA naredi uslugo.
Morate klikniti na desna miška gumb za aktiviranje kode.
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
Ta komentar je moderator na spletnem mestu minimiziral
Kako naj naredim, da bo po dvojnem kliku v sosednjo celico dodal časovni žig?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Sora,
Naslednja koda VBA vam lahko naredi uslugo. Prosim poskusite. Hvala vam.
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
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,

Une fois ces cases cochées, j'aimerais qu'une cellule x m'additionne les chiffres d'une certaine colonne, est ce possible ?

Merci à vous, bonne soirée
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL