domingo, 24 de octubre de 2010

Colorear código para ponerlo en la web

Esta dirección es de gran utilidad y trae muchos lenguajes:

http://www.scourdesign.com/articulos/tutoriales/colorear/index.php

Desordenar una columna de valores en Excel



  1. Sub Desordenar()
  2. Dim rango As Range
  3.  
  4. Set rango = Selection.Cells
  5. For i = 1 To rango.Rows.Count
  6. Dim aleatorio As Integer
  7. Dim cadena As String
  8. rango.Rows(i).Select
  9. cadena = ActiveCell.FormulaR1C1
  10. aleatorio = Int(Rnd() * rango.Rows.Count) + 1
  11. rango.Rows(i).FormulaR1C1 = rango.Rows_
    (aleatorio).FormulaR1C1
  12. rango.Cells(aleatorio).FormulaR1C1 = cadena
  13. Next
  14. End Sub