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

Как изменить указанное значение или цвет ячейки при установленном флажке в Excel?

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

Измените указанное значение ячейки, когда флажок установлен с формулой
Измените указанное значение ячейки, когда флажок установлен с кодом VBA
Измените указанный цвет ячейки, когда флажок установлен с кодом VBA


Измените указанное значение ячейки, когда флажок установлен с формулой

Предположим, вам нужно заполнить ячейку A1 значением «test», когда установлен флажок 1. И очистите ячейку при снятии флажка. Пожалуйста, сделайте следующее.

Вам необходимо сначала связать флажок с определенной ячейкой, а затем применить формулу для ее достижения.

1. Чтобы связать флажок с определенной ячейкой, выберите ее, затем введите = ссылка на ячейку в строке формул и нажмите клавишу Enter. Здесь я привязываю флажок 1 к ячейке C2 с вводом = C2 в панель формул после установки флажка.

Для флажка ActiveX Control щелкните его правой кнопкой мыши и выберите Объявления из контекстного меню. И в Объявления диалоговом окне введите связанную ячейку в Связанная ячейка поле, а затем закройте диалоговое окно. Смотрите скриншот:

2. Выберите ячейку, в которой нужно изменить ее значение (здесь я выбираю A1), затем введите формулу. = ЕСЛИ (C2; "Тест"; "") в панель формул и нажмите Enter ключ. Смотрите скриншот:

Внимание: В формуле C2 - это ячейка, связанная с флажком 1, «Test» - это значение, которое необходимо отобразить в ячейке A1, когда флажок установлен.

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


Измените указанное значение ячейки, когда флажок установлен с кодом VBA

Вы также можете изменить указанное значение ячейки, если установлен флажок с кодом VBA. Пожалуйста, сделайте следующее.

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

2. в Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код VBA в Код: окно.

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

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value:", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

Внимание: В коде Чекбокс1 это имя Флажок (элементы управления ActiveX). Вы можете изменить его по своему усмотрению.

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

4. Выберите пустую ячейку (A1), значение которой вы хотите изменить на основе флажка, и установите флажок 1 на своем листе. Теперь Kutools for Excel появится диалоговое окно, введите значение, которое вы хотите заполнить в выбранной пустой ячейке, а затем щелкните значок OK кнопка. Смотрите скриншот:

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

Внимание: Этот код будет напоминать вам вводить текстовое значение по кругу, когда вы каждый раз устанавливаете флажок.


Измените указанный цвет ячейки, когда флажок установлен с кодом VBA

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

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

2. в Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код VBA в окно кода.

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

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

Внимание: В коде Чекбокс1 это имя Флажок (элементы управления ActiveX). Вы можете изменить его по своему усмотрению.

3. Выберите ячейку, для которой нужно изменить цвет фона, затем установите флажок. Вы можете видеть, что цвет заливки выбранной ячейки изменился на красный. Выбранная ячейка будет заполнена без цвета фона после снятия флажка. Смотрите скриншоты:


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


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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