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.

Preberite več ... Brezplačen prenos... Nakup ...

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!

Preberite več ... Brezplačen prenos... Nakup ...

Komentarji (12)

Ocene še ni. Bodite prvi in ocenite!

Luiz Carlos Dias

pred približno dvema letoma

#27122

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).

Odgovori

Tadao Kano Luiz Carlos Dias

pred približno dvema letoma

#27123

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

Odgovori

Elizabeth

pred približno dvema letoma

#34106

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?

Odgovori

poročilo

kristal Elizabeth

pred približno dvema letoma

#34107

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

Odgovori

poročilo

CSherrod

pred približno 1 letom

#35215

Ta komentar je moderator na spletnem mestu minimiziral

Zdravo! Kaj bi dodal zgornji kodi, da bi celica spremenila barvo, ko je dodano potrditveno polje?

Odgovori

Dan

pred približno 1 letom

#36632

Ta komentar je moderator na spletnem mestu minimiziral

Živjo kristal
ali obstaja način za kljukice v A1:A10 skupaj z B3:B10?

Odgovori

Michael

pred približno 1 letom

#36920

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

Odgovori

Ulisses Nonato

pred približno tremi meseci

#38841

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.

Odgovori

kristal Ulisses Nonato

pred približno tremi meseci

#38900

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

Odgovori

poročilo

Sora

pred približno tremi meseci

#41276

Ta komentar je moderator na spletnem mestu minimiziral

Kako naj naredim, da bo po dvojnem kliku v sosednjo celico dodal časovni žig?

Odgovori

kristal Sora

pred približno tremi meseci

#41491

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

Odgovori

poročilo

anne

pred približno 5 dnevi

#42923

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

Odgovori

Tu še ni objavljenih komentarjev

Pustite vaše komentarje

Objava kot gost

Prijava

Ime (obvezno)

E-pošta (obvezno)

Ocenite to objavo:

Ponastavi

0 Znaki

Strinjam se pogoji in stanje