Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Personalizar formar...
 
Notifications
Clear all

Personalizar formar de chamar CONST

 
2024 - VBA & Macros
Post Recente por pfarias 9 anos atrás
4 Posts
3 Usuários
0 Reactions
851 Visualizações
RSS
pfarias
 pfarias
(@pfarias)
Posts: 265
Reputable Member
Topic starter
 

Oi pesosa,

Tenho três constantes

 Const Arquivo1
 Const Arquivo2
 Const Arquivo3

Como faço para fazer algo desse tipo:

 for x=1 to 3
    Msgbox "Arquivo" & x
 next

Existe algo parecido com isso que funcione?

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 30/10/2015 11:52 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

pfarias

Boa Tarde!

Não sei se é possível fazer com constantes. Só serve se for com constantes? Se servir como variável, aqui segue minha sugestão:

    Dim Arquivo(3) As String
    Dim x As Integer
    
    For x = 1 To 3
        Arquivo(x) = "Teste" & x
    Next
    
    For x = 1 To 3
        MsgBox Arquivo(x)
    Next

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 : 30/10/2015 12:55 pm
 Nelson S
(@nelson-s)
Posts: 96
Trusted Member
 

Outra forma de fazer algo parecido:

Public Sub Testar()
    
    Const cARQUIVOS As String = "1;2;3"
    
    Dim astrArquivos() As String
    Dim intI As Integer
    
    astrArquivos = Split(cARQUIVOS, ";")
    
    For intI = 0 To UBound(astrArquivos())
        MsgBox "Arquivo " & astrArquivos(intI)
    Next intI

End Sub
 
Postado : 30/10/2015 1:42 pm
pfarias
 pfarias
(@pfarias)
Posts: 265
Reputable Member
Topic starter
 

Valeu Nelson! Isso ajuda também.

Estava tão apressado e estressado para acabar com esse trabalho que tinha esquecido na vida que matriz existe. kkkkkkkk

Eu vou ficar o uso da matriz mesmo. Abraços!

Pietro Farias

Se foi resolvido suas dúvidas, lembre se de marcar o tópico como RESOLVIDO.

ANALISTA X

 
Postado : 30/10/2015 2:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico