Como converter verdadeiro/falso em caixa de seleção no Excel?

Digamos que você tenha listado números em duas colunas; se o número na primeira coluna for maior que o da segunda coluna, exiba VERDADEIRO, caso contrário, exiba FALSO, conforme mostrado na captura de tela abaixo. Agora você pode alterar a fórmula para converter VERDADEIRO ou FALSO em marcas de caixa de seleção facilmente no Excel.

Altere a fórmula original para =SE(fórmula_original,"þ","¨")

1. Neste caso, uso a fórmula =B3>C3 para comparar os números em duas colunas. Portanto, vou alterar a fórmula original como abaixo e depois arrastar a alça de preenchimento automático para outras células.

=SE(B3>C3,"þ","¨")

2. Mantenha as células da fórmula selecionadas, clique com o botão direito do mouse e selecione Formatar Células no menu de contexto.

3. Na caixa de diálogo Formatar Células, vá para a guia Fonte , selecione Windings na caixa de lista Fonte e clique no botão OK.

Agora você verá que os caracteres especiais são convertidos em caixas de seleção marcadas e desmarcadas. Veja a captura de tela:

Esta seção introduzirá uma macro VBA para converter múltiplos VERDADEIRO e FALSO em controles de caixa de seleção no Excel. Por favor, siga os passos abaixo:

1. Selecione as células iguais a “VERDADEIRO” e “FALSO” que você converterá em caixas de seleção.

2. Pressione as teclas Alt + F11 juntas para abrir a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o código VBA abaixo na nova janela Módulo.

VBA: Converter VERDADEIRO e FALSO em controles de caixa de seleção no 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. Pressione a tecla F5 ou clique no botão Executar para executar este VBA.

Então, você verá que todos os VERDADEIRO e FALSO selecionados são convertidos em controles de caixa de seleção. VERDADEIRO é convertido em uma caixa de seleção marcada, e FALSO é convertido em uma caixa de seleção desmarcada. Veja a captura de tela:

Se você tiver o Kutools para Excel instalado, poderá aplicar seu recurso Inserção em Lote de Caixas de Seleção para inserir vários controles de caixa de seleção em massa com um único clique no Excel.

Kutools para Excel - Inclui mais de 300 ferramentas úteis para o Excel. Teste gratuito completo de 60 dias, sem necessidade de cartão de crédito! Obtenha Agora

1. Selecione as células iguais a “VERDADEIRO” e “FALSO” que você converterá em caixas de seleção e clique em Kutools > Inserir > Inserção em Lote de Caixas de Seleção.

2. Agora, um controle de caixa de seleção é inserido em cada célula selecionada. Você pode marcar manualmente essas caixas de seleção conforme necessário.