Notifications
Clear all

Array armazenando equações

3 Posts
2 Usuários
0 Reactions
1,108 Visualizações
(@oficina1)
Posts: 8
Active 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Oficina1,

Boa tarde!

Veja se é assim.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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

Vou adaptar e retorno para considerar resolvido

 
Postado : 02/05/2018 12:41 pm