Hur lägger jag till kryss- och korssymboler i rullgardinslistan i Excel?
Efter att ha infogat kryss- och korssymboler i celler med symbolfunktion och sedan skapat rullgardinslistor med dem som datakälla visas resultaten normalt som ü eller û i rullgardinsceller. Hur man visar ✓ och symboler i celler efter att ha valt objekt i listrutan? Nedanstående VBA-metod hjälper till att skapa en kryss- och korsruta i Excel.
Lägg till kryss- och korssymboler i rullgardinsmenyn med VBA-kod
Lägg till kryss- och korssymboler i rullgardinsmenyn med VBA-kod
Med VBA-koden nedan kan du infoga kryss- och korsruta rullgardinslistor i angivna celler i Excel. Gör så här.
1. I kalkylbladet skapar du rullgardinslistor med kryss och kors, högerklicka på arkfliken och välj Visa kod från snabbmenyn.
2. Sedan Microsoft Visual Basic för applikationer fönstret öppnas, vänligen kopiera nedan VBA-kod till kodfönstret.
VBA-kod 1: Lägg till kryss- och korssymboler i rullgardinsmenyn
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ätt att klicka Insert > Modulerna, kopiera sedan följande kod 2 till modulfönstret.
VBA-kod 2: Lägg till kryss- och korssymboler i rullgardinsmenyn
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
Anmärkningar: I ovanstående kod är B1: B10 det cellområde du skapar rullgardinslista. Ändra intervallet efter behov.
4. tryck på F5 för att köra koden.
Nu infogas rullgardinslistorna för kryss- och korssymboler i intervallet B1: B10. Välj Tick i rullgardinsmenyn för att infoga ✓ i cellen och välj Cross kommer att visas symbol. Se skärmdump:
Relaterade artiklar:
- Hur fyller jag i andra celler automatiskt när du väljer värden i Excel-listrutan?
- Hur fyller jag i automatiskt när du skriver i rullgardinslistan i Excel?
- Hur skapar jag en rullgardinsmeny i Excel?
- Hur skapar man en rullgardinslista med flera val eller värden i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!