¿Cómo insertar rápidamente marcas de verificación y cruz en las celdas?

En una hoja de cálculo, podemos insertar las marcas de verificación y cruz utilizando la función Símbolo de forma predeterminada, pero será aburrido si solo puedes insertar un símbolo a la vez. En este artículo, te hablaré de algunos trucos para que puedas insertar rápidamente las marcas de verificación y cruz en Excel.

Insertar marcas de verificación y cruz en las celdas con un carácter de acceso directo

Insertar marcas de verificación y cruz en las celdas con código VBA

Insertar marcas de verificación y cruz en las celdas con un carácter de acceso directo

Para insertar rápidamente las marcas de verificación y cruz, las letras de acceso directo “a” y “r” pueden ayudarte. Por favor, sigue estos pasos:

1. Selecciona las celdas de la columna donde deseas insertar las marcas de verificación y cruz, y luego elige la fuente Webdings en la pestaña Inicio, consulta la captura de pantalla:

2. Ahora, cuando escribas la letra “a” en la celda, se convertirá en una marca de verificación, y si escribes la letra “r”, se convertirá en una marca de cruz, consulta la captura de pantalla:

Insertar marcas de verificación y cruz en las celdas con código VBA

Aquí hay otra forma rápida y fácil de insertar las marcas de verificación y cruz con solo hacer clics.

1. Haz clic derecho en la pestaña de la hoja donde deseas insertar las marcas de verificación y cruz, y luego selecciona Ver código desde el menú contextual; en la ventana abierta de Microsoft Visual Basic para aplicaciones, copia y pega el siguiente código en el Módulo en blanco:

Código VBA: Insertar marcas de verificación y cruz en las celdas:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B2:B12")) Is Nothing Then
            With Target
                .Font.Name = "Wingdings"
                .Font.Size = 12
                If .FormulaR1C1 = " û " Then
                    .FormulaR1C1 = "ü"
                Else
                    .FormulaR1C1 = " û "
                End If
            End With
        End If
        Cancel = True
    End If
End Sub

Nota: En el código anterior, B2:B12 son las celdas donde deseas insertar las marcas de verificación y cruz, puedes cambiar la referencia de la celda según sea necesario.

2. Luego guarda el código y cierra esta ventana. Ahora, cuando haces doble clic en una celda una vez, se inserta una marca de cruz, y al hacer doble clic por segunda vez, aparece una marca de verificación, consulta la captura de pantalla: