Przejdź do głównej zawartości

 Jak szybko wstawiać kleszcza i krzyżyki do komórek?

W arkuszu roboczym możemy domyślnie wstawiać znaczniki i krzyżyki, używając funkcji Symbol, ale będzie nudne, jeśli za każdym razem możesz wstawić jeden symbol. W tym artykule omówię kilka sztuczek, aby szybko wstawić zaznaczenie i krzyżyki w programie Excel.

Wstaw znaczniki i krzyżyki w komórkach ze znakiem skrótu

Wstaw znaczniki i krzyżyki w komórkach z kodem VBA


Wstaw znaczniki i krzyżyki w komórkach ze znakiem skrótu

Aby szybko wstawić znaczniki i krzyżyki, skrótowe litery „a” i „r” mogą wyświadczyć ci przysługę. Zrób tak:

1. Zaznacz komórki kolumn, w których chcesz wstawić znaczniki i krzyżyki, a następnie wybierz Webdings czcionka pod Strona główna tab, zobacz zrzut ekranu:

2. Teraz, gdy wpiszesz literę „a” w komórce, stanie się ona znacznikiem, a jeśli wpiszesz literę „r”, stanie się krzyżykiem, patrz zrzut ekranu:


Wstaw znaczniki i krzyżyki w komórkach z kodem VBA

Oto kolejny szybki i łatwy sposób wstawiania znaczników i krzyżyków za pomocą samych kliknięć.

1. Kliknij prawym przyciskiem myszy kartę arkusza, do której chcesz wstawić znaczniki i krzyżyki, a następnie wybierz Wyświetl kod z menu kontekstowego w otwartym pliku Microsoft Visual Basic dla aplikacji w oknie, skopiuj i wklej następujący kod do pustego modułu:

Kod VBA: wstaw znaczniki i krzyżyki do komórek:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B2:B12")) Is Nothing Then
            With Target
                .Font.Name = "Wingdings"
                .Font.Size = 12
                If .FormulaR1C1 = " û " Then
                    .FormulaR1C1 = "ü"
                Else
                    .FormulaR1C1 = " û "
                End If
            End With
        End If
        Cancel = True
    End If
End Sub

Note: W powyższym kodzie, B2: B12 to komórki, w których chcesz wstawić znaczniki i krzyżyki, możesz zmienić odwołanie do komórki zgodnie z potrzebami.

2. Następnie zapisz kod i zamknij ten kod, teraz po dwukrotnym kliknięciu komórki jeden raz wstawiany jest znak krzyżyka, a po dwukrotnym kliknięciu po raz drugi wyświetlany jest znacznik wyboru, patrz zrzut ekranu:


Zapisz określone symbole i wstaw je w dowolnym miejscu:

Połączenia Automatyczny tekst cechą Kutools dla programu Excel może pomóc w zapisaniu określonych symboli, formuł, danych lub innych elementów w okienku Autotekst, a następnie można ich ponownie użyć w dowolnym miejscu w pliku Excel, którego potrzebujesz.

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Wondering how to add more ranges to 'If Not Intersect(Target, Range("B2:B12")) Is Nothing Then' for example I have a number of cell ranges such as D2,D12 then F7,F32 how can I add this macro to all the cells? Cheers
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations