Решение экономических задач с помощью VBA
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: сочинение ревизор, решебник 6
| Добавил(а) на сайт: Azarov.
Предыдущая страница реферата | 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
Главная