Як приховати формулу, але відобразити результат без захисту робочого аркуша в Excel?
У деяких випадках вам може знадобитися приховати формули на своєму робочому аркуші приватно. У цій статті йдеться про приховування формул, але відображення результатів без захисту робочого аркуша в Excel.
Приховати формулу, але відобразити результат, не захищаючи аркуш кодом VBA
Приховати формулу, але відобразити результат, не захищаючи аркуш кодом VBA
Щоб приховати формули, але відображати результати без захисту робочого аркуша, виконайте наступні дії.
1. На аркуші потрібно приховати формули, але відображаючи результати, клацніть правою кнопкою миші вкладку аркуша та виберіть Переглянути код з меню, що клацне правою кнопкою миші.
2 В Microsoft Visual Basic для додатків вікно, скопіюйте та вставте код VBA у вікно коду.
Код VBA: приховати формулу, але відобразити результат без захисту робочого аркуша
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
примітки: У коді C1: C10 - це діапазон комірок, який потрібно заховати всередині формул. Будь ласка, змініть його відповідно до ваших потреб.
3 Потім натисніть Tools > Список літератури ..., перевірте Виконання сценарію Microsoft і натисніть на OK кнопка в Посилання - VBAProject вікно. Дивіться знімок екрана:
4 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.
Відтепер, коли ви натискаєте клітинку в зазначеному діапазоні, формула буде негайно прихована у рядку формул.
Статті по темі:
- Як заблокувати вказані комірки, не захищаючи весь аркуш у Excel?
- Як видалити формули з робочого аркуша, але зберегти значення / результати в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!