Как изменить значение или цвет указанной ячейки при установке флажка в Excel?
В этой статье рассказывается, как изменить значение или цвет указанной ячейки с помощью флажка. Например, при установке определённого флажка значение или Цвет фона указанной ячейки будет автоматически изменено. Следуйте приведённым ниже методам пошагово для выполнения этой задачи.
Изменение значения указанной ячейки при установке флажка с помощью формулы
Изменение значения указанной ячейки при установке флажка с помощью кода VBA
Изменение цвета указанной ячейки при установке флажка с помощью кода VBA
Изменение значения указанной ячейки при установке флажка с помощью формулы
Предположим, вам нужно, чтобы в ячейке A1 отображалось значение «test» при установке флажка «Флажок 1», а при его снятии ячейка очищалась. Выполните следующие действия.
Сначала свяжите флажок с нужной ячейкой, а затем используйте формулу для получения желаемого результата.
1. Чтобы связать флажок с определённой ячейкой, выберите его, введите ссылку на ячейку в поле Строка формул и нажмите клавишу Enter. В данном примере флажок 1 связан с ячейкой C2: после выбора флажка в поле Строка формул введено =C2.
Щёлкните правой кнопкой мыши по элементу управления ActiveX «Флажок» и выберите в контекстном меню пункт Свойства. В диалоговом окне Свойства укажите адрес связанной ячейки в поле LinkedCell и закройте окно. См. снимок экрана:
2. Выберите ячейку, значение которой нужно изменить (в данном случае — A1), затем введите формулу =IF(C2,«Test»,«») в строку формул и нажмите клавишу Enter. См. снимок экрана:
Примечание: в формуле C2 — это ячейка, связанная с флажком «Флажок 1», а «Test» — значение, которое отображается в ячейке A1 при установке флажка.
Результаты после установки или снятия соответствующего флажка показаны на снимках экрана ниже.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Изменение значения указанной ячейки при установке флажка с помощью кода VBA
Вы также можете изменить значение указанной ячейки, установив флажок с помощью кода VBA. Выполните следующие действия.
1. Щёлкните правой кнопкой мыши вкладку листа, содержащего ячейку, значение которой нужно изменять в зависимости от состояния флажка, и выберите в контекстном меню пункт Просмотреть код.
2. В окне Microsoft Visual Basic for Applications скопируйте и вставьте приведённый ниже код 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
Примечание: в коде ChekBox1 — это имя элемента управления Флажок (элементы управления ActiveX). Вы можете изменить его по своему усмотрению.
3. Нажмите сочетание клавиш Alt+Q, чтобы закрыть окно Microsoft Visual Basic for Applications.
4. Выберите пустую ячейку (A1), значение которой будет изменяться в зависимости от состояния флажка, и разместите на листе флажок «checkbox1». Появится диалоговое окно Kutools для Excel — укажите значение, которое должно отображаться в выбранной ячейке, и нажмите кнопку ОК. См. снимок экрана:
Затем указанное значение сразу же отобразится в выбранной ячейке, а при снятии флажка ячейка станет пустой.
Примечание: каждый раз при установке флажка «Флажок» этот код будет напоминать вам ввести текстовое значение.
Изменение цвета указанной ячейки при установке флажка с помощью кода VBA
В этом разделе показано, как с помощью кода VBA изменить цвет указанной ячейки при установке флажка.
1. Щёлкните правой кнопкой мыши вкладку листа, содержащего ячейку, цвет которой нужно изменять на основе флажка, и выберите в контекстном меню пункт Просмотреть код.
2. В окне Microsoft Visual Basic for Applications скопируйте и вставьте приведённый ниже код 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
Примечание: в коде ChekBox1— это имя элемента управления Флажок (элементы управления ActiveX). Вы можете изменить его по своему усмотрению.
3. Выберите ячейку, цвет фона которой нужно изменить, и установите флажок. Вы увидите, что цвет заполнения выбранной ячейки станет красным. После снятия флажка фон выбранной ячейки больше не будет окрашен. См. снимки экрана:
Связанные статьи:
- Как выделить ячейку или строку с помощью флажка в Excel?
- Как вставить дату и поставить отметку в ячейку при установке флажка в Excel?
- Как автоматически установить флажок в зависимости от значения ячейки в Excel?
- Как фильтровать данные в Excel по состоянию флажка?
- Как скрыть флажок при скрытии строки в Excel?
- Как создать раскрывающийся список с несколькими флажками в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал 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.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек