0 / 0 / 0
Регистрация: 23.12.2018
Сообщений: 14
1

Найти зарплату которая превышает среднеарифметическую зарплату сотрудников фирмы

22.04.2019, 12:34. Показов 930. Ответов 2
Метки vba (Все метки)

Здравствуйте, очень нужна помощь в написании программы, я примерно знаю как найти среднее арифметическое ,но как это воплотить в программе совсем не знаю.И очень прошу помощи)

Вот задание
В первых 10 столбцах рабочего листа находятся сведения о сотрудниках фирмы. Необходимо написать программу, делающую выборку сотрудников, возраст которых находится в диапазоне от 20 до 35 лет, а зарплата превышает среднеарифметическую зарплату сотрудников фирмы. Имена полей и их содержимое придумать самостоятельно. Полученную выборку отсортировать по номерам отделов фирмы, а внутри отделов по фамилиям и вывести на второй рабочий лист.
Заранее спасибо )
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.04.2019, 12:34
Ответы с готовыми решениями:

Определить среднюю зарплату сотрудников фирмы
Инфа о фамилии и зарплате десяти сотрудников, каждая строка содержит фамилию и зарплату через...

В файле query1 найти среди Sales, самую большую зарплату, а среди Research самую маленькую зарплату
В файле query1 найти среди Отдела Sales, самую большую зарплату, а среди Отдела Research самую...

Напечатать список сотрудников и их зарплату
Помогите решить задачу: ;) Составить список сотрудников из 15 человек, указав фамилию, инициалы,...

Определить среднюю зарплату фирмы и сотрудника за месяц
В двумерном массиве хранится информация о зарплате 30 работников фирмы за 12 месяцев (за январь –...

2
15131 / 6405 / 1730
Регистрация: 24.09.2011
Сообщений: 9,999
22.04.2019, 12:54 2
Цитата Сообщение от Алмаз1 Посмотреть сообщение
Имена полей и их содержимое придумать самостоятельно
В этом тоже помощь нужна?
Цитата Сообщение от Алмаз1 Посмотреть сообщение
зарплата превышает среднеарифметическую зарплату сотрудников фирмы
Автофильтр по столбцу Зарплата - числовые фильтры - выше среднего. Запишите это действие макрорекордером. Копирование, сортировку - тоже.
0
0 / 0 / 0
Регистрация: 23.12.2018
Сообщений: 14
22.04.2019, 13:01  [ТС] 3
У меня есть программа с полями , но условие я не могу написать со среднеарифметическим , даже не представлю как оно должно выглядеть (


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub lab21()
Sheets("Лист1").Select
Sheets("Лист2").Range("A1:J11").Clear
Sheets("Лист2").Range("A:J").HorizontalAlignment = xlCenter
Sheets("Лист2").Cells(1, 1) = "фамилия"
Sheets("Лист2").Cells(1, 2) = "имя"
Sheets("Лист2").Cells(1, 3) = "отчество"
Sheets("Лист2").Cells(1, 4) = "возраст"
Sheets("Лист2").Cells(1, 5) = "статус"
Sheets("Лист2").Cells(1, 6) = "количество детей"
Sheets("Лист2").Cells(1, 7) = "стаж"
Sheets("Лист2").Cells(1, 8) = "телефон"
Sheets("Лист2").Cells(1, 9) = "адрес"
Sheets("Лист2").Cells(1, 10) = "доход"
 
 
Dim p As Integer, j As Integer, hh As Integer
Dim r As String, work As String, tel As String
r = InputBox("Введите первые буквы фамилии")
p = 2
hh = Len(r)
For j = 2 To 7
 
  work = Sheets("Лист1").Cells(j, 1)
  tel = Sheets("Лист1").Cells(j, 8)
 If  'здесь мне нужно вставить условие, чтобы высчитывала среднеарифметическую зарплату сотрудников фирмы
 
  Sheets("Лист2").Cells(p, 1) = Sheets("Лист1").Cells(j, 1)
  Sheets("Лист2").Cells(p, 2) = Sheets("Лист1").Cells(j, 2)
  Sheets("Лист2").Cells(p, 3) = Sheets("Лист1").Cells(j, 3)
  Sheets("Лист2").Cells(p, 4) = Sheets("Лист1").Cells(j, 4)
  Sheets("Лист2").Cells(p, 5) = Sheets("Лист1").Cells(j, 5)
  Sheets("Лист2").Cells(p, 6) = Sheets("Лист1").Cells(j, 6)
  Sheets("Лист2").Cells(p, 7) = Sheets("Лист1").Cells(j, 7)
  Sheets("Лист2").Cells(p, 8) = Sheets("Лист1").Cells(j, 8)
  Sheets("Лист2").Cells(p, 9) = Sheets("Лист1").Cells(j, 9)
  Sheets("Лист2").Cells(p, 10) = Sheets("Лист1").Cells(j, 10)
  p = p + 1
  End If
  
 Next j
 MsgBox "Среднее арифметическое=" & j
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2019, 13:01
Помогаю со студенческими работами здесь

Массивы. Вычислить недельную зарплату работников фирмы
Привет! Помогите решить задачку: (Исходные данные). О работниках фирмы (не менее 5 человек,...

Определите среднюю зарплату сотрудника фирмы за год,
если известна его зарплата за каждый месяц

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

Подготовить список сотрудников организации, получающих наибольшую зарплату
Подготовить список сотрудников организации, получающих наибольшую зарплату.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru