Версия для печати темы

Автор: marina2010 10.6.2010, 17:26

Помогите)Вывести фамилии сотрудников,которые хотя бы 1 раз получали минимальную зарплату по предприятию за год.Вот код:но там че-то не так получается.а исправить я не могу(Помогите,пожалуйста)
Private Sub CommandButton3_Click()
Dim i, j As Integer
Dim min(12) As Double
Dim b(12) As Integer
Rem Нахождение минимального элемента в таблице
For j = 1 To 12
min(j) = Зарплата(1, j)
For i = 2 To 10
If Зарплата(i, j) < min(j) Then min(j) = Зарплата(i, j)
Next i
Next j
Rem b(j)-номер первой свободной строки в каждом столбце
For j = 1 To 12
b(j) = 12
Next j
Rem Сравниваем зарплаты с минимальной в каждом месяце
For i = 1 To 10
For j = 1 To 12
If Зарплата(i, j) = min(j) Then b(j) = b(j) + 1: Cells(b(j), j + 1) = Фамилия(i)
Next j
Next i
End Sub

а вот и программа вся- http://depositfiles.com/files/8ypik9g7u
посмотрите

Автор: Vahappaday 10.6.2010, 19:54

что такое Зарплата? Где этот массив (или чем это ещё является) определен?

Прошу прощения... в файлике всё есть, гляжу...

Сейчас оно выводит фамилию сотрудника, получившего минимум по месяцу.
Когда сдавать?

Автор: marina2010 10.6.2010, 20:12

Цитата(Vahappaday @ 10.6.2010, 23:54)

Автор: Vahappaday 10.6.2010, 20:28

Когда сдавать?
Завтра разберусь, спать хочется...

Насчёт задания: фамилия должна выводиться, если у неё была хотя бы в одном месяце минимальная зарплата?
Или должна выводиться фамилия получившего годовой минимум?

Автор: marina2010 10.6.2010, 20:33

Цитата(Vahappaday @ 11.6.2010, 0:28)

Автор: Vahappaday 11.6.2010, 7:26

Если ещё нужно будет - отпишитесь

Автор: marina2010 12.6.2010, 5:54

Цитата(Vahappaday @ 11.6.2010, 11:26)

Автор: tig81 12.6.2010, 6:22

Автор: Vahappaday 12.6.2010, 20:17

Молодчина))