Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

    End If

   

   

    Loop Until Abs(F(Range("Curright").Value)) - Abs(F(Range("Curleft").Value)) Range("right").Value Or nashli = True

End Sub

Sub MoveLe()

    Range("stepleft").Value = Range("stepleft").Value + 0.333

    Range("curLeft").Value = Range("stepleft").Value

    Range("Curright").Value = Range("Curleft").Value + 0.333

    Range("Curcenter").Value = ((Range("curleft").Value) + (Range("curright").Value)) / 2

End Sub

Private Sub CommandButton3_Click()

Horda_Kas

End Sub

Private Sub UserForm_Deactivate()

ListBox1.Clear

TextBox1.Value = 0

End Sub

Sub Perenos()

Range("a1").Value = Range("L1").Value

Range("a2").Value = Range("L2").Value

Range("a3").Value = Range("L3").Value

Range("a4").Value = Range("L4").Value

Range("a5").Value = Range("L5").Value

Range("a6").Value = Range("L6").Value

Рекомендуем скачать другие рефераты по теме: легкие реферат, контрольные работы 2 класс.





Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата