Notifications
Clear all

Array armazenando equações

3 Posts
2 Usuários
0 Reactions
1,101 Visualizações
(@oficina1)
Posts: 0
New Member
Topic starter
 

Olá, o codigo a seguir faz operações matematicas e armazena os resultados em variáveis.

Sub TESTE()
   Dim m , S1, S2, S3, S4, S5 As Integer
      For m = 1 To 5
           S1 = Cells(m, 5) + 1
           S2 = Cells(m, 5) + 100
           S3 = Cells(m, 5) + 2
           S4 = Cells(m, 5) + 250
           S5 = Cells(m, 5) + 2000
      Next m
End Sub

Gostaria que, ao inves das operaçoes serem armazenadas em variaveis separadas, fossem todas colocadas numa única varíavel. Porque o proximo passo no código será fazer operações envolvendo outra váriavel, entao ficaria mais fácil codificar.

Algo assim: S() {Cells(m, 5) + 1, Cells(m, 5) + 100, Cells(m, 5) + 2, Cells(m, 5) + 250, Cells(m, 5) + 2000}.

Não sei se arrays suportam esse tipo de estrutura e como seria a sintaxe, pesquisando não achei nada parecido, por isso peço uma ajuda do fórum.

 
Postado : 02/05/2018 11:42 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Oficina1,

Boa tarde!

Veja se é assim.

 
Postado : 02/05/2018 11:55 am
(@oficina1)
Posts: 0
New Member
Topic starter
 

Vou adaptar e retorno para considerar resolvido

 
Postado : 02/05/2018 12:41 pm