KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как скрыть или отобразить определённую фигуру в зависимости от значения заданной ячейки в Excel?

АвторSiluviaДата изменения

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

Скрытие или отображение определённой фигуры в зависимости от значения указанной ячейки с помощью кода VBA


Скрытие или отображение определённой фигуры в зависимости от значения указанной ячейки с помощью кода VBA

Например, вы хотите отображать определённую фигуру, когда в ячейку A1 введено число 1, и скрывать её при любом другом значении в этой ячейке. Для этого выполните приведённый ниже код VBA.

1. Щёлкните правой кнопкой мыши по ярлыку листа, содержащего фигуру, которую нужно скрывать или отображать, и выберите в контекстном меню пункт Просмотреть код.

2. Откроется окно Microsoft Visual Basic for Applications. Скопируйте и вставьте приведённый ниже код VBA в окно Код.

Код VBA: скрытие или отображение определённой фигуры в зависимости от значения указанной ячейки

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then _
        Me.Shapes("Oval 6").Visible = (Cells(1, 1).Value = 1)
End Sub

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

Примечания: в коде:

1)Row=1и Column=1указывают на конкретную ячейку, расположенную в первой строке и первом столбце; Cells(1, 1) соответствует ячейке A1.
2)Value = 1, число 1 — это конкретное значение, при котором фигура должна отображаться.
3) «Овал 6» — это имя определённой фигуры.

Вы можете настроить эти параметры в соответствии со своими потребностями.

3. Нажмите сочетание клавиш Alt+Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

Теперь, как только вы введёте число 1 в ячейку A1, отобразится фигура «Овал 6». Однако при вводе любого другого значения — например, числа 2 — фигура «Овал 6» сразу же скроется.


Связанные статьи:

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

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


Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек