Kako dodati kljukice in križne simbole na spustni seznam v Excelu?
Po vstavitvi kljukic in križancev v celice s funkcijo simbolov in nato ustvarjanju spustnih seznamov z njimi kot virom podatkov se rezultati običajno prikažejo kot ü ali û v spustnih celicah. Kako prikazati dejansko ✓ in simboli v celicah po izbiri elementov s spustnega seznama? Spodnja metoda VBA bo pomagala ustvariti kljukico in navzkrižni spustni seznam v Excelu.
Na spustni seznam s kodo VBA dodajte simbole za kljukico in križ
Na spustni seznam s kodo VBA dodajte simbole za kljukico in križ
S spodnjo kodo VBA lahko v določene celice v Excelu vstavite kljukice in navzkrižne spustne sezname. Naredite naslednje.
1. Na delovnem listu boste ustvarili spustne sezname za kljukice in navzkrižne simbole, z desno miškino tipko kliknite jeziček lista in izberite Ogled kode iz kontekstnega menija.
2. Nato Microsoft Visual Basic za aplikacije odpre se okno, kopirajte spodnjo kodo VBA v okno Code.
Koda VBA 1: Na spustni seznam dodajte kljukico in prekrižajte simbole
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. Nadaljujte s klikom Vstavi > Moduli, nato v okno modula kopirajte naslednjo kodo 2.
Koda VBA 2: Na spustni seznam dodajte kljukico in prekrižajte simbole
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
Opombe: V zgornji kodi je B1: B10 obseg celic, ki jih boste ustvarili s ključnim in navzkrižnim spustnim seznamom. Spremenite obseg, kot ga potrebujete.
4. Pritisnite F5 tipko za zagon kode.
Zdaj so spustni seznami kljukic in navzkrižnih simbolov vstavljeni v obseg B1: B10. V spustnem meniju izberite Tick, v celico vstavite ✓ in izberite Cross simbol. Oglejte si posnetek zaslona:
Sorodni članki:
- Kako samodejno zapolniti druge celice pri izbiri vrednosti v spustnem seznamu Excel?
- Kako samodokončati pri vnašanju spustnega seznama v Excelu?
- Kako ustvariti spustni koledar v Excelu?
- Kako ustvariti spustni seznam z več izbirami ali vrednostmi v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!