Hvordan tilføjes kryds og kryds symboler til rullelisten i Excel?
Efter at have indsat kryds og kryds symboler i celler med symbolfunktion og derefter oprette rullelister med dem som datakilde, vises resultaterne normalt som ü eller û i rullelister. Sådan vises den aktuelle ✓ og symboler i celler efter valg af emner fra rullelisten? Nedenstående VBA-metode hjælper med at oprette en kryds og tværs rulleliste i Excel.
Tilføj kryds og kryds symboler i rullelisten med VBA-kode
Tilføj kryds og kryds symboler i rullelisten med VBA-kode
Med nedenstående VBA-kode kan du indsætte rullelister med kryds og kryds i specificerede celler i Excel. Gør som følger.
1. I regnearket opretter du rullelister med kryds og kryds symboler, højreklik på arkfanen og vælg Vis kode fra kontekstmenuen.
2. Derefter Microsoft Visual Basic til applikationer vindue åbnes, skal du kopiere nedenstående VBA-kode til kodevinduet.
VBA-kode 1: Tilføj kryds og kryds symboler i rullelisten
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180703
If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
If Target.Value = "Tick" Then
Target.Value = "P"
ElseIf Target.Value = "Cross" Then
Target.Value = "S"
End If
End Sub
3. Fortsæt med at klikke indsatte > Moduler, kopier derefter følgende kode 2 i modulvinduet.
VBA-kode 2: Tilføj kryds og kryds symboler i rullelisten
Sub usingSymbols()
'Update by Extendoffice 20180703
Dim xRg As Range
Set xRg = Range("B1:B10")
xRg.Font.Name = "Wingdings 2"
xRg.Validation.Add xlValidateList, , , "Tick,Cross"
End Sub
Bemærk: I ovenstående kode er B1: B10 det rækkevidde af celler, du opretter kryds og tværs rulleliste. Skift rækkevidde efter behov.
4. Tryk på F5 nøgle for at køre koden.
Nu er rullelisterne med kryds og kryds symboler indsat i område B1: B10. Vælg Tick i rullelisten vil indsætte ✓ i cellen, og vælg Cross vises symbol. Se skærmbillede:
Relaterede artikler:
- Sådan udfyldes andre celler automatisk, når du vælger værdier i Excel-rullelisten?
- Hvordan autofuldføres, når du skriver i rullelisten i Excel?
- Hvordan oprettes en rullelistekalender i Excel?
- Hvordan oprettes rullelisten med flere valg eller værdier i Excel?
Bedste kontorproduktivitetsværktøjer
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...
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!