Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как вывести результат генерации в другой столбец
 
Подскажите пожалуйста как вывести генерацию случайных чисел не в столбец L, а в столбец С
Код
Sub io()
Dim x%(1 To 44, 1 To 1), j%, i%
With New Collection
For i = -22 To 21
If i <> 22 Then .Add i
Next
Randomize
For i = 1 To 44
j = CInt((44 - i) * Rnd + 1)
x(i, 1) = .Item(j)
.Remove (j)
Next
[l1].Resize(44) = x
End With
End Sub
 
[C1].Resize(44) = x
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Большое спасибо :)
Страницы: 1
Читают тему (гостей: 1)
Наверх