Введение. ' объявляем переменные, необходимые для работы
Option Base 1 Option Explicit ' объявляем переменные, необходимые для работы
Dim Ves(6, 5) As Double ' массив для веса компонент в каждом изделии Dim Cena(6) As Currency ' массив для цен компонент Dim Tort_ves(5) As Double ' массив для веса каждого торта Dim Tort_cena(5) As Currency ' массив для цен каждого торта Dim Min As Currency ' минимальная цена Dim NameMin As String 'наименование торта с наименьшей ценой
'счетчики циклов Dim i As Integer Dim j As Integer
'процедура расчета всех необходимых результатов Sub Find() 'считывание данных '........................................... For i = 1 To 6 ' в цикле по строкам Cena(i) = Cells(3 + i, 2) 'считываем цены Cells(3 + i, 2) = Cena(i) 'и заносим их в соотв. ячейки Cells(16 + i, 2) = Cena(i) Cells(16 + i, 1) = Cells(3 + i, 1) For j = 1 To 5 'и по столбикам ' считываем вес в соответствующие массивы Ves(i, j) = Cells(3 + i, 2 + j) Next j Next i
'расчет веса и цены каждого изделия '........................................... For j = 1 To 5 ' по столбикам Tort_ves(j) = 0 'обнуляем Tort_cena(j) = 0 For i = 1 To 6 ' в цикле по строкам 'заносим в соотв ячейки стоимость компоненты в изделии Cells(16 + i, 2 + j) = CCur(Ves(i, j) * Cena(i)) 'накапливаем вес и цену изделия (торта) Tort_ves(j) = Tort_ves(j) + Ves(i, j) Tort_cena(j) = Tort_cena(j) + Ves(i, j) * Cena(i) Next i 'выводим полученные результаты Cells(3 + i + 1, 2 + j) = Tort_ves(j) & " kg" Cells(16 + i + 1, 2 + j) = Tort_cena(j) Next j
'определение мин '........................................... i = 1 Min = Tort_cena(i) 'для начала ща мин берем первый эл массива цен изделий NameMin = Cells(16, 2 + i) 'и запомним его название
Do While i < 5 'увеличивая номер i = i + 1 'сравниваем зафиксированное значение с 'значением Tort_cena(i) 'если находим меньшее, то перезаписываем и запоминаем наименование If Tort_cena(i) < Min Then Min = Tort_cena(i) NameMin = Cells(16, 2 + i) End If Loop 'выводим полученные результаты Cells(27, 3) = NameMin Cells(28, 3) = Min
End Sub 'процедура проверки расчетов на 0 Sub Prov(a As Integer) 'в ячейки Лист "Результаты" зписываются If a <= 1 Then 'если а=0 или а=1 ---- то значение а Sheets(2).Range("B4: G9").Value = a Else 'иначе копируются исходные данные (диапазон) Sheets(2).Range("A1: G9").Value = Sheets(1).Range("A1: G9").Value End If Sheets(2).Select Call Find 'и обращаемся к процедуре расчетов End Sub
'процедура возвращения на лист1 Sub Ret() Sheets(1).Activate End Sub Дальневосточный федеральный университет
Школа экономики и менеджмента Кафедра управления персоналом и экономики труда
ОТЧЕТ о прохождении производственной практики
Владивосток
Оглавление
Введение………………………………………………………….………..…..3 1 Теоретические аспекты системы управления персоналом на предприятии 1.1Особенности системы управления персоналом на предприятии……...…...5 1.2Этапы построения системы оценки персонала на предприятии…...............7 1.3Понятие и сущность адаптации, ее основные цели и этапы…………….….9 2 Характеристика и анализ деятельности компании «Подряд» ИП Филичева Н.С. 2.1Характеристика деятельности организации……………………………..12 2.2Анализ действующей системы управления персоналом в ИП Филичева Н.С. компания «Подряд»……………………………………..14 2.3Исследование системы управления адаптацией персонала в компании «Подряд»……………………………………………………………....…...17
Заключение………………………..………………….…………………….....19 Список использованных источников………………………………………..21 Введение Производственная практика является важнейшим фактором обучения, позволяющим определить возможности реализации будущих выпускников в профессии. Она становится своеобразным критерием оценки результатов того, чему и как учили студента в аудиториях, и как конкретно студент сумел освоить тот или иной курс. Производственная практика - это неотъемлемая часть подготовки квалифицированных специалистов всех специальностей, в том числе и «Управление персоналом». Во время прохождения практики происходит закрепление и конкретизация результатов теоретического обучения, приобретение студентами умения и навыков практической работы по избранной специальности и присваиваемой квалификации. Цель прохождения практики - овладение практическими навыками анализа технико-экономических показателей в организации, а также анализом производственно-хозяйственной и финансовой деятельности администрации, формирование профессиональной компетентности, развитие деловых, организаторских и личностных качеств, развитие профессионального мышления и умения применять теоретические знания на практике. Задачи: - применения полученных теоретических знаний на практике, овладение навыками, умениями, необходимыми для профессиональной деятельности; - знакомство с работой отдела управления персоналом; - получение информации о сфере деятельности организации; - овладение профессиональной технологией работы отдела управления персоналом; Объект производственной практики: персонал ИП Филичева Н.С. (компания «Подряд»).
Предмет производственной практики: организационная деятельность отдела по работе с персоналом в компании «Подряд» За время прохождения практики я ознакомился с уставом компании «Подряд», с Положением структурных подразделений, с Должностными инструкциями сотрудников, получил сведения о кадровом составе, о задачах, функциях, правах и обязанностях, ознакомился с внешней и внутренней документацией. Основные методы, которые использовались в этом отчете: анализ, синтез, сравнительный метод, статистический метод обработки данных и обобщение. Структура: отчет состоит из введения, 2-х глав, заключения, списка использованных источников. В первой главе рассмотрены теоретические основы управления адаптацией персонала. Особенности системы управления персоналом на предприятии. Этапы построения системы оценки персонала на предприятии. Понятие и сущность адаптации, ее основные цели и этапы. Во второй главе отчета были проведены характеристика и анализ деятельности ИП Филичева Н.С. Анализ действующей системы управления персоналом и исследование системы управления адаптацией персонала в данной компании.
|
