Intymny Okręt podwodny Worksheet_BeforeDoubleClick (ByVal Cel Jako Pasmo, Odwoływać Boolowski)
Jeżeli Target.Cells.Count > (1) Wtedy Wychodzić Okręt podwodny
Jeśli nie Przecinać (Cel, Pasmo ("E18: E328")) Być Nic Wtedy
Target.Font.Name = "Marlett"
Jeżeli Cel = vbNullString Wtedy
Cel = "r"
Inny
Cel = vbNullString
Jeśli nie Przecinać (Cel, Pasmo ("E46: E48")) Być Nic Wtedy
Jeżeli Application.CountA (Pasmo ("E46: E48")) = (0) Wtedy
Pasmo ("F46") = "Prawdziwy"
Inny
Pasmo ("F46") = "Fałszywy"
Kończyć Jeżeli
Kończyć Jeżeli
Kończyć Jeżeli
Odwoływać = Prawdziwy
Kończyć Jeżeli
Kończyć Okręt podwodny
|