Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13



Обработчик события кнопки
Private Sub CommandButton1_Click()
Worksheets("Задание4").Range("c10:h15").Value = ""
Worksheets("Задание4").Range("j11:j16").Value = ""
Worksheets("Задание4").Range("b2").Value = UserForm2.TextBox1
Worksheets("Задание4").Range("a2").Value = UserForm2.TextBox2
Worksheets("Задание4").Range("c2").Value = UserForm2.TextBox3
UserForm2.Hide
Range("C10:H15").FormulaArray = "=Модуль3.CALC(I11:I16)"
Range("J11:J16").FormulaArray = "=MMULT((C10:H15),TRANSPOSE(d7:i7))"
Range("f16").Select
ActiveCell.FormulaR1C1 = "=large(r[-5]c[4]:rc[4],1)"
Range("f17").Select
ActiveCell.FormulaR1C1 = "=(match(large(r[-6]c[4]:r[-1]c[4],1),r[-
6]c[4]:r[-1]c[4],0)-1)*5" r = Range("f16").Value v = Range("f17").Value
UserForm3.Label3.Caption = Worksheets("Задание4").Range("f16")
UserForm3.Label4.Caption = Worksheets("Задание4").Range("f17")
UserForm3.Show
End Sub

Обработчик события кнопки
Private Sub CommandButton2_Click()
UserForm2.Hide
End Sub

UserForm3

Private Sub CommandButton1_Click()
UserForm3.Hide
End Sub

Скачали данный реферат: Алексеев, Лукиана, Jadrov, Sozonov, Канадов, Греков, Chuchanov.
Последние просмотренные рефераты на тему: реферат на тему мир, бесплатные рассказы, реферат на тему природа, бесплатные дипломные работы.



Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13

Поделитесь этой записью или добавьте в закладки