Si hace doble clic en la celda "$A$1", que es la primera celda, ejecute la función personalizada Sx; de lo contrario, ignore el evento.
Subhoja de trabajo privada _ antes de hacer doble clic (ByVal Target como rango, Cancelar como booleano)
Si es objetivo. Dirección& lt& gt" $A$1 "Luego salga de Sub
"Cancel = True" no ejecuta el código predeterminado.
Llamar a Sx
Conector final
2.
Cuando el usuario cambia una celda en la hoja de trabajo o un enlace externo causa esto. El evento ocurre cuando la celda cambia.
Si la tabla no ha sido modificada por la celda A1 o A! El valor de la declaración de evento de la celda
private worksheet_change(byval target as range)' es incorrecto y se cambió a la siguiente oración:
Private child worksheet_SheetChange(ByVal Sh as Object, ByVal Target) as range)
Determine si A1 se ha modificado cambiando el área de superposición entre el valor y A1 (Target(1)) para determinar si la longitud del texto en la celda A1 es mayor o igual a 10; . Entre ellos, la ortografía estándar de Target(1) es Target(1).text.
Si Intersect(Target, Range(" a 1 "))Nothing o Len(Target(1))<10 entonces abandona la articulación
Llama a Sx
Conector final