Hvordan skjules formel, men viser resultatet uden at beskytte regneark i Excel?
I nogle tilfælde skal du muligvis skjule formler i dit regneark til private. Denne artikel taler om at skjule formler, men vise resultater uden at beskytte regneark i Excel.
Skjul formel, men vis resultatet uden at beskytte regneark med VBA-kode
Skjul formel, men vis resultatet uden at beskytte regneark med VBA-kode
For at skjule formler, men vise resultater uden at beskytte et regneark, skal du gøre som følger.
1. I regnearket skal du skjule formler, men vise resultaterne. Højreklik på arkfanen og vælg Vis kode fra højreklikmenuen.
2. i Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte VBA-kode i kodevinduet.
VBA-kode: skjul formel, men vis resultatet uden at beskytte regnearket
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
Bemærk: I koden er C1: C10 det celleområde, som du vil skjule formler indeni. Skift det ud fra dine behov.
3. Klik derefter på Værktøjer > Referencer .... Tjek Microsoft Script Runtime og klik på OK knappen i Referencer - VBAProject vindue. Se skærmbillede:
4. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når du klikker på cellen i det angivne interval, skjules formlen straks i formellinjen.
Relaterede artikler:
- Hvordan låses angivne celler uden at beskytte hele regnearket i Excel?
- Hvordan fjernes formler fra regnearket, men beholder værdierne / resultaterne i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!