Ir para conteúdo
Fórum Script Brasil
  • 0

Array Dinamico


Zeroton

Pergunta

to tentando adaptar esse codigo pra transformar uma matriz 2xN para 1xN e depois armazenar num array e devolver já em ordem decrescente, mas está dando erro no arraysize

vocês podem me ajudar?

Public Sub org()

Dim tempVar As Integer

Dim anotherIteration As Boolean

Dim I As Integer

Dim arraySize As Integer

Dim myArray(), myArray2(), quente(), frio(), frio2() As Integer

'‘———————————

'‘Get the array size.

'‘———————————

I = 3

If Cells(I, "E").Value = "Quente" Then

Do

arraySize = J

arraySize = arraySize + 1

I = I + 1

J = J + 1

Loop Until Cells(I, "E").Value = ""

End If

ReDim myArray(arraySize - 1)

'‘————————————————————-

'‘Get the values. Convert text to numbers.

'‘————————————————————-

For I = 0 To arraySize

If Cells(I, "E").Value = "Quente" Then

For J = 0 To arraySize

myArray(I) = Val(Cells(3 + J, "B").Value)

myArray(I + 1) = Val(Cells(3 + J, "c").Value)

I = I + 2

J = J + 1

Next J

End If

Next I

Do

anotherIteration = False

For I = 0 To arraySize - 2

If myArray(I) > myArray(I + 1) Then

tempVar = myArray(I)

myArray(I) = myArray(I + 1)

myArray(I + 1) = tempVar

anotherIteration = True

End If

Next I

Loop While anotherIteration = True

'‘————————————

'‘Write data to column J.

'‘————————————

For I = 3 To arraySize

Cells(I, "j").Value = myArray(I - 1)

Next I

End Sub

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...