"mprotseduur" - 1 õppematerjal

VBA Juhtimine

Muuda on parameetritega alamprotseduur Parameetrid värv ja p on sisendparameetrid Nende väärtused annavad protseduurid Tööle ja Aitab pöördumisel Sub Muuda(värv, p) Shapes("tuli").Fill.ForeColor.SchemeColor = värv paus p End Sub  Sub Aitab() Muuda 0, 1 ' must End End Sub mprotseduur parameetrid Sub paus(pp) duurid Dim pl pl = Timer() + pp Do DoEvents Loop While Timer() < pl eColor = värv End Sub  Kordused_1 Veski Koostada kaks makro pöörlema 1. Veski_0 Võimaliku Pöördenurga juurd 2