Kod Visual Basic z visual studio, na kod VBA do excela

Question

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

 

Answer 1

można to zrobić na wiele sposobów. poniżej masz to zrobione w sposób najbardziej zbliżony do Twojego. Oblicza zarówno średnie kolumn jak i wierszy.
Przy okazji : na podstawie mego kodu zobacz jak możesz uprościć swój.

  Dim m, n
    m = Selection.Rows.count
    n = Selection.Columns.count
    
    For i = 1 To m
       sr = 0
       For j = 1 To n
         sr = sr + Selection.Cells(i, j)
       Next j
       Selection.Cells(i, n + 1) = sr / n
    Next i
    
    
    For i = 1 To n
       sr = 0
       For j = 1 To m
         sr = sr + Selection.Cells(j, i)
       Next j
       Selection.Cells(m + 1, i) = sr / m
    Next i

 

Comments

Dziękuję bardzo za pomoc oraz cenne uwagi co do uproszczenia kodu!