Doble clic para añadir / quitar Tick
En este artículo, usaremos antes de hacer doble clic en el evento de la hoja de trabajo para marcar y desmarcar la celda.
Los datos brutos consisten en algunos alimentos. Queremos marcar los artículos que hemos comprado.
Al hacer doble clic en una celda, se le agregará una marca de verificación. De la misma forma, se puede eliminar haciendo doble clic en él nuevamente.
Explicación del código
Si Target.Column = 3 Then El código anterior se usa para restringir el evento de doble clic para que se ejecute solo cuando se hace doble clic en la celda de la tercera columna.
Cancelar = Verdadero El código anterior se usa para evitar que una celda entre en modo de edición.
Target.Font.Name = «Marlett»
El código anterior se utiliza para asignar la fuente Marlett a la celda de destino.
Si Target = «» Entonces Target = «a»
Else Target = «»
End If El código anterior se utiliza para insertar una marca de verificación y eliminarla también. En la fuente Marlett, la «a» representa la marca de verificación y el espacio en blanco se utiliza para eliminar la marca de verificación.
Siga el código a continuación
Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Checking whether target cell is in third column If Target.Column = 3 Then 'Prevent cell going into Edit Mode Cancel = True 'Changing font type of the cell Target.Font.Name = "Marlett" 'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "a" Else Target = "" End If End If End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]