Soma de 5 Células na Horizontal a Partir da Célula Seleccionada em VBAExcel

Posted by admin on 18 de Dezembro de 2011 | Filed under Blog, Exercícios, Línguagens de Programação, Programação

Continuando com a resolução dos meus primeiros exercícios em Vba aqui fica mais um:

Elabore um algoritmo que permita Somar  5 Células na Horizontal a Partir da Célula Seleccionada.

Aqui fica o código que resolve o exercício:

Sub RowSum5()
    Dim s As Double
    Dim c(1 To 5) As Double
    Dim i As Integer

    ' guardar valores das células no vectror c()
    For i = 1 To 5
        c(i) = ActiveCell.Offset(0, i - 1).Value
    Next i

    ' somar valores
    s = 0
    For i = 1 To 5
        s = s + c(i)
    Next i

    ' Apresentar resultado
    MsgBox s
End Sub

Não sei se a forma como implementei a resolução do exercício é a mais correcta, e por isso fico à espera de comentários, ou mesmo de correcções e dicas de melhoramento do código que apresento.

Share

One Response to “Soma de 5 Células na Horizontal a Partir da Célula Seleccionada em VBAExcel”

  1. rogerio Says:
    Dezembro 20th, 2011 at 5:01 pm

    olá , estou a iniciar programaçao vba na faculdade e agradeçote desde ja a publicaçao de exercicios no teu site , sao extramamente uteis para mim,
    eu transformei o teiu programa nisto

    Dim s As Double

    Dim i As Integer

    For i = 1 To 5
    s = ActiveCell.Offset(0, i – 1).Value + s
    Next i
    MsgBox s

Leave a Reply