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
Pergunta
Zeroton
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.