tem como usar referencia para atribuir uma variavel, array, coleção ou dicionario
em uma coleção ou dicionario em vez de valor ?
algo como isso:
var1="A"
coleção.add var1
msgbox coleção.(1) "resultado=A"
var1="b"
msgbox coleção.(1) "resultado=b"
ou
coleção.(1)="c"
msgbox var1 "resultado=c"
[/list:u:2rtmzpa0]
mas sem ter que coleção.add var1 no meio do caminho
estou pesquisando e fazendo testes,
mas como meu conhecimento é limitado nas propriedades de cada um ainda estou em duvida se é possivel ou não
Dim c As New Collection
Dim a(1 To 5) As Variant
Sub fhgdg()
c.Add "a", "a"
c.Add "b", "b"
a(1) = 5
a(2) = Array(2, 3, 4)
Set a(3) = c
a(4) = "abcd"
a(5) = Range("A1:A4").Value
End Sub
Sub tesg()
'MsgBox a(5)(1, 1)
'MsgBox a(2)(1)
'MsgBox a(3)(2)
'c.Add a
MsgBox c(3)(4)
a(4) = "mudou"
MsgBox c(3)(4)
MsgBox c(3)(5)(1, 1)
End Sub
claro que poderia fazer uma macro para refazer as referencias e valores
mas isso fugiria do meu proposito
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 19/04/2015 2:34 pm