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

[Nataly1992]

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

For j = 1 To m
  s=0.0
  number=0
  For i = 1 To n
    if x(i,j)>0.0 then
      s=s+x(i,j)
      number=number+1
    end if
  Next i
  sa(j)=s/number        rem среднее арифметическое элементов >0 по столбцам
Next j

Куда мен это вписать??
Я знаю, вы щас подумаете, что я совсем тупая, но я не понимаю куда....

[Serebro]

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

Куда мен это вписать??
Я знаю, вы щас подумаете, что я совсем тупая, но я не понимаю куда....

Я не знаю как работать в VBA, пишу в основном на FORTRAN-е.

[Nataly1992]

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

Я не знаю как работать в VBA, пишу в основном на FORTRAN-е.

всеравно спасибо за попытку

[Sasha_Smirnov]

Ну вот вам Serebro седцевину задачи уже и решил! (А внешние действия те же.)

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

2) Ввести из клавиатуры.

Вообще-то в Excel лучше массив вводить прямо в таблицу, а не в инпутбокс

Можно методичку посмотреть?

[Nataly1992]

Сейчас попробую))

[Nataly1992]

чет я не понимаю как оно считает.....

[Nataly1992]

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

Ну вот вам Serebro седцевину задачи уже и решил! (А внешние действия те же.)

Вообще-то в Excel лучше массив вводить прямо в таблицу, а не в инпутбокс

Можно методичку посмотреть?

Если вы понимаете украинский язык

[Nataly1992]

когда я ввожу 1 2 3
4 5 6
1 2 3
то у меня выбивает поочему-то 1,436338164
Почему?????

[Sasha_Smirnov]

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

Если вы понимаете украинский язык.

Про это — понял бы! Спасибо, что пишете на русском (тут это не всем дано!).

Sub Стобец_СреднееИзПоложительныхЭлементов()

n = Val(InputBox("Размерность массива по вертикали, n", , 2)): If n < 2 Then Exit Sub
m = Val(InputBox("Размерность массива по горизонтали, m", , 4)): If m < 2 Then Exit Sub

ReDim a(n, m)

    For i = 1 To n
        For j = 1 To m
            Do
            a(i, j) = InputBox("A(" & i & ", " & j & ") = ?") 'ввод j-го элемента i-й строки'
                If IsNumeric(a(i, j)) Then
                    Cells(i, j).Value = a(i, j)
                Else
                    Cells(i, j).Value = 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 m
    S = 0
        For i = 1 To n
        If a(i, j) > 0 Then S = S + a(i, j)
        Next i
        If S > 0 Then Cells(n + 2, j).Value = S / n 'в (n + 2)-й строчке пишем среднее по столбцу j'
    Next j
    
End Sub

В приложенном файле Excel код выполняется через Alt-F8 → Выполнить.

Или двойным щелчком (в окне, открытом по Alt-F8) по имени программы.

Да, тут у меня ещё — при открытии Массивы.xls — выскакивает предупреждение: запуск макросов отключён! Тут два варианта действий:
1) выбрать ответ «Включить это содержимое»;
2) нажать у себя (в украинском эксселе) Alt-F11 — там создать модуль и в него вставить код.

В обоих случаях программу можно будет запускать. Только результаты — лучше каждый раз стирать.

[Nataly1992]

Скажите пожалуйста, а что такое LOOP?

А так, я даже не знаю, как вас и благодарить.....