Пара задач по VBA

[Hugo121]

Замечу по коду из файла xls - массив А можно получить намного проще:

Sub tt()
Dim a
a = [a1].CurrentRegion.Offset(1, 1).Resize([a1].CurrentRegion.Rows.Count - 1, [a1].CurrentRegion.Columns.Count - 1).Value
End Sub

И соотвественно переменные M и N можно упразднить:

MsgBox UBound(a, 1)
MsgBox UBound(a, 2)

И я не понял - где номера студентов? Который №7?

[SPK_2]

Спасибо

Номера студентов - имеется в виду номер строки с нужным студентом

[Hugo121]

Т.е. нужны номера строк массива, в которых только 4 и 5?

[SPK_2]

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

Т.е. нужны номера строк массива, в которых только 4 и 5?

Да, именно так

[Hugo121]

Облагородьте, движок готов:

Sub tt()
Dim a, i&, ii&, flag As Boolean, txt$
a = [a1].CurrentRegion.Offset(1, 1).Resize([a1].CurrentRegion.Rows.Count - 1, [a1].CurrentRegion.Columns.Count - 1).Value
flag = True

For i = 1 To UBound(a, 1)
For ii = 1 To UBound(a, 2)
Select Case a(i, ii)
Case 4, 5
Case Else: flag = False
End Select
Next ii
If flag Then txt = txt & " " & i
flag = True
Next i

MsgBox txt
End Sub

[SPK_2]

Благодарю
Извините,а вы не могли бы вкратце расписать об этом ?
а то как-то непонятно, сорри
Так же был бы благодарен за блок-схему,если вам не сложно...

[Hugo121]

Взяли данные в массив, взвели флаг, перебираем массив вдоль и поперёк.
Если встретили не 4 или 5 - сбросили флаг.
Если флаг не сброшен - добавили в строку номер.
Взвели флаг снова, можно сперва проверку добавить, но лишнее.
Всё.
Блок-схема - не знаю, что тут можно нарисовать...

[EducatedFool]

Как-то делал программу для поиска строк с хорошими оценками
Может, подойдёт?