В первых 10 столбцах рабочего листа находятся......

[S.A.Nex]

Помогите доделать,а то я не могу понять что тут дальше писать.Если что свои варнианты буду присылать.Ивы не оставьте без внимания мою тему.


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

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

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[doober]

Вывод на второй лист допишете сами

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

End Type

Sub лаба7()
    Dim sp() As Spisok, i, j, n As Integer, paralast As Integer, Avg As Double    ' описываем переменные
    Worksheets("Лист2").Range("a2:j100").Clear
    With Worksheets("Лист1")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        ReDim sp(0)    'перераспределяет размер массива
        paralast = -1
        Avg = Application.WorksheetFunction.Average(.Range("E2:E" & n))
        For i = 2 To n    'через цикл состовляем список
            If Cells(i, 4).Text Like "962*" And .Cells(i, 5) > Avg Then
                paralast = paralast + 1
                ReDim Preserve sp(paralast)
                sp(paralast).lastName = .Cells(i, 1)
                sp(paralast).firstName = .Cells(i, 2)
                sp(paralast).papaName = .Cells(i, 3)
                sp(paralast).nomer = .Cells(i, 4)
                sp(paralast).dohod = .Cells(i, 5)
            End If
        Next i
    End With
End Sub

[Hugo121]

А чего это

n As Integer, paralast As Integer

Точно известно, что фирма большой никогда не будет?

[doober]

Worksheets("Лист2").Range("a2:j100" ).Clear

.
У лабах больше 100-200 записей не бывает,обычно это в задании написано.

[S.A.Nex]

Type Spisok 'создаем список
    lastName As String 'строковый тип данных,размер строкидо 255
    firstName As String '
    papaName As String '
    nomer As String '
    dohod As Double 'действительные числа

End Type

Sub лаба7()
    Dim sp() As Spisok, i, j, n As Integer, Avg As Double     ' описываем переменные
   Sheets("Лист2").Select
        Range("a2:j10").Clear
    Sheets("Лист1").Select
    While (Cells(n + 1, 4) <> "")
     n = Cells(Rows.Count, 1).End(xlUp).Row 'формула
        ReDim sp(0)    'перераспределяет размер массива
           
    Wend

    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
    
       
       
        Avg = Application.WorksheetFunction.Average(Range("E2:E" & n))
        For i = 2 To n    'через цикл состовляем список
            If Cells(i, 4).Text Like "962*" And Cells(i, 5) > Avg Then 'задаем условие
                
        Sheets("Лист2").Select
                
                sp(paralast).lastName = Cells(i, 1)
                sp(paralast).firstName = Cells(i, 2)
                sp(paralast).papaName = Cells(i, 3)
                sp(paralast).nomer = Cells(i, 4)
                sp(paralast).dohod = Cells(i, 5)
            End If
        Next i
End Sub

Он у меня тоже выдает ошибку.

[S.A.Nex]

Сообщение от Hugo121

А чего это

n As Integer, paralast As Integer

Точно известно, что фирма большой никогда не будет?

У меня эта строчка тоже вызвала вопрос.

[Hugo121]

Ну по последним сведениям от MSDN
http://msdn.microsoft.com/en-us/libr...ffice.10).aspx
смысла в integer больше нет, кроме как иногда ошибки создавать студентам

[doober]

Сообщение от Hugo121

смысла в integer больше нет, кроме как иногда ошибки создавать студентам

Это точно.Учить матчасть надо,тогда ошибок не будет
Мой код работает нормально Лаба7

У меня эта строчка тоже вызвала вопрос.

И вопрос не возникает