Worksheet_BeforeDoubleClick secundário confidencial (alvo de ByVal como a escala, o cancelamento como bôoleano)
Se Target.Cells.Count > 1 retiram então o submarino
Se não cruzar (alvo, escala (“E18: E328”)) É nada então
Target.Font.Name = “Marlett”
Se alvo = vbNullString então
Alvo = “r”
Mais
Alvo = vbNullString
Se não cruzar (alvo, escala (“E46: E48”)) É nada então
Se Application.CountA (escala (“E46: E48”)) = 0 então
Escala (“F46”) = “verdadeiro”
Mais
Escala (“F46”) = “falso”
Terminar se
Terminar se
Terminar se
O cancelamento = retifica
Terminar se
Terminar o submarino
|