(1): 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Okręt podwodny ZeroEm () Ciemnawy c Pasmo Ciemnawy rng1 Pasmo Ciemnawy ws Jako Worksheet Set ws = Pasmo ("AllAll"). Rodzic Dla Pasmo c W Pasmo ("dings") Jeżeli UCase$ (c.Value) = "PRAWDZIWY" Wtedy Set rng1 = Przecinać (Pasmo ("AllAll"), ws. Rząd (c.Row)) rng1.Value = "(0)" Kończyć Jeżeli Następnie Końcówka Okręt podwodny