Worksheet_BeforeDoubleClick secundario privado (blanco de ByVal como gama, cancelación como boleana)
Si Target.Cells.Count > 1 entonces salen el submarino
Si no intersecarse (blanco, gama (“E18: E328”)) Entonces está nada
Target.Font.Name = “Marlett”
Si blanco = vbNullString entonces
Blanco = “r”
Blanco = vbNullString
Si no intersecarse (blanco, gama (“E46: E48”)) Entonces está nada
Si Application.CountA (gama (“E46: E48”)) = 0 entonces
Gama (“F46”) = “verdad”
Gama (“F46”) = “falso”
Terminar si
Terminar si
Terminar si
La cancelación = verdad
Terminar si
Terminar el submarino
|