¿Cómo agregar una marca de verificación en una celda con doble clic en Excel?

Normalmente, para insertar una marca de verificación en una celda, debe ingresar al cuadro de diálogo Símbolo, buscar el símbolo de la marca de verificación e insertarlo manualmente. Pero no es tan fácil encontrar el símbolo de marca de verificación en el cuadro de diálogo Símbolo, ya que hay numerosos símbolos enumerados en el interior. ¿Cómo agregar rápidamente una marca de verificación en una celda en Excel? Este artículo le mostrará un método VBA para agregar fácilmente una marca de verificación en una celda con solo hacer doble clic.

Haga doble clic para agregar una marca de verificación en una celda con código VBA

Haga doble clic para agregar una marca de verificación en una celda con código VBA

El siguiente código VBA puede ayudarlo a agregar una marca de verificación en una celda haciendo doble clic. Haz lo siguiente.

1. Abra la hoja de trabajo que necesita para agregar una marca de verificación en la celda, luego haga clic derecho y seleccione Ver código desde el menú contextual.

2. En el Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código VBA en el Código ventana.

Código de VBA: haga doble clic para agregar una marca de verificación en una celda

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Nota:: En el código, B1: B10 es el rango que agregará la marca de verificación haciendo doble clic. Cámbielo según sus necesidades.

3. presione el otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana y vuelva a la hoja de trabajo.

Ahora, haga doble clic en cualquier celda en el rango B1: B10, la marca de verificación se ingresará automáticamente. Y haciendo doble clic en la celda nuevamente, se eliminará la marca de verificación insertada.

Si necesita utilizar con frecuencia las marcas de verificación en su trabajo diario de Excel, aquí le recomiendo el Texto automático Utilidad de Kutools for Excel. Con esta función, puede guardar una marca de verificación como una entrada de texto automática y luego reanudarla en el futuro con solo un clic en Excel, como se muestra en la siguiente demostración.
¡Descárgalo y pruébalo ahora! (30-día de ruta libre)

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra...

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

Leer más ... Descarga gratis... Compra...

Comentarios (11)

Aún no hay calificaciones. ¡Sé el primero en calificar!

Luis Carlos Días

Hace unos años 4

#27122

Este comentario fue minimizado por el moderador en el sitio

como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer apagar a marca, eu dou duplo clique novamente ea célula voltaria ao normar (continuaria apenas o número).

Responder

Tadao Kano Luis Carlos Días

Hace unos años 4

#27123

Este comentario fue minimizado por el moderador en el sitio

Ola Luiz, tente essa alteracao. Ira funcionará nas celulas A2:A10 y D2:D5, altere conforme sua necessidade.

tadao

Subhoja de trabajo privada_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Rango("A2:A10"), Range("D2:D5"))) No es nada Entonces
Application.EnableEvents = False
Si Izquierda (ActiveCell.Value, 1) = ChrW (& H2713) Entonces
ActiveCell.Valor = Derecha (ActiveCell, Len (ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlDerecha
otro
ActiveCell.Valor = ChrW(&H2713) & ActiveCell.Valor
Si terminar
Cancelar = True
Si terminar
Application.EnableEvents = True
End Sub

Responder

Elizabeth

Hace unos años 2

#34106

Este comentario fue minimizado por el moderador en el sitio

¿Hay alguna manera de repetir este código para que esté en muchas hojas de trabajo en un libro de trabajo?

Responder

Reportar

cristal Elizabeth

Hace unos años 2

#34107

Este comentario fue minimizado por el moderador en el sitio

Hola leoflute,Después de presionar el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana, haga doble clic ThisWorkbook para abrir el ThisWorkbook (Código) y luego copie el siguiente código en la ventana de código. No olvide cambiar los nombres de las hojas y el rango de celdas en el código. Sublibro de trabajo privado_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'Actualizado por Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName como cadena
Dim xEEBol, xWSNBol, xBol como valor booleano
Dim xArrWs
Dim xArrRg
Dim xI, xJ como entero
Dim xWs como hoja de trabajo
Dim xRg como rango

xStrWs = "Hoja5,Hoja1,Hoja2" 'Los nombres específicos de las hojas de trabajo
xStrRg = "B3: B10" 'El rango de celdas en el que insertará marcas de verificación
xArrWs = Dividir(xStrWs, ",")
xArrRg = Dividir(xStrRg, ",")

xEEBol = Aplicación.EnableEvents
Application.EnableEvents = False
On Error Resume Next
xStrWsName = Sh.Nombre
xBol = Falso
xWSNBol = Falso
Para xI = 0 a UBound(xArrWs)
Si xStrWsName = xArrWs(xI) Entonces
xWSNBol = Verdadero
Salir para
Si terminar
Siguiente xI

Si xWSNBol Entonces
Establecer xWs = Aplicación.Hojas de trabajo.Item(xArrWs(xI))
Para xJ = 0 a UBound(xArrRg)
Establecer xRg = Sh.Rango (xArrRg (xJ))
Si no intersectar (objetivo, xRg) no es nada, entonces
xBol = Verdadero
Salir para
Si terminar
Siguiente xJ
Si terminar

Si xBol Entonces
Si ActiveCell.Value = ChrW(&H2713) Entonces
ActiveCell.ClearContents
otro
CeldaActiva.Valor = ChrW(&H2713)
Si terminar
Cancelar = True
Si terminar
Aplicación.EnableEvents = xEEBol
End Sub

Responder

Reportar

CSherrod

Hace un año 1

#35215

Este comentario fue minimizado por el moderador en el sitio

¡Hola! ¿Qué agregaría al código anterior para que la celda cambie de color cuando se agregue la casilla de verificación?

Responder

Dan

Hace un año 1

#36632

Este comentario fue minimizado por el moderador en el sitio

hola cristal
¿Hay alguna forma de tener marcas de verificación en A1:A10 junto con B3:B10?

Responder

Michael

Hace un año 1

#36920

Este comentario fue minimizado por el moderador en el sitio

¿Cómo repito esto para varias columnas?
Por ejemplo, lo necesito en lo siguiente:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX

Responder

Ulises Nonato

unos meses atrás 6

#38841

Este comentario fue minimizado por el moderador en el sitio

Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de dois.

Responder

cristal Ulises Nonato

unos meses atrás 6

#38900

Este comentario fue minimizado por el moderador en el sitio

Hola Ulisses Nonato,
Si desea agregar una marca de verificación a una celda con solo un clic del mouse, el siguiente código de VBA puede hacerle un favor.
Tienes que hacer clic en el botón derecho del mouse botón para activar el código.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Responder

Reportar

Sora

unos meses atrás 2

#41276

Este comentario fue minimizado por el moderador en el sitio

¿Cómo hago para que agregue una marca de tiempo en la celda adyacente después del doble clic?

Responder

cristal Sora

unos meses atrás 2

#41491

Este comentario fue minimizado por el moderador en el sitio

Hola Sora,
El siguiente código de VBA puede hacerte un favor. Por favor inténtalo. Gracias.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

Responder

Reportar

No hay comentarios publicados aquí todavía

Deje sus comentarios

Publicar como invitado

Iniciar sesión

Nombre (Obligatorio)

Correo electrónico (obligatorio)

Califica esta publicación:

Restablecer configuración

0 Personajes

Estoy de acuerdo con la términos y condiciones