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:
- Hogyan zárolhatjuk a megadott cellákat az Excel teljes munkalapjának védelme nélkül?
- Hogyan lehet eltávolítani a képleteket a munkalapról, de megtartani az értékeket / eredményeket az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
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...
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!