Witam, napisałem sobie taki kodzik (kod poniżej) w visual studio w VB. Algorytm ma za zadanie wczytać macierz o m wierszach i n kolumnach, i zwrocic tablice, która zawierać będzie średnie z kolumn na odpowiednich indeksach(np. indeks 0 - średnia z zerowej kolumny macierzy wejściowej)
Chciałbym zastosować ten algorytm w excelu, tak aby mógł wczytać zaznaczone komórki, i zwrócić średnie kolumn takiej zaznaczonej macierzy. Podpowie mi ktoś jak zczytać w VBA wartości z komórek z zeszytu, a następnie zwrócić?
Załączam kod w VB
Module Module1
Sub Main()
Dim m, n As Integer
m = 3
n = 3
Dim licznik As Integer = 0
Dim Tb2 As Double(,) = New Double(m - 1, n - 1) {}
Tb2(0, 0) = 1
Tb2(0, 1) = 3
Tb2(0, 2) = 5
Tb2(1, 0) = 2
Tb2(1, 1) = 4
Tb2(1, 2) = 6
Tb2(2, 0) = 3
Tb2(2, 1) = 3
Tb2(2, 2) = 4
Dim TSrednia As Double() = New Double(n - 1) {}
For i As Integer = 0 To m - 1
licznik = 0
For j As Integer = 0 To n - 1
TSrednia(i) = TSrednia(i) + Tb2(i, j)
licznik += 1
If j = n - 1 Then
TSrednia(i) = TSrednia(i) / licznik
End If
Next
Next
For i As Integer = 0 To TSrednia.Length - 1
Console.WriteLine(TSrednia(i))
Next
Console.ReadKey()
End Sub
End Module