Come aggiungere un segno di spunta in una cella con doppio clic in Excel?

Normalmente, per inserire un segno di spunta in una cella, è necessario entrare nella finestra di dialogo Simbolo, trovare il simbolo del segno di spunta e inserirlo manualmente. Ma non è così facile trovare il simbolo del segno di spunta nella finestra di dialogo Simbolo poiché ci sono numerosi simboli elencati all'interno. Come aggiungere rapidamente un segno di spunta in una cella in Excel? Questo articolo ti mostrerà un metodo VBA per aggiungere facilmente un segno di spunta in una cella solo con doppio clic.

Fare doppio clic per aggiungere un segno di spunta in una cella con codice VBA

Fare doppio clic per aggiungere un segno di spunta in una cella con codice VBA

Il seguente codice VBA può aiutarti ad aggiungere un segno di spunta in una cella con doppio clic. Si prega di fare quanto segue.

1. Aprire il foglio di lavoro necessario per aggiungere il segno di spunta nella cella, quindi fare clic con il tasto destro e selezionare Visualizza codice dal menu di scelta rapida.

2. Nel Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice VBA sottostante nel file Codice finestra.

Codice VBA: fare doppio clic per aggiungere un segno di spunta in una cella

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

Note:: Nel codice, B1: B10 è l'intervallo che aggiungerai un segno di spunta con un doppio clic. Si prega di modificarlo in base alle proprie necessità.

3. premi il altro + Q i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra e tornare al foglio di lavoro.

Ora, fai doppio clic su qualsiasi cella nell'intervallo B1: B10, il segno di spunta verrà inserito automaticamente. E facendo nuovamente doppio clic sulla cella, il segno di spunta inserito verrà rimosso.

Se devi usare frequentemente i segni di spunta nel tuo lavoro quotidiano di Excel, qui ti consiglio il file Testo automatico Utilità di Kutools for Excel. Con questa funzione, puoi salvare un segno di spunta come una voce di testo automatica, quindi ripristinarla in futuro con un solo clic in Excel come mostrato nella demo sottostante.
Scaricalo e provalo ora! (30-giorni di percorso gratuito)

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista...

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

Leggi di più... Download gratuito... Acquista...

Commenti (12)

Ancora nessuna valutazione. Puoi essere il primo a votare!

Luiz Carlos Dias

circa 4 anni fa

#27122

Questo commento è stato fatto dal moderatore sul sito

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

Rispondi

Tadao Kano Luiz Carlos Dias

circa 4 anni fa

#27123

Questo commento è stato fatto dal moderatore sul sito

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

tadao

Foglio di lavoro secondario privato_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("A2:A10"), Range("D2:D5"))) non è nulla allora
Application.EnableEvents = False
Se Left(ActiveCell.Value, 1) = ChrW(&H2713) Allora
ActiveCell.Value = Destra(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
Altro
ActiveCell.Value = ChrW(&H2713) e ActiveCell.Value
End If
Annulla = Vero
End If
Application.EnableEvents = True
End Sub

Rispondi

Elisabetta

circa 2 anni fa

#34106

Questo commento è stato fatto dal moderatore sul sito

C'è un modo per eseguire il ciclo di questo codice in modo che si trovi su molti fogli di lavoro in una cartella di lavoro?

Rispondi

Report

cristallo Elisabetta

circa 2 anni fa

#34107

Questo commento è stato fatto dal moderatore sul sito

Ciao leoflute, Dopo aver premuto il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa cartella di lavoro per aprire il ThisWorkbook (codice) finestra, quindi copiare il codice seguente nella finestra del codice. Non dimenticare di modificare i nomi dei fogli e l'intervallo di celle nel codice. Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'Aggiornato da Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName come stringa
Dim xEEBol, xWSNBol, xBol come booleano
Dim xArrWs
Dim xArrRg
Dim xI, xJ come intero
Dim xWs come foglio di lavoro
Dim xRg come intervallo

xStrWs = "Foglio5,Foglio1,Foglio2" 'I nomi dei fogli di lavoro specifici
xStrRg = "B3: B10" 'L'intervallo di celle in cui inserirai segni di spunta
xArrWs = Dividi(xStrWs, ",")
xArrRg = Dividi(xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = False
On Error Resume Next
xStrWsName = Sh.Nome
xBol = Falso
xWSNBol = Falso
Per xI = 0 A UBound(xArrWs)
Se xStrWsName = xArrWs(xI) Allora
xWSNBol = Vero
Esci per
End If
Avanti xI

Se xWSNBol Allora
Imposta xWs = Application.Worksheets.Item(xArrWs(xI))
Per xJ = 0 A UBound(xArrRg)
Imposta xRg = Sh.Range(xArrRg(xJ))
If Not Intersect(Target, xRg) non è niente allora
xBol = Vero
Esci per
End If
Avanti xJ
End If

Se xBol Allora
Se ActiveCell.Value = ChrW(&H2713) Allora
ActiveCell.ClearContents
Altro
ActiveCell.Value = ChrW(&H2713)
End If
Annulla = Vero
End If
Application.EnableEvents = xEEBol
End Sub

Rispondi

Report

Sherrod

circa 1 anno fa

#35215

Questo commento è stato fatto dal moderatore sul sito

Ciao! Cosa aggiungerei al codice sopra per fare in modo che la cella cambi colore quando viene aggiunta la casella di controllo?

Rispondi

Dan

circa 1 anno fa

#36632

Questo commento è stato fatto dal moderatore sul sito

Ciao cristallo
c'è un modo per avere segni di spunta in A1:A10 insieme a B3:B10?

Rispondi

Michael

circa 1 anno fa

#36920

Questo commento è stato fatto dal moderatore sul sito

Come lo ripeto per più colonne?
Ad esempio ne ho bisogno nel seguente:
E, F, I, J, M, N ,Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

Rispondi

Ulisse Nonato

mese circa 7 fa

#38841

Questo commento è stato fatto dal moderatore sul sito

Il giocatore di sciabole può essere aggiunto al marchio come apena um clique ao invés de dois.

Rispondi

cristallo Ulisse Nonato

mese circa 6 fa

#38900

Questo commento è stato fatto dal moderatore sul sito

Ciao Ulisse Nonato,
Se vuoi aggiungere un segno di spunta a una cella con un solo clic del mouse, il seguente codice VBA può farti un favore.
È necessario fare clic su destro del mouse pulsante per attivare il codice.

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

Rispondi

Report

Sora

mese circa 2 fa

#41276

Questo commento è stato fatto dal moderatore sul sito

Come faccio a fare in modo che aggiunga un timestamp sulla cella adiacente dopo il doppio clic?

Rispondi

cristallo Sora

mese circa 2 fa

#41491

Questo commento è stato fatto dal moderatore sul sito

Ciao Sora,
Il seguente codice VBA può farti un favore. Si prega di fare un tentativo. Grazie.

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

Rispondi

Report

anne

circa 6 giorni fa

#42923

Questo commento è stato fatto dal moderatore sul sito

Buongiorno,

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

Rispondi

Non ci sono ancora commenti pubblicati qui

Lasciate i vostri commenti

Pubblicazione come ospite

Accedi

Nome (richiesto)

Email (Richiesto)

Valuta questo post:

cancella

0 Personaggi

Accetto i termini e condizioni