Assing value in Cells to array, do the bubble sort and assign them back : Cell Value « Excel « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
 1 Access 2 Application 3 Data Type 4 Data Type Functions 5 Date Functions 6 Excel 7 File Path 8 Forms 9 Language Basics 10 Math Functions 11 Outlook 12 PowerPoint 13 String Functions 14 Windows API 15 Word 16 XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
 VBA / Excel / Access / Word » Excel » Cell Value
Assing value in Cells to array, do the bubble sort and assign them back
 ```  Public Sub BubbleSort2()     Dim tempVar As Integer     Dim anotherIteration As Boolean     Dim I As Integer     Dim myArray(10) As Integer     For I = 1 To 10         myArray(I - 1) = Cells(I, "A").Value     Next I     Do         anotherIteration = False         For I = 0 To 8             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     For I = 1 To 10         Cells(I, "B").Value = myArray(I - 1)     Next I End Sub  ```
Related examples in the same category
 1 Define a string type variable and set to Cell(1,D) 2 StrConv("ALL LOWERCASE ", vbLowerCase) 3 Format("ALL LOWERCASE ", "<") 4 Checks values in a range 10 rows by 5 columns 5 Checks values in a range 10 rows by 5 columns with nested for loop 6 Place the value (result) of a formula into a cell rather than the formula. 7 Validation with a Spreadsheet Cell 8 transposes the values of a group of cells in a worksheet 9 Determining a cell's data type 10 Calculate cell