Vai al contenuto principale

 Come inserire rapidamente segni di graduazione e croce nelle celle?

In un foglio di lavoro, possiamo inserire il segno di spunta e la croce utilizzando la funzione Simbolo per impostazione predefinita, ma sarà noioso se puoi inserire solo un simbolo ogni volta. In questo articolo, parlerò di alcuni trucchi per inserire rapidamente il segno di spunta e le crocette in Excel.

Inserisci segni di spunta e croce nelle celle con carattere di scelta rapida

Inserisci segni di spunta e croce nelle celle con codice VBA


Inserisci segni di spunta e croce nelle celle con carattere di scelta rapida

Per inserire rapidamente il segno di spunta e la croce, la lettera di scelta rapida "a" e "r" possono farti un favore. Per favore, fai come segue:

1. Seleziona le celle della colonna in cui desideri inserire il segno di spunta e la croce, quindi scegli il file Webdings carattere sotto il Casa scheda, vedi screenshot:

2. Ora, quando inserisci la lettera "a" nella cella, diventerà un segno di spunta e se digiti la lettera "r", diventerà un segno di croce, vedi screenshot:


Inserisci segni di spunta e croce nelle celle con codice VBA

Ecco un altro modo semplice e veloce per inserire il segno di spunta e la croce con solo clic.

1. Fare clic con il pulsante destro del mouse sulla scheda del foglio in cui si desidera inserire segni di graduazione e crocette, quindi scegliere Visualizza codice dal menu contestuale, nel file Microsoft Visual Basic per le applicazioni finestra, copia e incolla il seguente codice nel modulo vuoto:

Codice VBA: inserisci segno di spunta e segni di croce nelle celle:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B2:B12")) Is Nothing Then
            With Target
                .Font.Name = "Wingdings"
                .Font.Size = 12
                If .FormulaR1C1 = " û " Then
                    .FormulaR1C1 = "ü"
                Else
                    .FormulaR1C1 = " û "
                End If
            End With
        End If
        Cancel = True
    End If
End Sub

Note:: Nel codice sopra, B2: B12 sono le celle in cui vuoi inserire il segno di spunta e la croce, puoi modificare il riferimento di cella secondo le tue necessità.

2. Quindi salva il codice e chiudi questo codice, ora, quando fai doppio clic su una cella una volta, viene inserito un segno di croce e quando fai doppio clic una seconda volta, viene visualizzato un segno di spunta, vedi screenshot:


Salva i simboli specifici e inseriscili ovunque ti serva:

I Testo automatico caratteristica di Kutools for Excel può aiutarti a salvare simboli, formule, dati o altri elementi specifici nel riquadro Testo automatico, quindi puoi riutilizzarli ovunque nel file Excel di cui hai bisogno.

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Wondering how to add more ranges to 'If Not Intersect(Target, Range("B2:B12")) Is Nothing Then' for example I have a number of cell ranges such as D2,D12 then F7,F32 how can I add this macro to all the cells? Cheers
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations