Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как скрыть формулу, но отобразить результат, не защищая рабочий лист в Excel?

В некоторых случаях вам может потребоваться скрыть формулы в вашем листе для личного использования. В этой статье говорится о сокрытии формул, но отображаются результаты без защиты листа в Excel.

Скрыть формулу, но отобразить результат, не защищая рабочий лист кодом VBA


Легко удаляйте все формулы из ячеек, но сохраняйте только результаты:

Фактическое полезности Kutools for Excel может помочь вам быстро удалить все формулы из выбранного диапазона, но сохранить только результаты в ячейках. Смотрите скриншот:

Kutools for Excel включает в себя более удобные инструменты Excel 300. Бесплатно, без ограничений, в 60-дни. Загрузите бесплатную пробную версию

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel переносит расширенные функции 300 в Excel и мгновенно повышает производительность
  • Super Formula Bar (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон ...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объединить дублирующиеся строки и сумму / среднее ... Предотвратить повторяющиеся клетки; Сравнить диапазоны ...
  • Выберите Дублировать или Уникальные строки; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих книгах; Случайный выбор ...
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставьте маркеры, флажки и многое другое ...
  • Любить и быстро вставлять формулы, диапазоны, графики и рисунки; Шифровать ячейки с помощью пароля; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев ...
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенный Сортировать по месяцу / неделе / ​​дню, частоте и многому другому; Специальный фильтр жирным шрифтом, курсив ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разбить данные на несколько листов; Пакетное конвертирование xls, xlsx и PDF ...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.

Скрыть формулу, но отобразить результат, не защищая рабочий лист кодом 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. Затем нажмите Инструменты > Рекомендации…, Проверить Время выполнения Microsoft Script и нажмите OK в Ссылки - VBAProject окно. Смотрите скриншот:

4. нажмите другой + Q для закрытия Microsoft Visual Basic для приложений окна.

С этого момента, когда вы нажимаете на ячейку в указанном диапазоне, формула будет немедленно скрыта в строке формул.


Статьи по теме:


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    AH · 1 months ago
    If we press and hold the mouse left click to a cell, the formula shows until you release the left click. Otherwise this should work fine.
  • To post as a guest, your comment is unpublished.
    Ajay Bote · 2 months ago
    I tried using the VBA code but after applying this code my excel is getting slow and hanged.please help me in resolving this issue.
  • To post as a guest, your comment is unpublished.
    A.B. Mati · 10 months ago
    There is easy way as well.
    Select the cell or cells you want to hide the formula or data.
    Go to Home --> Format --> Format Cells --> Number --> Custom
    Under Type, Remove General and Enter """"
    The cell value or formula do not appear on the screen
    However it will appear in the Formula bar if you select the cell.
  • To post as a guest, your comment is unpublished.
    mreshane · 1 years ago
    It keep saying debugging and it refresh in every seconds...
  • To post as a guest, your comment is unpublished.
    Sandip · 1 years ago
    I was copied the whole world but still give error as user-defined type not defined so what can I do
  • To post as a guest, your comment is unpublished.
    Jenessy · 1 years ago
    I tried using the VBA code and I was given an error message stating that I needed to debug the following part of the code: " If xDic.Count <> xRg.Count Then"
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Jenessy,
      Which Office version do you use?
      • To post as a guest, your comment is unpublished.
        sabith · 1 years ago
        for me also same error
        office version 2013
        • To post as a guest, your comment is unpublished.
          crystal · 1 years ago
          Good Day,
          Please copy the whole script include the first line "Dim xDic As New Dictionary".
          Miss the first line in the code will cause this error.