Kako skriti formulo, a prikazati rezultat brez zaščite delovnega lista v Excelu?
V nekaterih primerih boste morda morali formule na svojem delovnem listu skriti za zasebno uporabo. Ta članek govori o skrivanju formul, vendar o prikazu rezultatov brez zaščite delovnega lista v Excelu.
Skrij formulo, vendar prikaži rezultat, ne da bi zaščitil delovni list s kodo VBA
Skrij formulo, vendar prikaži rezultat, ne da bi zaščitil delovni list s kodo VBA
Če želite skriti formule, vendar prikazati rezultate brez zaščite delovnega lista, storite naslednje.
1. Na delovnem listu morate skriti formule, a prikazati rezultate, z desno miškino tipko kliknite jeziček lista in izberite Ogled kode v meniju z desnim klikom.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite kodo VBA v okno Code.
Koda VBA: skrij formulo, vendar prikaži rezultat brez zaščite delovnega lista
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
Opombe: V kodi je C1: C10 obseg celic, za katerega želite skriti formule. Prosimo, spremenite ga glede na vaše potrebe.
3. Nato kliknite Orodja > Reference .... Preverite Izvajalni čas Microsoft Script in kliknite OK gumb v Reference - VBAProject okno. Oglejte si posnetek zaslona:
4. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.
Od zdaj naprej, ko kliknete celico v določenem obsegu, bo formula takoj skrita v vrstici formule.
Sorodni članki:
- Kako zakleniti določene celice, ne da bi v Excelu zaščitili celoten delovni list?
- Kako odstraniti formule z delovnega lista, vendar obdržati vrednosti / rezultate v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!