Как преобразовать значения true/false в чекбоксы в Excel?

Допустим, у вас есть числа, перечисленные в двух столбцах. Если число в первом столбце больше, чем во втором, отображается TRUE, иначе — FALSE, как показано на скриншоте ниже. Теперь вы можете изменить формулу, чтобы легко преобразовать TRUE или FALSE в отметки чекбоксов в Excel.

Измените исходную формулу на =ЕСЛИ(исходная_формула,"þ","¨")

1. В данном случае я использую формулу =B3>C3 для сравнения чисел в двух столбцах. Поэтому я изменю исходную формулу следующим образом, а затем протяну маркер автозаполнения на другие ячейки.

=ЕСЛИ(B3>C3,"þ","¨")

2. Выберите ячейки с формулой, щелкните правой кнопкой мыши и выберите Формат ячеек из контекстного меню.

3. В диалоговом окне Формат ячеек перейдите на вкладку Шрифт , выберите Wingdings из списка шрифтов и нажмите кнопку ОК.

Теперь вы увидите, что специальные символы преобразованы в отмеченные и неотмеченные чекбоксы. См. скриншот:

В этом разделе будет представлена макрос VBA для преобразования нескольких значений true и false в элементы управления чекбоксами в Excel. Пожалуйста, выполните следующие действия:

1. Выберите ячейки, равные «TRUE» и «FALSE», которые вы хотите преобразовать в чекбоксы.

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

3. Щелкните Вставка > Модуль, затем вставьте приведенный ниже код VBA в новое окно Модуля.

VBA: Преобразование значений TRUE и FALSE в элементы управления чекбоксами в Excel

Sub ConvertTrueFalseToCheckbox()
Dim xCB As CheckBox
Dim xRg, xCell As Range
Application.ScreenUpdating = False
On Error Resume Next
Set xRg = Selection
For Each xCB In ActiveSheet.CheckBoxes
xCB.Delete
Next
For Each xCell In xRg
If (UCase(xCell.Value) = "TRUE") Or (UCase(xCell.Value) = "FALSE") Then
Set xCB = ActiveSheet.CheckBoxes.Add(xCell.Left, xCell.Top, cDblCheckboxWidth, xCell.Height)
xCB.Value = xCell.Value
xCB.LinkedCell = xCell.Address
xCB.Text = ""
End If
Next
Application.ScreenUpdating = True
End Sub

4. Нажмите клавишу F5 или щелкните кнопку Выполнить, чтобы запустить этот VBA.

После этого все выбранные значения TRUE и FALSE будут преобразованы в элементы управления чекбоксами. TRUE преобразуется в отмеченный чекбокс, а FALSE — в неотмеченный. См. скриншот:

Если у вас установлен Kutools для Excel, вы можете использовать его функцию Пакетная вставка чекбоксов, чтобы вставить несколько элементов управления чекбоксами за один клик в Excel.

Kutools для Excel - включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия на 60 дней, кредитная карта не требуется! Получить сейчас

1. Выберите ячейки, равные «TRUE» и «FALSE», которые вы хотите преобразовать в чекбоксы, и нажмите Kutools > Вставка > Пакетная вставка чекбоксов.

2. Теперь элемент управления чекбоксом вставлен в каждую выбранную ячейку. Вы можете вручную отметить эти чекбоксы по необходимости.