Jak dodać symbole kleszczy i krzyżyków do rozwijanej listy w programie Excel?
Zwykle po wstawieniu symboli zaznaczenia i krzyżyka w komórkach z funkcją symbolu, a następnie utworzeniu list rozwijanych z nimi jako źródłem danych, wyniki będą wyświetlane jako ü lub û w rozwijanych komórkach. Jak wyświetlić aktualne ✓ i symbole w komórkach po wybraniu pozycji z rozwijanej listy? Poniższa metoda VBA pomoże utworzyć listę rozwijaną typu tick and cross w programie Excel.
Dodaj symbole kleszcza i krzyża do rozwijanej listy z kodem VBA
Dodaj symbole kleszcza i krzyża do rozwijanej listy z kodem VBA
Za pomocą poniższego kodu VBA możesz wstawiać listy rozwijane zaznaczania i krzyżowania do określonych komórek w programie Excel. Wykonaj następujące czynności.
1. W arkuszu utworzysz listy rozwijane symboli zaznaczenia i krzyżyka, kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu kontekstowego.
2. Następnie Microsoft Visual Basic for Applications otworzy się okno, skopiuj poniższy kod VBA do okna Kod.
Kod VBA 1: Dodaj symbole kleszczy i krzyżyka do listy rozwijanej
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. Kliknij dalej wstawka > Moduł, a następnie skopiuj następujący kod 2 do okna Module.
Kod VBA 2: Dodaj symbole kleszczy i krzyżyka do listy rozwijanej
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
Note: W powyższym kodzie B1: B10 to zakres komórek, które utworzysz na liście rozwijanej typu tick and cross. Zmień zakres według potrzeb.
4. wciśnij F5 klucz do uruchomienia kodu.
Teraz listy rozwijane symboli ptaszka i krzyżyka są wstawiane do zakresu B1: B10. Wybierz Tick z rozwijanej listy wstawi ✓ do komórki i wyświetli się Select Cross symbol. Zobacz zrzut ekranu:
Podobne artykuły:
- Jak automatycznie wypełnić inne komórki podczas wybierania wartości na liście rozwijanej programu Excel?
- Jak autouzupełnianie podczas pisania w rozwijanej liście programu Excel?
- Jak utworzyć rozwijany kalendarz listy w programie Excel?
- Jak utworzyć listę rozwijaną z wieloma wyborami lub wartościami w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!