Лист «Сводная таблица»
На листе «Сводная таблица» расположена сводная таблица, которая построена на основе главной таблицы листа «Табель учета рабочего времени». Сводная таблица позволяет в более яркой и доступной форме отобразить данные о рабочих завода и их зарплате. На листе также присутствуют две кнопки: «Главное меню» для перехода на лист «Титульный лист» и «Диаграмма» для перехода на лист «Диаграмма1».
Программный код для кнопки «Диаграмма»:
Private Sub CommandButton1_Click()
Sheets("Диаграмма1").Select
End Sub
Лист «Диаграмма»
На листе расположена диаграмма, в яркой форме отображающая информацию о рабочих завода и зарплате.
На листе расположена кнопка Меню, макрос которой следующий:
Sub титульный()
' титульный Макрос
Sheets("Титульный лист").Select
End Sub
Лист ведомость
При нажатии на кнопку ведомость, расположенную на пользовательской форме ved на листе «Титульный лист», появляется форма ведомость.
На форме расположены два элемента: ComboBox1 и CommandButton1. Элемент ComboBox1 позволяет выбрать из списка название специальности рабочего, а при нажатии на кнопку CommandButton1 создается ведомость на отдельном листе. Также на листе «Выручка» расположена элемент CommandButton2, для распечатки листа.
Программный код:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim h As Byte
If ComboBox1 = "" Then
h = MsgBox("Для вывода ведомости необходимо выделить из списка специальность", vbYes + vbQuestion, "Ведомость")
End If
Dim igr(2000, 7) As String
cur_sel = Trim(ComboBox1.Text)
i = 1
j = 10
Sheets("Табель учета рабочего времени").Activate
Do While Not IsEmpty(Cells(j, 3).Value)
If cur_sel = Trim(Cells(j, 3).Value) Then
igr(i, 1) = Cells(j, 1).Value
igr(i, 2) = Cells(j, 2).Value
igr(i, 3) = Cells(j, 4).Value
igr(i, 4) = Cells(j, 5).Value
igr(i, 5) = Cells(j, 6).Value
igr(i, 6) = Cells(j, 7).Value
i = i + 1
End If
j = j + 1
Loop
Sheets("Выручка").Activate
Cells(1, 4).Value = cur_sel
Range("A3:I2000").Value = " "
For j = 1 To i
Cells(j + 2, 1).Value = igr(j, 1)
Cells(j + 2, 2).Value = igr(j, 2)
Cells(j + 2, 3).Value = igr(j, 3)
Cells(j + 2, 4).Value = igr(j, 4)
Cells(j + 2, 5).Value = igr(j, 5)
Cells(j + 2, 6).Value = igr(j, 6)
Next j
Sheets("Выручка").Range("g3").Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-1],R[1]C[-1]:R[196]C[-1])"
12 ComboBox1 = ""
Sheets("Выручка").Range("h3").Activate
Range("H3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-4]:R[7]C[-4])"
Sheets("Выручка").Range("i3").Activate
Range("I3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:R[7]C[-3])"
ved.Hide
End Sub
Private Sub UserForm_Activate()
Dim pr As Object, X As Object
ved.ComboBox1.Clear
ActiveWorkbook.Sheets("Тарифы").Select
Set pr = ActiveSheet.Range("a3")
Do While Not IsEmpty(pr)
Set X = pr.Offset(1, 0)
ComboBox1.AddItem pr
Set pr = X
Loop
End Sub
Программный код для CommandButton2 (Распечатка):
Private Sub CommandButton2_Click()
ActiveWorkbook.Sheets("Выручка").PrintOut
End Sub
Реализация информационно-аналитической системы «Зарплата» с помощью ms access
MS ACCESS - СУБД реляционными базами данных. То есть информация в таких базах данных храниться в таблицах, связанных между собой.
Основными объектами Базы Данных являются: таблицы, формы, запросы, отчеты, макросы и модули.
Создание БД всегда начинается с создания структуры таблиц: в режиме конструктора определяются поля таблиц, типы данных которые можно вводить в поля и свойства поля при необходимости.
Сначала будем создавать структуру таблицы «Тарифы».
Специальность делаем ключевым полем. Имя таблицы называется «Тарифы».
Создаем таблицу «Табель учета».
Спец – искусственно созданное поле, которое будет ключевым.
Заполняем таблицу «Тарифы» данными.
Создадим схему данных. Схема данных выглядит следующим образом:
Создание для таблицы «Тарифы» форму для ввода данных.
Создание форму для ввода данных в таблицу «Табель учета».
Создадим запрос на обновление данных.
Двойным щелчком из таблицы «Табель Учета» выбираем поля и после чего нажимаем кнопку «Обновление».
«Обновление»- Создание запроса, который обновляет данные в существующей таблице.
Заполняем строки обновления, через кнопку «Построитель».
Нарисуем в области данных элемент управления «Кнопка». Перейдем в режим формы и внесем несколько записей в таблицу «Табель учета», каждый раз нажимая кнопку «Регистрация» и при этом мы должны убедиться, что введенные данные попадают в таблицу.
Создадим запрос на выборку данных из таблицы «Табель учета».
Например, «Отбор данных по ФИО».Для этого через Конструктор запросов выбираем две таблицы и из таблицы «Табель учета» выберем все столбцы, кроме столбца «Спец».
На основе запроса на выборку создадим отчет ФИО.
Аналогично можно создать отчет на основе таблицы, и выбрать уровни группировки.