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

@Алмаз1 · Регистрация: 23.12.2018

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

.И очень прошу помощи)

Вот задание
В первых 10 столбцах рабочего листа находятся сведения о сотрудниках фирмы. Необходимо написать программу, делающую выборку сотрудников, возраст которых находится в диапазоне от 20 до 35 лет, а зарплата превышает среднеарифметическую зарплату сотрудников фирмы. Имена полей и их содержимое придумать самостоятельно. Полученную выборку отсортировать по номерам отделов фирмы, а внутри отделов по фамилиям и вывести на второй рабочий лист.
Заранее спасибо )

@Казанский · 22.04.2019, 12:54

Сообщение от Алмаз1

Имена полей и их содержимое придумать самостоятельно

В этом тоже помощь нужна?

Сообщение от Алмаз1

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

Автофильтр по столбцу Зарплата - числовые фильтры - выше среднего. Запишите это действие макрорекордером. Копирование, сортировку - тоже.

@Алмаз1 · 22.04.2019, 13:01 **[ТС]**

У меня есть программа с полями , но условие я не могу написать со среднеарифметическим , даже не представлю как оно должно выглядеть (

Visual Basic

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

@Алмаз1 0 / 0 / 0 Регистрация: 23.12.2018 Сообщений: 14
		1
	Найти зарплату которая превышает среднеарифметическую зарплату сотрудников фирмы 22.04.2019, 12:34. Показов 930. Ответов 2 Метки vba (Все метки) Здравствуйте, очень нужна помощь в написании программы, я примерно знаю как найти среднее арифметическое ,но как это воплотить в программе совсем не знаю.И очень прошу помощи) Вот задание В первых 10 столбцах рабочего листа находятся сведения о сотрудниках фирмы. Необходимо написать программу, делающую выборку сотрудников, возраст которых находится в диапазоне от 20 до 35 лет, а зарплата превышает среднеарифметическую зарплату сотрудников фирмы. Имена полей и их содержимое придумать самостоятельно. Полученную выборку отсортировать по номерам отделов фирмы, а внутри отделов по фамилиям и вывести на второй рабочий лист. Заранее спасибо ) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

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

Опции темы