Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VBA: utilice una función aleatoria para generar 10 números enteros positivos de dos dígitos y luego organice estos 10 números de menor a mayor

Programación VBA: utilice una función aleatoria para generar 10 números enteros positivos de dos dígitos y luego organice estos 10 números de menor a mayor

Sub?Macro1()

Aleatorizar

Para?i?=?1?A?10

Celdas(i, ? 1)?=?Int(10?+?Rnd?*?90)

Con?ActiveWorkbook.Worksheets("Hoja1").Ordenar

.SetRange?Range("A1:A10")

.Header?=?xlNo

.MatchCase?=?False

.Orientation?= ? xlTopToBottom

.SortMethod?=?xlPinYin

.Apply

Fin?Con

Fin?Sub