Отдел кадров

Размещено на http://www.allbest.ru/

"Отдел кадров"

кадровый служба сотрудник

Введение

кадровый служба сотрудник

С наступлением века всемирной компьютеризации, стало намного меньше проблем с обработкой имеющихся сведений. В скором времени трудно будет представить человека (и уже сейчас предприятие), не имеющего компьютер. Но для продуктивного использования компьютеров они должны быть снабжены соответствующим программным обеспечением, настроенным на решение конкретных задач. Отделы кадров постоянно работают с множеством данных о сотрудниках. А теперь представьте себе, какое количество информации приходится изо дня в день перебирать на крупных предприятиях.

Моя работа предназначена для облегчения работы с данными. Например, поиск данных по отдельно взятому сотруднику или данные по группе лиц, числящихся в каком либо отделе. Это можно легко сделать, зная только фамилию сотрудника или номер отдела группы лиц соответственно.

В своей работе я использовала такие операторы как: операторы цикла For … Next, Do … Loop, условный оператор If … Then … Else.

Кроме объединенных табличных данных, программа автоматически просуммирует и выдаст результат о численности сотрудников и какое количество (в рублях) составляет их суммарный оклад, то есть фонд оплаты труда по каждому отделу.

Таким образом, я считаю, что тема данной работы наиболее актуальна в наше время.

Содержание таблиц

В этой таблице приведены названия отделов предприятия и присвоенный им номер.

Таблица. Лист 2 - «сотрудник»:

таб. №	Ф. И. О.	отдел	инн	пол	Дата приема на работу	Дата увольнения	оклад
6905	Сергеева Л.Е	22	182700968267	жен	14.12.2000г.		3000
3455	Лагунова Л. П.	22	476356598272	жен	02.09.1998г.		2500
2836	Насырова Г.Р.	22	745950522126	жен	28.05.1996г.	14.10.1999г.	4500
3936	Осипова Л.Ф.	22	276564110873	жен	11.08.1992г.		2950
2845	Пигалева С.В.	22	461945995447	жен	25.07.1990г.		3200
8743	Тараканова В.Л.	24	358837242854	жен	20.11.2004г.		3200
6512	Романова Е.А.	24	385655282926	жен	30.01.2001г.		3300
8049	Соболев А.И.	24	866451565830	муж	12.10.1995г.		3250
7615	Айдаров Р.А.	24	102846578375	муж	24.10.2005г.		3300
5786	Цыгвинцев И.В.	24	784652839303	муж	08.03.1999г.	05.04.2003г.	3350
2954	Беляева У.К.	24	289376575393	жен	29.04.1994г.		3100
4563	Подгорнов А.Г.	25	049545274682	муж	19.09.1995г.		2900
2387	Ключникова Д.И.	25	947521421216	жен	23.12.2002г.		2500
5749	Попова О.А.	25	650464452828	жен	15.06.1993г.		2750
9082	Шарапова Е.А.	25	184528295768	жен	27.01.2003г.	20.12.2005г.	2400
3451	Кузнецова М.В.	25	762855876014	жен	16.03.2000г.		3000
8098	Сухоплюев В.С.	49	567963544782	муж	13.04.1991г.		2600
5872	Салимова Ю.А.	49	378465612846	жен	10.08.2004г.		2950
3641	Никифорова Н.Д.	49	463785659125	жен	16.05.1997г.		3050
5115	Козлова Т.Л.	49	367453475636	жен	17.06.2003г.		3000
3081	Мерзляков Н.Е.	49	236834571256	муж	22.11.1988г.		2700
7543	Подкин Д.М.	49	566215621445	муж	31.02.2002г.	13.08.2004г.	3100

Данная таблица содержит полные обобщающие сведения о сотрудниках по номерам отделов в которых они числятся. Например, такие данные как табельный номер, Ф.И.О., ИНН, пол, дата приема на работу, дата увольнения (если работник уволен), оклад сотрудника.

Таблица. Лист 3 - «22 отдел»:

численность	таб. №	Ф. И. О.	отдел	должность	оклад	пол
1	6905	Сергеева Л.Е	22	бухгалтер	3000	жен
1	3455	Лагунова Л. П.	22	бухгалтер	2500	жен
1	2836	Насырова Г.Р.	22	ведущий бухгалтер	4500	жен
1	3936	Осипова Л.Ф.	22	бухгалтер	2950	жен
1	2845	Пигалева С.В.	22	бухгалтер	3200	жен

В приведенной таблице зафиксированы данные о сотрудниках 22 отдела: их численность, должность и др.

Таблица. Лист 4 - «24 отдел»:

численность	таб. №	Ф. И. О.	отдел	должность	оклад	пол
1	8743	Тараканова В.Л.	24	экономист	3200	жен
1	6512	Романова Е.А.	24	ведущий экономист	3300	жен
1	8049	Соболев А.И.	24	экономист	3250	муж
1	7615	Айдаров Р.А.	24	экономист	3300	муж
1	5786	Цыгвинцев И.В.	24	ведущий экономист	3350	муж
1	2954	Беляева У.К.	24	экономист	3100	жен

В этой таблице указаны данные о сотрудниках 24 отдела.

Таблица. Лист 5 - «25 отдел»:

численность	таб. №	Ф. И. О.	отдел	должность	оклад	пол
1	4563	Подгорнов А.Г.	25	специалист	2900	муж
1	2387	Ключникова Д.И.	25	специалист	2500	жен
1	5749	Попова О.А.	25	специалист	2750	жен
1	9082	Шарапова Е.А.	25	специалист	2400	жен
1	3451	Кузнецова М.В.	25	специалист	3000	жен

Данные этой таблицы представляют собой сведения о сотрудниках 25 отдела.

Таблица. Лист 6 - «49 отдел»:

численность	таб. №	Ф. И. О.	отдел	должность	оклад	пол
1	8098	Сухоплюев В.С.	49	товаровед	2600	муж
1	5872	Салимова Ю.А.	49	товаровед	2950	жен
1	3641	Никифорова Н.Д.	49	товаровед	3050	жен
1	5115	Козлова Т.Л.	49	товаровед	3000	жен
1	3081	Мерзляков Н.Е.	49	товаровед	2700	муж
1	7543	Подкин Д.М.	49	товаровед	3100	муж

Данная таблица содержит сведения о сотрудниках 49 отдела. В последствии по данным последних четырех таблиц будет рассчитано число сотрудников и фонд оплаты труда по каждому из отделов. Для удобства работы с таблицами (особенно если в них содержится большое количество данных) необходимо закрепить область «шапки» таблиц. Это позволит, при рассмотрении таблицы сверху вниз, всегда видеть название колонок. Т.о. не будет необходимости возвращаться в начало таблицы. Для выполнения этой задачи я выделила необходимую область, дальнейший путь: Окно / Закрепить области.

Содержание форм

В главе 1. были рассмотрены 6 таблиц, для работы с которыми мне необходимо было составить формы. Для этого я создала пустой макрос с именем «кадры», а так же добавила к нему 3 формы. Третья форма играет роль «главного меню», с ее помощью можно наиболее удобным образом перейти к двум оставшимся формам.

Первая форма:

Рис.

Для свойства формы Name я установила значение Frm1 и название заголовка «Данные подразделения». В этой форме мной были размещены такие элементы как:

Таблица

Элемент	Name	Caption
Рамка	Frame1	Подразделение
Надпись «номер»	Label6	номер
Текстовое поле	TextBox5
Надпись «наименование»	Label7	наименование
Текстовое поле	TextBox6
Счетчик	SpinButton1
Надпись «Ф.И.О.»	Label3	Ф.И.О.
Список	ListBox2
Надпись «численность»	Label4	численность
Текстовое поле	TextBox3
Надпись «фонд оплаты труда»	Label5	Фонд оплаты труда
Текстовое поле	TextBox4
Кнопка «Возврат»	ButRet	Возврат

С помощью этой формы пользователю предоставляется возможность получить данные, по какому - либо отделу.

При нажатии счетчика можно выбрать интересующий пользователя отдел, в результате чего появятся номер, наименование и список сотрудников отдела. А так же будет рассчитана численность сотрудников и фонд оплаты труда.

Вторая форма:

Рис.

Для свойства формы Name я установила значение Frm2 и название заголовка «Сведения о сотруднике». Данная форма содержит следующие элементы:

Таблица

Элемент	Name	Caption
Надпись «табельный номер	Label1	табельный номер
Текстовое поле	TextBox1
Надпись «Ф.И.О.»	Label2	Ф.И.О.
Текстовое поле	TextBox8
Надпись «подразделение»	Label3	подразделение
Текстовое поле	TextBox2
Надпись «пол»	Label4	пол
Текстовое поле	TextBox3
Надпись «дата приема на работу»	Label5	дата приема на работу
Текстовое поле	TextBox4
Надпись «дата увольнения»	Label6	дата увольнения
Текстовое поле	TextBox5
Надпись «ИНН»	Label7	ИНН
Текстовое поле	TextBox6
Надпись «оклад»	Label8	оклад
Текстовое поле	TextBox7
Кнопка «Возврат»	ButRet	Возврат

Для облегчения работы с таблицами при поиске данных об отдельно взятом сотруднике необходимо воспользоваться данной формой. При использовании счетчика можно выбрать табельный номер сотрудника, в результате чего появятся такие сведения о нем как: Ф.И.О., пол, ИНН, дата приема на работу, подразделение в которое он был принят, оклад сотрудника а так же дата увольнения сотрудника, если был зафиксирован факт его увольнения.

Третья форма(играет роль главного меню):

Рис.

Для свойства формы Name я установила значение Frm3 и название заголовка «Главная форма». В этой форме мной был расположен флажок: Name - cbHide, Caption - «Скрывать главную форму». Если флажок будет отмечен, то форма автоматически будет скрываться при переходе к другой форме.

В этой же форме я разместила кнопки с именами But1 с именем «подразделение», для перехода (при нажатии) к форме 1 «Данные подразделения» и But2 с именем «сведения», для перехода (при нажатии) к форме 2 «Сведения о сотруднике».

Коды из модуля и форм

Код из модуля:

Sub кадры()

Frm3.Show ' отобразить главную форму

End Sub

Код из 1 формы:

'Нажатие кнопки "Возврат"

Private Sub ButRed_Click()

Frm1.Hide 'Скрыть форму

' Отобразить главную форму, если она была скрыта

If Frm3.Visible = False Then Frm3.Show

End Sub

------------------------------------

Private Sub SpinButton1_Change()

ListBox2.Clear 'Очистка списка

nr = SpinButton1.Value

Sheets("подразделение").Activate 'Активный лист "подразделение"

TextBox6.Text = Cells(nr + 2, 2) 'В текстовом поле выводится наименование отдела

TextBox5.Text = Cells(nr + 2, 1) 'В текстовом поле выводится номер отдела

For i = 2 To 7

If TextBox6.Text = Cells(nr + 2, 2) Then

ListBox2.AddItem Sheets(nr + 3).Cells(i, 3)

End If

Next i

Sheets(nr + 3).Activate 'Активные листы с 3 по 6

beg = 1 ' Номер строки заголовка

' Определить количество записей таблицы - n

n = 0

Do While Cells(beg + n + 1, 2) <> "" ' Условие

n = n + 1

Loop

TextBox3.Text = n

Sheets(nr + 3).Activate

a = 1

k = 0

Do While a <> n + 1 ' Условие

a = a + 1 'прибавление ячеек к предыдущей

k = k + Cells(a, 6)

Loop

TextBox4.Text = k 'количество

End Sub

---------------

Private Sub UserForm_Initialize()

Sheets("подразделение").Activate

TextBox6.Text = Cells(2, 2)

TextBox5.Text = Cells(2, 1)

For i = 1 To 6

ListBox2.AddItem Sheets(nr + 3).Cells(1 + i, 3)

Next i

SpinButton1.Max = Sheets.Count - 3 'Ограничение счетчика

Sheets(nr + 3).Activate

beg = 1 ' Номер строки заголовка

' Определить количество записей таблицы - n

n = 0

Do While Cells(beg + n + 1, 2) <> "" ' Условие

n = n + 1

Loop

TextBox3.Text = n

'For i = 1 To n

Sheets(nr + 3).Activate

a = 1

k = 0

Do While a <> n + 1 ' Условие

a = a + 1 'прибавление ячеек к предыдущей

k = k + Cells(a, 6)

Loop

TextBox4.Text = k 'количество

End Sub

Код из 2 формы:

'Нажатие кнопки "Возврат"

Private Sub ButRet_Click()

Frm2.Hide ' Скрыть форму

' Отобразить главную форму, если она была скрыта

If Frm3.Visible = False Then Frm3.Show

End Sub

----------------------

Private Sub SpinButton1_Change()

Sheets("сотрудник").Activate 'Активный лист "сотрудник"

tb = SpinButton1.Value

TextBox1.Text = Cells(tb + 2, 1) 'Выводится табельный номер сотрудника

TextBox8.Text = Cells(tb + 2, 2) 'Выводится Ф.И.О. сотрудника

TextBox2.Text = Cells(tb + 2, 3) 'Выводится подразделение сотрудника

TextBox3.Text = Cells(tb + 2, 5) 'Выводится пол сотрудника

TextBox4.Text = Cells(tb + 2, 6) 'Выводится дата приема сотрудника

TextBox5.Text = Cells(tb + 2, 7) 'Выводится дата увольнения сотрудника

TextBox6.Text = Cells(tb + 2, 4) 'Выводится ИНН сотрудника

TextBox7.Text = Cells(tb + 2, 8) 'Выводится оклад сотрудника

End Sub

----------------------------------------------

Private Sub UserForm_Initialize()

Sheets("сотрудник").Activate

TextBox1.Text = Cells(2, 1)

TextBox8.Text = Cells(2, 2)

TextBox2.Text = Cells(2, 3)

TextBox3.Text = Cells(2, 5)

TextBox4.Text = Cells(2, 6)

TextBox5.Text = Cells(2, 7)

TextBox6.Text = Cells(2, 4)

TextBox7.Text = Cells(2, 8)

SpinButton1.Max = Sheets.Count + 17 'Ограничение счетчика

End Sub

Код из 3 формы:

Private Sub But1_Click()

If cbHide Then Frm3.Hide 'скрыть главную форму

Frm1.Show 'отобразить 1 форму

End Sub

---------------------------------------------

Private Sub But2_Click()

If cbHide Then Frm3.Hide 'скрыть главную форму

Frm2.Show 'отобразить 2 форму

End Sub

Размещено на Allbest.ru