Note: The other languages of the website are Google-translated. Back to English

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

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

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


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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (20)
Номинальный 5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Я попытался использовать код VBA, и мне было выдано сообщение об ошибке, в котором говорилось, что мне нужно отладить следующую часть кода: «Если xDic.Count <> xRg.Count Then»
Этот комментарий был сведен к минимуму модератором на сайте
Дорогая Дженесси,
Какую версию Office вы используете?
Этот комментарий был сведен к минимуму модератором на сайте
у меня тоже такая же ошибка
офисная версия 2013
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Скопируйте весь скрипт, включая первую строку «Dim xDic As New Dictionary».
Пропуск первой строки в коде вызовет эту ошибку.
Этот комментарий был сведен к минимуму модератором на сайте
Я также получаю ту же ошибку
Этот комментарий был сведен к минимуму модератором на сайте
Меня скопировали по всему миру, но я все еще выдаю ошибку, так как пользовательский тип не определен, так что я могу сделать
Этот комментарий был сведен к минимуму модератором на сайте
Отметьте ссылку на библиотеку объектов данных Microsoft Active X в редакторе VBA.


1. Откройте редактор VBA и выберите Инструменты | Рекомендации.


2. Прокрутите вниз, пока не увидите библиотеку объектов данных Microsoft Active X.


3. Если у вас несколько версий, используйте последнюю версию. Версии будут соответствовать версиям MDAC. Единственный раз, когда вы не захотите использовать последнюю версию, это если вы распространяете проект на машину, на которой установлена ​​более старая версия. Поэтому, если на машинах, на которые вы распространяете, установлен только MDAC 2.6, а у вас есть MDAC 2.7, проверьте ссылку на версию 2.6 библиотеки объектов данных Microsoft Active X, чтобы убедиться, что проект будет работать на машинах, на которые вы его распространяете.
Дополнительная
Среда выполнения сценариев Microsoft
Этот комментарий был сведен к минимуму модератором на сайте
Он продолжает говорить об отладке и обновляется каждую секунду...
Этот комментарий был сведен к минимуму модератором на сайте
Есть и простой способ.
Выберите ячейку или ячейки, в которых вы хотите скрыть формулу или данные.
Перейдите на главную --> Формат --> Формат ячеек --> Число --> Пользовательский
В разделе "Тип" удалите "Общие" и введите """"
Значение ячейки или формула не отображаются на экране
Однако он появится в строке формул, если вы выберете ячейку.
Этот комментарий был сведен к минимуму модератором на сайте
Я пытался использовать код VBA, но после применения этого кода мой Excel стал работать медленнее и зависал. Пожалуйста, помогите мне решить эту проблему.
Этот комментарий был сведен к минимуму модератором на сайте
Если мы нажмем и удерживаем левую кнопку мыши на ячейке, формула будет отображаться до тех пор, пока вы не отпустите левую кнопку мыши. В противном случае это должно работать нормально.
Этот комментарий был сведен к минимуму модератором на сайте
после этого кода vba примените новый результат формулы суммы, который не отображается в ячейке, пожалуйста, помогите....
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо. Формула сработала.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, спасибо, я пытаюсь скрыть формулу в определенном столбце без защиты листа паролем. я скопировал весь код и изменил ячейки, но все еще не могу скрыть формулу. Не могли бы вы помочь.

Этот комментарий был сведен к минимуму модератором на сайте
формула работала, но проблема в том, что когда мы закрываем лист и снова открываем его, VBA не работает...
Этот комментарий был сведен к минимуму модератором на сайте
Привет! Чтобы продолжить использовать этот VBA в будущем, после добавления кода сохраните книгу как книгу Excel с поддержкой макросов. Нажмите Файл > Сохранить как. В диалоговом окне «Сохранить как» выберите Excel Macro-Enabled Workbook из Сохранить как введите раскрывающийся список, затем нажмите кнопку Сохраните button. А затем используйте эту книгу Excel с поддержкой макросов в будущем.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за этот код, мне действительно нужно что-то вроде этого
Номинальный 5 из 5
Этот комментарий был сведен к минимуму модератором на сайте
dia tetap загрузка ya ko ?
Этот комментарий был сведен к минимуму модератором на сайте
сая да коба sesuai кодирования ня, биса berjalan, тетапи ди лаяр кетика сая клик ке tempat янь dimaksud ада keluar танда загрузки, (танда булат berkedip). Файл saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Аккия,
Упомянутая вами проблема не воспроизводится в моем случае. Могу я спросить, какую версию Excel вы используете?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL