Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
Сковородин
0 / 0 / 0
Регистрация: 30.11.2011
Сообщений: 6
1

Распределение случайных целых чисел без повторения в заданном массиве

06.03.2012, 11:29. Просмотров 1362. Ответов 3
Метки нет (Все метки)

Дан массив ячеек A1:A5 и числа 1, 2, 3, 4, 5.
Необходимо распределить эти числа в массиве случайным образом.
Например так: 3 1 2 5 4.
Вариант распределения 3 4 2 5 4 не проходит, поскольку число 4 повторяется.
Как с помощью макроса VBA выполнить эту задачу?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2012, 11:29
Ответы с готовыми решениями:

Генерация случайных целых чисел в заданном интервале
Здравствуйте! Правильно ли я прописал код случайных чисел от -1 до 2 ??? Спасибо. procedure...

Сформировать массив случайных целых чисел в заданном диапазоне
Такая вот задачка не получается решить(написать) её. (хочу понять-разобраться что и как) ...

Заполнить одномерный массив состоящий их 20 целых случайных чисел в заданном диапазоне
помогитее....

Сформировать массив из заданного количества случайных целых чисел в заданном диапазоне
Доброго времени суток ув. форумчане. Не могу въехать как написать эту задачу: Задана...

В заданном массиве целых чисел найти все пары чисел, удовлетворяющих условию
Дан массив целых чисел а0, ..., аn-1. Найти все пары (аi, аi+1), такие, что аi = 0 и аi+1 кратно 2.

3
m-ch
5554 / 836 / 281
Регистрация: 25.02.2011
Сообщений: 1,183
Записей в блоге: 1
06.03.2012, 12:28 2
здесь смотрели?
Как вывести числа в заданном диапазоне в хаотичном порядке, без повторений
0
Апострофф
06.03.2012, 12:30
  #3

Не по теме:

Четыре дня прошло, тема даже с последней страницы VBA-форума уйти не успела, а её уже и не найти?>:o

0
Казанский
14895 / 6300 / 1717
Регистрация: 24.09.2011
Сообщений: 9,977
06.03.2012, 22:18 4
Лучший ответ Сообщение было отмечено как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub bb()
Dim MyArray()
MyArray = Array(1, 2, 3, 4, 5) 'любой длины
Cells.Clear
With [A1].Resize(UBound(MyArray) + 1)
    .Value = Application.Transpose(MyArray)
    .Offset(, 1).Formula = "=RAND()"
    [B1].Sort [B1], header:=xlNo
    .Offset(, 1).Clear
End With
End Sub
4
06.03.2012, 22:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2012, 22:18

В заданном массиве целых чисел найти количество нечётных элементов и произведение чисел, расположенных до минимума
Задан массив целых чисел P(n) . Найти - количество нечётных элементов массива; - произведение...

Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]
Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале...

Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]
Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале ....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru