Hogyan adhat hozzá pipát egy cellába duplán kattintva az Excel programban?

Normál esetben egy pipa beillesztéséhez egy cellába be kell lépnie a Szimbólum párbeszédpanelen, meg kell találnia a pipa szimbólumot, és kézzel be kell illesztenie. De nem olyan egyszerű megtalálni a pipa szimbólumot a Szimbólum párbeszédpanelen, mivel számos szimbólum található benne. Hogyan lehet gyorsan hozzáadni a pipát az Excel egyik cellájához? Ez a cikk egy VBA módszert mutat be, amellyel egyszerűen dupla kattintással vehet fel pipát a cellába.

Kattintson duplán a VBA kóddal ellátott cellába pipa hozzáadásához

Kattintson duplán a VBA kóddal ellátott cellába pipa hozzáadásához

A következő VBA-kód segíthet dupla kattintással hozzáadni a pipát egy cellához. Kérjük, tegye a következőket.

1. Nyissa meg azt a munkalapot, amelyhez pipát kell hozzáadni a cellába, majd kattintson a jobb gombbal, és válassza ki Kód megtekintése a jobb egérgombbal kattintva.

2. Ban,-ben Microsoft Visual Basic for Applications ablakba másolja és illessze be az alábbi VBA kódot a Kód ablak.

VBA-kód: Kattintson duplán a pipa hozzáadásához egy cellába

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Megjegyzések: A kódban a B1: B10 az a tartomány, amelyhez duplán kattintva hozzáadja a pipát. Kérjük, változtassa meg igénye szerint.

3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablakot, és térjen vissza a munkalapra.

Most kattintson duplán a B1: B10 tartomány bármely cellájára, a pipa automatikusan beíródik. És ismét kétszer kattintva a cellára, a beillesztett pipa törlődik.

Ha gyakran kell használnia a pipákat az Excel napi munkájában, itt ajánlom a Auto szöveg A Kutools az Excel számára. Ezzel a szolgáltatással elmentheti a pipát automatikus szöveges bejegyzésként, majd a jövőben csak egy kattintással folytathatja az Excelben, az alábbi bemutató szerint.
Töltse le és próbálja ki most! (30-napos ingyenes túra)

Kapcsolódó cikkek:

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás...

Az Office fül a füles felületet hozza 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!

Tovább ... Ingyenes letöltés... Vásárlás...

Hozzászólások (11)

Még nincs értékelés. Legyen Ön az első, aki értékel!

Luiz Carlos Dias

körülbelül 4 éve

#27122

A weboldal moderátora ezt a megjegyzést minimalizálta

como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando apaeu a douploquizer, quando apaeu a douploquizer clique novamente ea célula voltaria ao normar (continuaria apenas o número).

Válasz

Tadao Kano Luiz Carlos Dias

körülbelül 4 éve

#27123

A weboldal moderátora ezt a megjegyzést minimalizálta

Ola Luiz, tente essa alteracao. Ira funcionar nas cellulas A2:A10 e D2:D5, alte conforme sua necessidade.

tadao

Private Sub Worksheet_BeforeDoubleClick (ByVal cél tartományként, Mégse logikai érték)
Ha nem metszik(Cél, Unió(Tartomány("A2:A10"), Tartomány("D2:D5"))) akkor semmi
Application.EnableEvents = Hamis
Ha Left(ActiveCell.Value, 1) = ChrW(&H2713) akkor
ActiveCell.Value = Jobb(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
Más
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
Ha véget
Mégse = Igaz
Ha véget
Application.EnableEvents = Igaz
End Sub

Válasz

Erzsébet

körülbelül 2 éve

#34106

A weboldal moderátora ezt a megjegyzést minimalizálta

Van mód ennek a kódnak a hurkolására úgy, hogy egy munkafüzetben sok munkalapon szerepeljen?

Válasz

Jelentés

kristály- Erzsébet

körülbelül 2 éve

#34107

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia leoflute, miután megnyomta a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak, kattintson duplán Ez a munkafüzet megnyitni Ez a munkafüzet (kód) ablakot, majd másolja be az alábbi kódot a kódablakba. Ne felejtse el megváltoztatni a kódban a lapneveket és a cellatartományt. Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh mint objektum, ByVal Target mint tartomány, Mégse logikai értékként)
'Frissítette Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName karakterláncként
Dim xEEBol, xWSNBol, xBol Boolean
Dim xArrWs
Dim xArrRg
Dim xI, xJ Egész számként
Dim xWs munkalapként
Dim xrg mint tartomány

xStrWs = "5. lap, 1. lap, 2. lap"" Az adott munkalapok nevei
xStrRg = "B3: B10" 'A beszúrandó cellák tartománya jelölje be
xArrWs = Felosztás(xStrWs, ",")
xArrRg = Felosztás(xStrRg, ",")

xEEBol = Application.EnableEvents
Application.EnableEvents = Hamis
On Error Resume Next
xStrWsName = Sh.Name
xBol = Hamis
xWSNBol = Hamis
Ha xI = 0 - UBound(xArrWs)
Ha xStrWsName = xArrWs(xI) Akkor
xWSNBol = Igaz
Kilépés
Ha véget
Következő xI

Ha xWSNBol Akkor
Set xWs = Application.Worksheets.Item(xArrWs(xI))
Ha xJ = 0 - UBound(xArrRg)
Állítsa be az xRg = Sh. Range(xArrRg(xJ))
Ha nem metszik (Cél, xRg) akkor semmi
xBol = Igaz
Kilépés
Ha véget
Következő xJ
Ha véget

Ha xBol Akkor
Ha ActiveCell.Value = ChrW(&H2713) Akkor
ActiveCell.ClearContents
Más
ActiveCell.Value = ChrW(&H2713)
Ha véget
Mégse = Igaz
Ha véget
Application.EnableEvents = xEEBol
End Sub

Válasz

Jelentés

CSherrod

mintegy 1 éve

#35215

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia! Mit adjak hozzá a fenti kódhoz, hogy a cella színe megváltozzon a jelölőnégyzet hozzáadásakor?

Válasz

Dan

mintegy 1 éve

#36632

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia kristály
lehetséges-e pipát tenni az A1:A10-ben és a B3:B10-ben?

Válasz

Michael

mintegy 1 éve

#36920

A weboldal moderátora ezt a megjegyzést minimalizálta

Hogyan ismételjem meg ezt több oszlopnál?
Például szükségem van rá a következőkben:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

Válasz

Ulisses Nonato

mintegy 6 hónappal ezelőtt

#38841

A weboldal moderátora ezt a megjegyzést minimalizálta

Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de dois.

Válasz

kristály- Ulisses Nonato

mintegy 6 hónappal ezelőtt

#38900

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Ulisses Nonato!
Ha csak egyetlen egérkattintással szeretne pipát jelölni egy cellához, a következő VBA-kód jót tehet.
Rá kell kattintani a jobb egér gombot a kód aktiválásához.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Válasz

Jelentés

Sora

mintegy 2 hónappal ezelőtt

#41276

A weboldal moderátora ezt a megjegyzést minimalizálta

Hogyan tehetem meg, hogy a dupla kattintás után időbélyeget adjon a szomszédos cellára?

Válasz

kristály- Sora

mintegy 2 hónappal ezelőtt

#41491

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Sora,
A következő VBA-kód tehet egy szívességet. Kérjük, próbálja ki. Köszönöm.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

Válasz

Jelentés

Még senki sem írt megjegyzést

Hagyja meg észrevételeit

Feladás vendégként

Bejelentkezés

Név (kötelező)

Email (szükséges)

Értékeld ezt a bejegyzést:

vissza

0 Karakterek

Egyetértek azzal, hogy a szabályait és feltételeit