Автор работы: Пользователь скрыл имя, 14 Марта 2012 в 15:01, курсовая работа
Программа Microsoft Excel относится к классу программ, называемых электронными таблицами. Электронные таблицы ориентированы прежде всего на решение экономических и инженерных задач, позволяют систематизировать данные из любой сферы деятельности.
Программа Microsoft Excel позволяет:
сформировать данные в виде таблиц;
рассчитать содержимое ячеек по формулам, при этом возможно использование более 150 встроенных функций;
представить данные из таблиц в графическом виде;
организовать данные в конструкции, близкие по возможностям к базе данных.
Range("A10").Value = "с"
Range("B10").Value = Asc(Range("A10").Value)
Range("A11").Value = "и"
Range("B11").Value = Asc(Range("A11").Value)
Range("A12").Value = "я"
Range("B12").Value = Asc(Range("A12").Value)
Range("A1").Select
TextBox1.Text = "Все правильно! Нажмите кнопку 'Выход'"
Else
TextBox1.Text = "Ошибка ввода. Нажмите 'Очистка' и повторите"
End If
End Sub
Private Sub CommandButton2_Click()
'
TextBox1.Value = ""
'
End Sub
Private Sub CommandButton3_Click()
'
ПроверкаАвторства.Hide
'
End Sub
Private Sub UserForm_Click()
End Sub
3.Составить макрос, позволяющий рассчитать фонд заработной платы сотрудников организации.
Профессия | Кол-во человек | Тариф | Коэф. Тариф. | Оклад в месяц , тыс.р. | ФОЗП в месяц , тыс . р. | ФОЗП в год , тыс .р. | ФЗП с начислением , тыс.р. |
Дворник | 7 | 16 | 4,55 | 18,04 | 126,28 | 1515,36 | 2528,83 |
Уборщица | 9 | 11 | 4,51 | 18,04 | 162,36 | 1948,32 | 3251,36 |
Монтажник | 8 | 6 | 7,55 | 13,06 | 104,48 | 1253,76 | 2092,27 |
Упаковщик | 5 | 8 | 3,53 | 17,12 | 85,6 | 1027,20 | 1714,19 |
Слесарь | 6 | 9 | 4,31 | 7,34 | 44,04 | 528,48 | 881,93 |
Итого основных рабочих | 35 |
|
| 73,60 | 522,76 | 6273,12 | 10468,58 |
Подсобный рабочий | 3 | 5 | 2,16 | 8,64 | 25,92 | 311,04 | 519,06 |
Всего | 38 |
|
| 82,24 | 548,68 | 6584,16 | 10987,65 |
Dim A As Integer
Dim B As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Private Sub CommandButton1_Click()
'Процедура ввода исходных данных
'
With ВводИнформации
A = .TextBox1.Value
B = .TextBox2.Value
D = .TextBox3.Value
E = .TextBox4.Value
F = .TextBox5.Value
G = .TextBox6.Value
End With
'
With ActiveSheet
.Cells(2, 2).Value = A
.Cells(3, 2).Value = B
.Cells(4, 2).Value = D
.Cells(5, 2).Value = E
.Cells(6, 2).Value = F
.Cells(8, 2).Value = G
End With
'
End Sub
Private Sub CommandButton2_Click()
'Процедура очистки набранных значений
'
With ВводИнформации
.TextBox1.Text = ""
.TextBox2.Text = ""
.TextBox3.Text = ""
.TextBox4.Text = ""
.TextBox5.Text = ""
.TextBox6.Text = ""
End With
'
End Sub
Private Sub CommandButton3_Click()
'Процедура закрытия диалогового окна
ВводИнформации.Hide
'
End Sub
Информация о работе Описание возможностей табличного процессора Excel