Ugrás a tartalomra

 Hogyan lehet gyorsan beilleszteni a pipákat és kereszteket a cellákba?

Egy munkalapba alapértelmezés szerint a Szimbólum funkció használatával szúrhatjuk be a pipákat és a keresztjeleket, de unalmas lesz, ha minden alkalommal csak egy szimbólumot szúrhat be. Ebben a cikkben néhány trükkről fogok beszélni, amelyekkel gyorsan beillesztheti a pipákat és kereszteket az Excelbe.

Helyezzen be pipa és kereszt jeleket a parancsikonos cellákba

Helyezzen be pipa és kereszt jeleket a VBA kóddal rendelkező cellákba


Helyezzen be pipa és kereszt jeleket a parancsikonos cellákba

A pipa és a keresztjelek gyors beillesztéséhez az „a” és „r” parancsikonnal kedveskedhet. Kérjük, tegye a következőket:

1. Jelölje ki azokat az oszlop cellákat, ahová be akarja szúrni a pipa és a kereszt jeleket, majd válassza a Webdings betűtípus a Kezdőlap fül, lásd a képernyőképet:

2. Most, amikor beírja az „a” betűt a cellába, ez pipa jellé válik, és ha beírja az „r” betűt, akkor keresztjel lesz, lásd a képernyőképet:


Helyezzen be pipa és kereszt jeleket a VBA kóddal rendelkező cellákba

Itt van egy másik gyors és egyszerű módja a pipa és a kereszt jelének csak kattintásokkal történő beszúrására.

1. Kattintson jobb gombbal a lapfülre, amelybe pipa és keresztjeleket szeretne beilleszteni, majd válassza a lehetőséget Kód megtekintése a helyi menüből, a megnyílt Microsoft Visual Basic alkalmazásokhoz ablakba másolja és illessze be a következő kódot az üres modulba:

VBA kód: Helyezzen be pipa és kereszt jeleket a cellákba:

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

Megjegyzések: A fenti kódban B2: B12 az a cella, ahová be akarja szúrni a pipa és a keresztjelet, megváltoztathatja a cellahivatkozást igénye szerint.

2. Ezután mentse el a kódot, és zárja be ezt a kódot. Most, amikor egyszer kétszer kattint egy cellára, egy keresztjel kerül beillesztésre, és amikor másodszor duplán kattint, egy pipa jelenik meg, lásd a képernyőképet:


Mentse el az adott szimbólumokat, és illessze be bárhová, ahová szüksége van:

Az Auto szöveg jellemzője Kutools az Excel számára segíthet az egyes szimbólumok, képletek, adatok vagy egyéb elemek mentésében az Autotext ablaktáblán, majd ezeket bármikor újrafelhasználhatja a szükséges Excel fájlban.

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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