Array: o ABC da programacao

[catarina]

Ola pessoal

Gostaria de ler toda uma array e ir testando com os seus valores com o de uma varialvel, mas meus conhecimentos são bem ralos em programacao e não estou conseguindo.

Ao testar a variavel "juntar" com a array "times"

times = Array("cxl", "ixt", "ixt", "txi")
teste1 = "c"
teste2 = "l"
juntar = teste1 & "x" & teste2

For p = 0 To 4
    If juntar = times(p) Then
    Cells(25, 12).Value = "funcionou"
    Else
    Cells(25, 12).Value = "não funcionou"
    End If
Next p

Obrigado a todos.

[MPR]

Olá Catarina,

Inicialmente, esse seu código é de VBA para Excel e não Visual Basic.

Vamos à resposta:

A matriz que você declarou só tem 4 elementos, então a primeira correção está no loop que tem que ir de 0 até 3 (4 elementos) e não de 0 até 4 (5 elementos).

O seu código está funcionando, porém quando você acha a resposta deve sair do loop (exit for). Caso contrário o loop continuará e testará os outros valores, mudando a resposta.

Veja como mudou pouco:

times = Array("cxl", "ixt", "ixt", "txi")
teste1 = "c"
teste2 = "l"
juntar = teste1 & "x" & teste2

For p = 0 To 3
   If juntar = times(p) Then
      Cells(25, 12).Value = "funcionou"
      Exit for
   Else
      Cells(25, 12).Value = "não funcionou"
      Exit for
   End If
Next p

Boa sorte,

Carlos César Tanaka

Curso de VBA

MPR Informática

[Jonathan Queiroz]

Movendo: Visual Basic --> VBA