Jak přidat symboly zaškrtnutí a křížení do rozevíracího seznamu v aplikaci Excel?
Normálně se po vložení značek a křížových symbolů do buněk s funkcí symbolů a následném vytvoření rozevíracích seznamů s nimi jako zdroje dat zobrazí výsledky jako ü nebo û v rozevíracích buňkách. Jak zobrazit aktuální ✓ a 
symboly v buňkách po výběru položek z rozevíracího seznamu? Níže uvedená metoda VBA pomůže vytvořit rozevírací seznam zaškrtnutí a křížení v aplikaci Excel.
Přidejte symboly zaškrtnutí a křížení do rozevíracího seznamu pomocí kódu VBA
Přidejte symboly zaškrtnutí a křížení do rozevíracího seznamu pomocí kódu VBA
S níže uvedeným kódem VBA můžete vložit zaškrtávací a křížové rozevírací seznamy do určených buněk v aplikaci Excel. Postupujte prosím následovně.
1. V listu vytvoříte rozevírací seznamy značek zaškrtnutí a křížení, klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky.
2. Potom Microsoft Visual Basic pro aplikace Otevře se okno, zkopírujte prosím níže uvedený kód VBA do okna Kód.
Kód VBA 1: Přidejte do rozevíracího seznamu symboly zaškrtnutí a křížení
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. Pokračujte kliknutím Vložit > Modul, potom zkopírujte následující kód 2 do okna modulu.
Kód VBA 2: Přidejte do rozevíracího seznamu symboly zaškrtnutí a křížení
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 SubPoznámka: Ve výše uvedeném kódu je B1: B10 rozsah buněk, které vytvoříte v rozevíracím seznamu. Změňte rozsah podle potřeby.
4. zmáčkni F5 klíč ke spuštění kódu.
Nyní jsou do oblasti B1: B10 vloženy rozevírací seznamy symbolů zaškrtnutí a křížku. Vyberte Zaškrtněte z rozevíracího seznamu vloží do buňky ✓ a zobrazí se Kříž symbol. Viz snímek obrazovky:
Související články:
- Jak automaticky naplnit další buňky při výběru hodnot v rozevíracím seznamu aplikace Excel?
- Jak se automaticky dokončuje při psaní v rozevíracím seznamu aplikace Excel?
- Jak vytvořit kalendář rozevíracího seznamu v aplikaci Excel?
- Jak vytvořit rozevírací seznam s více výběry nebo hodnotami v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
