Двухмерные массивы VBA

[Nataly1992]

И еще, а там обезательно, чтобы массив был только такой размерности?

[Sasha_Smirnov]

А вы разве не видите, что размерности можно ввести с клавиатуры?!

По ходу дела я перепутал: m у меня столбцы, n — строки. (Но считает как надо — по столбцам.)

(Последний ваш вопрос наводит на мысль, что такую программу вы раньше не испытывали!)

А благодарить надо, наверно, саму возможность общения в сети на этом форуме.

[Nataly1992]

о да, впервые...

[Nataly1992]

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

А вы разве не видите, что размерности можно ввести с клавиатуры?!

По ходу дела я перепутал: m у меня столбцы, n — строки. (Но считает как надо — по столбцам.)

(Последний ваш вопрос наводит на мысль, что такую программу вы раньше не испытывали!)

А благодарить надо, наверно, саму возможность общения в сети на этом форуме.

Огромное спасибо!!

[Nataly1992]

так что такое LOOP?)
Это мой последний вопрос

[Sasha_Smirnov]

Луп лупом, это вам рано, а вот что важно — я не так посчитал! Возьмите подсчёт у Serebro (пост #9).

[Sasha_Smirnov]

Вот это нормальная программа.

Sub СтоЛбец_СреднееИзПоложительныхЭлементов()
    M = Val(InputBox("Размерность массива по вертикали (количество строк), m", , 2)): If M < 2 Then Exit Sub
    Do
    N = Val(InputBox("Размерность массива по горизонтали (количество колонок), n", , 3)): If N < 1 Then Exit Sub
    Loop Until N < 255
    
    ReDim a(M, N)
    
    For i = 1 To M
        For j = 1 To N
                Do
                a(i, j) = InputBox("A(" & i & ", " & j & ") = ?") 'ввод j-го элемента i-й строки'
                    If IsNumeric(a(i, j)) Then
                        Cells(i, j) = a(i, j)
                    Else
                        Cells(i, j) = 0: a(i, j) = 0 'ставим принудительно 0, если ошиблись при вводе'
                    End If
                If a(i, j) <> Empty Then Exit Do            'ввели число a(i, j) - идём к следующим'
                Loop
        Next j
    Next i
    
        For j = 1 To N
            S = 0
            Nj = 0
                    For i = 1 To M
                    If a(i, j) > 0 Then S = S + a(i, j): Nj = Nj + 1 'подсчёт положительных эл-тов столбца j'
                    Next i
            If Nj > 0 Then S = S / Nj 'S присваиваем (если есть) среднее по столбцу j из его положит. чисел'
            If S > 0 Then Cells(M + 2, j) = S Else Cells(M + 2, j) = "нет" 'в (M + 2)-й строчке пишем результат'
        Next j
        
    Cells(M + 2, N + 1).Value = "(a mean of positive elements)"
    Cells(M + 2, N + 1).Select
    SendKeys "^+{home}" 'выделение напечатанного (аналог нажатия Ctrl+Shift+Home) - для удобного стирания'
End Sub

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

так что такое LOOP?)
Это мой последний вопрос

цикл)