Jak ukryć formułę, ale wyświetlić wynik bez ochrony arkusza roboczego w programie Excel?
W niektórych przypadkach może być konieczne ukrycie formuł w arkuszu w celu zachowania prywatności. W tym artykule jest mowa o ukrywaniu formuł, ale wyświetlaniu wyników bez ochrony arkusza roboczego w programie Excel.
Ukryj formułę, ale wyświetl wynik bez ochrony arkusza roboczego z kodem VBA
Ukryj formułę, ale wyświetl wynik bez ochrony arkusza roboczego z kodem VBA
Aby ukryć formuły, ale wyświetlać wyniki bez ochrony arkusza, wykonaj następujące czynności.
1. W arkuszu roboczym musisz ukryć formuły, ale wyświetlając wyniki, kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.
2. w Microsoft Visual Basic for Applications należy skopiować i wkleić kod VBA do okna Code.
Kod VBA: ukryj formułę, ale wyświetl wynik bez arkusza ochronnego
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
Note: W kodzie C1: C10 to zakres komórek, w których chcesz ukryć formuły. Zmień to w zależności od potrzeb.
3. Następnie kliknij Tools > Bibliografia…, Sprawdź Środowisko wykonawcze skryptów firmy Microsoft Microsoft i kliknij OK przycisk w Referencje - VBAProject okno. Zobacz zrzut ekranu:
4. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.
Odtąd po kliknięciu komórki w określonym zakresie formuła zostanie natychmiast ukryta na pasku formuły.
Podobne artykuły:
- Jak zablokować określone komórki bez ochrony całego arkusza roboczego w programie Excel?
- Jak usunąć formuły z arkusza roboczego, ale zachować wartości / wyniki w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!