Macros Excel While Loop

Function fteste6()

Dim soma As Integer

soma = 0

For i = 10 To 0 Step -2

soma = soma + i

Next i

fteste6 = soma

End Function

Function fteste7()

fteste7 = Application.Cells(1, 1)

End Function

Function fteste8()

fteste8 = Application.Cells(3, "e")

End Function

Function fteste10()

Dim soma, linha, coluna As Integer

soma = 0

linha = ActiveCell.Row

coluna = ActiveCell.Column

For i = 1 To Cells(linha - 1, coluna) Step 1

soma = soma + Cells(i, coluna)

Next i

fteste10 = soma

End Function

Function fQuantDivisivel(q As Integer)

soma = 0

For i = 1 To q Step 1

If q Mod i = 0 Then

soma = soma + 1

End If

Next i

fQuantDivisivel = soma

End Function

Function fSomaImpar()

'precisa-se saber a localização da célula atual

linha = ActiveCell.Row

coluna = ActiveCell.Column

soma = 0

pos = 1

Do While pos < coluna

If Cells(linha - 1, pos) Mod 2 <> 0 Then

soma = soma + Cells(linha - 1, pos)

End If

pos = pos + 1

Loop

fSomaImpar = soma

End Function