Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet elrejteni a képletet, de megjeleníteni az eredményt az Excel munkalap védelme nélkül?

Bizonyos esetekben előfordulhat, hogy privát módon el kell rejteni a képleteket a munkalapon. Ez a cikk a képletek elrejtéséről szól, de eredményeket jelenít meg az Excel munkalap védelme nélkül.

Képlet elrejtése, de az eredmény megjelenítése a VBA kóddal ellátott munkalap védelme nélkül


Képlet elrejtése, de az eredmény megjelenítése a VBA kóddal ellátott munkalap védelme nélkül

A képletek elrejtéséhez, de az eredmények munkalap védelme nélkül történő megjelenítéséhez tegye a következőket.

1. A munkalapon el kell rejteni a képleteket, de az eredményeket megjelenítve kattintson a jobb gombbal a lap fülre, és válassza ki Kód megtekintése a jobb egérgombbal kattintva.

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

VBA kód: a képlet elrejtése, de az eredmény megjelenítése a munkalap védelme nélkül

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

Megjegyzések: A kódban a C1: C10 az a cellatartomány, amelyben el akarja rejteni a képleteket. Kérjük, változtassa meg igényei szerint.

3. Ezután kattintson Eszközök > Referenciák…. Ellenőrizd a Microsoft Script futásidejű négyzetet, és kattintson a gombra OK gombot a Referenciák - VBAProject ablak. Lásd a képernyőképet:

4. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.

Mostantól, amikor a megadott tartományban lévő cellára kattint, a képlet azonnal el lesz rejtve a Képletsávban.


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.
kte lap 201905

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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (20)
Az 5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
Megpróbáltam a VBA kódot használni, és hibaüzenetet kaptam, amely szerint a kód következő részét kell hibakeresnem: " If xDic.Count <> xRg.Count Then"
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Jenessy!
Melyik Office verziót használod?
A weboldal moderátora ezt a megjegyzést minimalizálta
nekem is ugyanez a hiba
Office 2013-as verzió
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day,
Kérjük, másolja ki a teljes szkriptet, és tartalmazza a „Dim xDic As New Dictionary” első sort.
A kód első sorának kihagyása okozza ezt a hibát.
A weboldal moderátora ezt a megjegyzést minimalizálta
Én is ugyanezt a hibát kapom
A weboldal moderátora ezt a megjegyzést minimalizálta
Az egész világot átmásolták, de továbbra is hibát adok, mint a felhasználó által definiált típus, nincs definiálva, szóval mit tehetek
A weboldal moderátora ezt a megjegyzést minimalizálta
Jelölje meg a Microsoft Active X Data Object Library hivatkozását a VBA-szerkesztőben.


1. Nyissa meg a VBA-szerkesztőt, és lépjen az Eszközök | Hivatkozások.


2. Görgessen lefelé, amíg meg nem jelenik a Microsoft Active X Data Object Library.


3. Ha több verziója van, használja a legújabb verziót. A verziók megfelelnek az MDAC verzióinak. Az egyetlen alkalom, amikor nem szeretné használni a legújabb verziót, az az, ha a Projectet olyan gépen terjeszti, amelyen régebbi verzió található. Tehát ha az Ön által terjesztett gépeken csak az MDAC 2.6 van telepítve, és Önnél az MDAC 2.7, ellenőrizze a Microsoft Active X Data Object Library 2.6-os verziójára való hivatkozást, hogy megbizonyosodjon arról, hogy a projekt működni fog azokon a gépeken, amelyeken terjeszti.
Plusz
Microsoft Scripting Runtime
A weboldal moderátora ezt a megjegyzést minimalizálta
Folyamatosan azt mondja, hogy hibakeresés, és másodpercenként frissül...
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egy egyszerű út is.
Jelölje ki azt a cellát vagy cellákat, amelyekben el szeretné rejteni a képletet vagy az adatokat.
Lépjen a Kezdőlap --> Formátum --> Cellák formázása --> Szám --> Egyéni menüpontra
A Típus alatt válassza az Általános eltávolítása lehetőséget, és írja be a """
A cellaérték vagy képlet nem jelenik meg a képernyőn
Ha azonban kiválasztja a cellát, megjelenik a Képlet sávban.
A weboldal moderátora ezt a megjegyzést minimalizálta
Megpróbáltam a VBA kódot használni, de a kód alkalmazása után az Excel lelassul és lefagy. Kérem, segítsen nekem a probléma megoldásában.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ha lenyomva tartjuk az egér bal kattintását egy cellára, a képlet addig jelenik meg, amíg el nem engedi a bal kattintást. Ellenkező esetben ennek jól kell működnie.
A weboldal moderátora ezt a megjegyzést minimalizálta
a vba kód után alkalmazzon új összegképletet, amely nem jelenik meg a cellában, kérem, segítsen....
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm. A képlet bevált.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Im gracy! Megpróbálom elrejteni a képletet egy adott oszlopban anélkül, hogy jelszóval védené a lapot. kimásoltam, beillesztettem a teljes kódot és megváltoztattam a cellákat, de még mindig nem tudom elrejteni a képletet. Kérem, segítsen.

A weboldal moderátora ezt a megjegyzést minimalizálta
a képlet működött, de a probléma az, hogy amikor bezárjuk a lapot és újra megnyitjuk, akkor a VBA nem működött...
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves filé > Mentés másként. A Mentés másként párbeszédpanelen válassza ki a lehetőséget Excel makró-engedélyezett munkafüzet tól Mentés írja be a legördülő listát, majd kattintson a Megtakarítás gombot.És a jövőben használja ezt az excel makróképes munkafüzetet.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm ezt a kódot, nagyon kellett valami ilyesmi
Az 5-t az 5-ből kiértékelte
A weboldal moderátora ezt a megjegyzést minimalizálta
dia tetap loading ya ko?
A weboldal moderátora ezt a megjegyzést minimalizálta
saya da coba sesuai kódolás nya, bisa berjalan, tetapi di layar ketika saya klik ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). Fájl saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Akkia,
Az általad említett probléma az én esetemben nem jelenik meg. Megkérdezhetem, hogy melyik Excel verziót használod?
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi