Выручайте!!!

[S.A.Nex]

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

[Человек_Борща]

Рад за вас.
Наработки есть?

Мой телепатор 95lvl не может узнать на каком языке вам нужно это.

[Stilet]

Мой телепатор 95lvl не может узнать на каком языке вам нужно это.

У меня прокачанный до 96-го )
Это Экзель. Причем выборка через его SQL менеджер.

[S.A.Nex]

Сообщение от Человек_Борща

Рад за вас.
Наработки есть?

Мой телепатор 95lvl не может узнать на каком языке вам нужно это.

Есть вот...

Type Spisok
lastName As String
firstName As String
papaName As String
nomer As Integer
dohod As Double

End Type

Sub лаба7()
Dim sp() As Spisok, i, j, n As Integer ' описываем переменные
Sheets("Лист2").Select 'работаем на листе 2
Range("a2:j100").Clear 'создает список
Sheets("Лист1").Select 'работаем на листе 1
n = n + 1 'в цикле с передусловием считаем кол-во элементов скписка
Wend 'циклическое повторение
n = n - 1
ReDim sp(n) 'перераспределяет размер массива

For i = 1 To n 'через цикл состовляем список
sp(i).lastName = Cells(i + 1, 1)
sp(i).firstName = Cells(i + 1, 2)
sp(i).papaName = Cells(i + 1, 3)
sp(i).nomer = Cells(i + 1, 4)
sp(i).dohod = Cells(i + 1, 5)
Next i

[S.A.Nex]

Сообщение от Человек_Борща

Рад за вас.
Наработки есть?

Мой телепатор 95lvl не может узнать на каком языке вам нужно это.

Это VBA...

[Serge_Bliznykov]

тема закрыта в связи с созданием дублирующей темы в разделе Excel

Модератор