How do I sum all the numbers in each row and column? [duplicate]

Question

How do I sum all the numbers in each row and column? [duplicate]

Navigation

#1 by (0 votes)

0

I'm trying to sum all the numbers in each row and column. I tried to do as below, but it is not working.

ranger .ClearContents

For n = 1 To 10
For Z = 1 To 10

  Cells(Z, n) = Int(100 * Rnd())
  k = Cells(n, Z)

 If Int(k / 2) - k / 2 = 0 Then
        pares = pares + 1
    Else
        Impares = Impares + 1
    End If

    If k = 0 Then Zeros = Zeros + 1

    If k > 10 Then MaioresQuedez = MaioresQuedez + 1

Cells(12, 2) = pares & " números Pares"

Cells(14, 2) = Impares & " números Ímpares"

Cells(16, 2) = Zeros & " números Zero"

Cells(18, 2) = MaioresQuedez & " números maiores do que 10"

next z
next n

Can anyone help me? Thank you.

vba

asked by anonymous 20.07.2016 / 16:42

1 answer

How to do the tour In the next few times always be closed Remove dashed border when clicking on a select combo

score 0 · Answer 1

Look like this:

Dim totalpares
Dim totalimpares
Dim maioresquedez

totalpares = 0
totalimpares = 0
maioresquedez = 0

For n = 1 To 10
For Z = 1 To 10

  Cells(Z, n) = Int(100 * Rnd())
  k = Cells(Z, n)

 If Int(k / 2) - k / 2 = 0 Then
        pares = pares + 1
        totalpares = totalpares + k
    Else
        Impares = Impares + 1
        totalimpares = totalimpares + k
    End If

    If k = 0 Then Zeros = Zeros + 1

    If k > 10 Then
       MaioresQuedez = MaioresQuedez + 1
       maioresquedez = maioresquedez + K
    end if 


Cells(12, 2) = pares & " números Pares, totalizando " & totalpares

Cells(14, 2) = Impares & " números Ímpares, totalizando " & totalimpares

Cells(16, 2) = Zeros & " números Zero"

Cells(18, 2) = MaioresQuedez & " números maiores do que 10. Totalizando " &  maioresquedez

Next Z
Next n

End Sub