Gå til hovedindhold

 Hvordan indsættes hurtigt kryds- og krydsmærker i celler?

I et regneark kan vi indsætte flueben og kryds ved at bruge symbolfunktionen som standard, men det vil være kedeligt, hvis du bare kan indsætte et symbol hver gang. I denne artikel vil jeg tale om nogle tricks for dig til hurtigt at indsætte kryds og kryds i Excel.

Indsæt kryds- og krydsmærker i celler med genvejstegn

Indsæt kryds og kryds i celler med VBA-kode


Indsæt kryds- og krydsmærker i celler med genvejstegn

For hurtigt at indsætte flueben og krydser, kan genvejsbogstavet "a" og "r" gøre dig en tjeneste. Gør venligst som dette:

1. Vælg de kolonneceller, hvor du vil indsætte fluebenet og krydset, og vælg derefter Webdings skrifttype under Home fane, se skærmbillede:

2. Nu, når du indtaster bogstavet "a" i cellen, bliver det et flueben, og hvis du skriver bogstavet "r", bliver det krydsmærke, se skærmbillede:


Indsæt kryds og kryds i celler med VBA-kode

Her er en anden hurtig og nem måde for dig at indsætte flueben og krydsmærker med kun klik.

1. Højreklik på den arkfane, du vil indsætte flueben og kryds, og vælg derefter Vis kode fra genvejsmenuen i det åbnede Microsoft Visual Basic til applikationer vindue, kopier og indsæt følgende kode i det tomme modul:

VBA-kode: Indsæt kryds og kryds i celler:

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

Bemærk: I ovenstående kode, B2: B12 er de celler, hvor du vil indsætte flueben og krydser, kan du ændre cellereferencen til dit behov.

2. Gem så koden og luk denne kode, nu, når du dobbeltklikker på en celle én gang, indsættes et krydsmærke, og når du dobbeltklikker en anden gang, vises et flueben, se skærmbillede:


Gem de specifikke symboler og indsæt dem hvor som helst du har brug for:

Autotekst træk ved Kutools til Excel kan hjælpe dig med at gemme de specifikke symboler, formler, data eller andre elementer i autotekstruden, og så kan du genbruge dem hvor som helst i den Excel-fil, du har brug for.

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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