vba - ordenar - Verificación de orden de clasificación utilizando VBScript

vba excel order range

Question

Supongamos que tengo una matriz arr1 que contiene los valores de fecha como a continuación:

Arr1 (50) = ("9/3/2012 4:57:02 AM", "22/3/2012 5:57:02 AM", "5/09/2012 8:57:02 AM", "9 / 3/2011 4:57:02 AM ")

Editar

 Dim CellCount
 Dim Arr(10)

 CellCount=0
 Do Untill arr(CellCount)="" And Ubound(Arr)>9

  If CStr(arr(CellCount) < arr(CellCount+1)) Then

    MsgBox(arr(CellCount)&"is good")

   Else

     MsgBox(arr(CellCount +1)&"is bad")
     Exit Do

   End if

CellCount=CellCount+1
Loop

Ahora, ¿hay alguna manera directa, sin utilizar ninguna técnica de Looping, para averiguar si el Arr1 () tiene los valores de fecha ascendentes o no?

Gracias,

Answer 1

Él está respondiendo tu pregunta. Usted preguntó, ¿hay alguna manera de encontrarlo si está ordenado sin un bucle? Él dijo no. Tus ojos, mis ojos pueden ver si está ordenado o no. Pero, ¿cómo espera que Excel / computadora lo haga sin pasar por elementos de colecciones?

Cuando los datos están en una matriz, necesita recorrer sus elementos. Espero que esté claro.

Así que lo mejor que puedo decir,

• dividirlo por el delimitador de comas en una variante si es necesario. Pero no es necesario ya que Array () puede poner elementos en una variante 1D
• volcarlo dentro de un Range usando Transpose

• utilice el método / función de clasificación de hojas para ordenar el rango como un todo

  ---> para que sepa que ahora está ordenado.

• luego volver a trasponer en una matriz variante

Algunos fragmentos de código para que vayas en esta dirección:

Option Explicit

    Sub omgArraySort()
       Dim inputArray As Variant
       Dim outputArray As Variant
       Dim upperB as Long

       inputArray = Array("9/3/2012 4:57:02 AM","22/3/2012 5:57:02 AM", _ 
                          "9/5/2012 8:57:02 AM","9/3/2011 4:57:02 AM")
       ''-- sorted array
       outputArray = sortRange(inputArray)

          upperB = UBound(iArray, 1) ''-- for 1D array you may also use UBound(iArray)
          If (Err.Number <> 0) Then ''-- if there''s an error, it''s erro code is > 0
            MsgBox "Dates sorted, not empty"
          End If
    End Sub

    ''-- dump into sheet and sort in the sheet and dump back into the array
    Function sortRange(ByVal iArray As Variant) As Variant
       Dim rngSort as Range
       Dim i As Long

       Set rngSort = WorkSheets(1).Range("B2")
       i = Ubound(iArray,1)

       With rngSort.Resize(i)
          .Value = WorksheetFunction.Transpose(iArray)
          .Sort rngSort, xlDescending, Header:=xlNo
          sortRange = .Value              
       End With
    End Function

En términos de tráfico de hoja a código, puede ralentizar su rendimiento cuando maneja una gran cantidad de datos.

Y por favor, sepan que cuando alguien en SO que tiene respuestas de credibilidad (por ejemplo, la respuesta de Ekkehard) debe prestar atención. No lo dicen sin una razón adecuada.

Answer 2

No, porque tiene que verificar los elementos hasta / hasta el primer contador de ejemplo (que podría ser el último).