Как сделать рандомное заполнение в экселе через прогрессию

Обновлено: 08.01.2025

Здравствуйте. Как реализовать данную функцию (Сразу скажу, я человек, практически ничего не знающий, в этом деле).

Есть допустим строка в которой много ячеек и она должна заполняться в случайном порядке значениями, которые указаны в других(другой) ячейке(ячейках), и конечно будет это удобно, если будет это назначено на кнопку для каждой строки. Как это сделать?

Почему пишу в ячейки или ячейках? Если возможно, чтобы все значения эти были записаны через запятую, то в ячейке, если невозможно, то в ячейках.

Лучше конечно глянуть в файле, так понятнее будет.

Лучше конечно глянуть в файле, так понятнее будет. vladimir25

Лучше конечно глянуть в файле, так понятнее будет. Автор - vladimir25
Дата добавления - 15.12.2015 в 20:57

Здесь строка должна заполнятся в случайном порядке значениями, которые берутся в столбце "значения".
То есть, к примеру кликнули "кнопку 1" и "строка 1" заполнилась в случайном порядке значенями, которые указаны в столбце "значения" строки 1

Вообще не понятно как это "заполняются в случайном порядке значениями, которые указаны в столбце "значения""
Т.е. Вы хотите рандом? Например у Вас в первой строке в Значания V и 3, соответственно в первой строке рандомом раскидать V 3 3 V 3 например?

Но, там же не видно как именно вы хотите разместить значения.
Внесите их ручками, что бы видно было как это в случайном порядке .

Но, там же не видно как именно вы хотите разместить значения.
Внесите их ручками, что бы видно было как это в случайном порядке . Wasilich

Но, там же не видно как именно вы хотите разместить значения.
Внесите их ручками, что бы видно было как это в случайном порядке . Автор - Wasilich
Дата добавления - 16.12.2015 в 01:42

Sub rand()
Dim zn() As String
Dim i As Long, j As Long
Dim Znach As String
Dim rand As Long, k As Long
i = Selection.Row
For j = 1 To 3
If Cells(i, j + 1) <> "" Then
k = k + 1
ReDim Preserve zn(k)
zn(k) = Cells(i, j + 1)
End If
Next
For j = 1 To k
rand = (Int(1 + (Rnd() * k)))
If zn(rand) <> "" Then
If Znach <> "" Then
Znach = Znach & ", " & zn(rand)
Else
Znach = zn(rand)
End If
End If
Next j
Cells(i, 13) = Znach
End Sub

Много чего не знаю.

Roman777, Подходящий вариант, но только значения должны быть рандомно разбросаны именно в таблице в ячейках, а не в отдельной строке через запятую. Через запятую я имел ввиду сами значения записывать (если это возможно) , а рандом только в ячейках. Гляньте вот, как я имею ввиду

vladimir25, выделяете ячейку в которой через запятую или пробелы и запятую прописаны значения и выполняете макрос. Рандомные значения появятся в ячейках той же строки в 5-11 столбцах.

Sub rand2()
Dim zn() As String
Dim i As Long, j As Long
Dim rand As Long, k As Long
Dim Slovo As String, s As Long, Slovo1 As String
Slovo = Replace(Slovo, " ", "")
i = Selection.Row
For s = 1 To Len(Slovo)
If Mid(Slovo, s, 1) = "," Or Len(Slovo) = s Then
If Slovo1 <> "" Then
k = k + 1
ReDim Preserve zn(k)
zn(k) = Slovo1
Slovo1 = ""
Else
k = k + 1
ReDim Preserve zn(k)
zn(k) = Mid(Slovo, s, 1)
End If
Else
Slovo1 = Slovo1 & Mid(Slovo, s, 1)
End If
Next s
For j = 5 To 11
rand = (Int(1 + (Rnd() * k)))
Cells(i, j) = zn(rand)
Next j
End Sub

Много чего не знаю.

Roman777, Спасибо большое. А можно немного дополнить этот код, чтобы только видимые столбцы заполнялись? Посмотрите в файлике, там более понятно.

Roman777, Спасибо большое. А можно немного дополнить этот код, чтобы только видимые столбцы заполнялись? Посмотрите в файлике, там более понятно. vladimir25

vladimir25, теперь будет работать в объединённой ячейке (если значение записано в первую из объединённых) . Ну и проверка на скрытые ячейки.
[vba]

Sub rand3()
Dim zn() As String
Dim i As Long, j As Long
Dim rand As Long, k As Long
Dim Slovo As String, s As Long, Slovo1 As String
i = Selection.Row
j = Selection.Column
Slovo = Replace(Cells(i, j), " ", "")
i = Selection.Row
For s = 1 To Len(Slovo)
If Mid(Slovo, s, 1) = "," Or Len(Slovo) = s Then
If Slovo1 <> "" Then
k = k + 1
ReDim Preserve zn(k)
zn(k) = Slovo1
Slovo1 = ""
Else
k = k + 1
ReDim Preserve zn(k)
zn(k) = Mid(Slovo, s, 1)
End If
Else
Slovo1 = Slovo1 & Mid(Slovo, s, 1)
End If
Next s
For j = 5 To 11
If Columns(j).EntireColumn.Hidden = False Then
rand = (Int(1 + (Rnd() * k)))
Cells(i, j) = zn(rand)
End If
Next j
End Sub

Roman777, ещё одно небольшое дополнение. А как сделать, чтобы значения можно было только из одного столбца (например из столбца С2:С11) , а не из всей строки?

Roman777, ещё одно небольшое дополнение. А как сделать, чтобы значения можно было только из одного столбца (например из столбца С2:С11) , а не из всей строки? vladimir25

Sub rand3()
Dim zn() As String
Dim i As Long, j As Long
Dim rand As Long, k As Long
Dim Slovo As String, s As Long, Slovo1 As String
If Intersect(Selection, Range("C1", "C11")) Is Nothing Then Exit Sub
i = Selection.Row
j = Selection.Column
Slovo = Replace(Cells(i, j), " ", "")
i = Selection.Row
For s = 1 To Len(Slovo)
If Mid(Slovo, s, 1) = "," Or Len(Slovo) = s Then
If Slovo1 <> "" Then
k = k + 1
ReDim Preserve zn(k)
zn(k) = Slovo1
Slovo1 = ""
Else
k = k + 1
ReDim Preserve zn(k)
zn(k) = Mid(Slovo, s, 1)
End If
Else
Slovo1 = Slovo1 & Mid(Slovo, s, 1)
End If
Next s
For j = 5 To 11
If Columns(j).EntireColumn.Hidden = False Then
rand = (Int(1 + (Rnd() * k)))
Cells(i, j) = zn(rand)
End If
Next j
End Sub

Roman777, А можно ли сделать, чтобы при нажатии кнопочки всё разом рандомилось, а не по отдельному выделению строки?

Roman777, А можно ли сделать, чтобы при нажатии кнопочки всё разом рандомилось, а не по отдельному выделению строки? vladimir25

Sub rand3()
Dim zn() As String
Dim i As Long, j As Long
Dim rand As Long, k As Long
Dim Slovo As String, s As Long, Slovo1 As String
For i = 2 to 11
Slovo = Replace(Cells(i, 3), " ", "")
For s = 1 To Len(Slovo)
If Mid(Slovo, s, 1) = "," Or Len(Slovo) = s Then
If Slovo1 <> "" Then
k = k + 1
ReDim Preserve zn(k)
zn(k) = Slovo1
Slovo1 = ""
Else
k = k + 1
ReDim Preserve zn(k)
zn(k) = Mid(Slovo, s, 1)
End If
Else
Slovo1 = Slovo1 & Mid(Slovo, s, 1)
End If
Next s
For j = 5 To 11
If Columns(j).EntireColumn.Hidden = False Then
rand = (Int(1 + (Rnd() * k)))
Cells(i, j) = zn(rand)
End If
Next j
Next i
End Sub

Много чего не знаю.

Roman777, теперь почему-то происходит полный рандом. Допустим те строки, где столбец "Значения" пустой, рандомно заполняются значениями, а они должны оставаться пустыми. И там, где всего лишь одно значение, например 5, там также заполняются другие значения, а не только указанные.

Кроме простого автозаполнения ячеек данными при необходимости можно создать и арифметическую прогрессию. Excel 2007 может автоматически продолжать заполнение прогрессии числами, комбинациями чисел и текста, датами и временем, основываясь на установленном образце.

1 способ:

В окне открытого листа введите начальные значения создаваемого ряда прогрессии в первую ячейку и вторую ячейку диапазона.
Например: 1, 2; 07:00, 08:00; пн, вт; янв, фев.
Выделите эти ячейки и наведите курсор на правый нижний угол выделенной зоны.
Курсором в виде тонкого черного креста при нажатой левой кнопке мыши протащите маркер заполнения по столбцу (вверх или вниз) либо по строке (вправо или влево).
Получится результат – 4,5; 09:00, 10:00; ср, чт; мар, апр.

Чтобы использовать принцип автозаполнения ячеек, а не создание арифметической прогрессии, при использовании маркера заполнения нажмите и держите клавишу Ctrl.

3 способ:

Рис. 2.108. Контекстное меню прогрессии

4 способ:

При решении задач в Microsoft Office Excel с помощью макросов иногда необходимо сгенерировать произвольные числа для проверки правильности работы программы. Или нужно создать большой массив различных цифр без повторений. Для подобных заданий в редакторе заложены специализированные функции, и сегодня разберемся, как задать случайное число в excel.

Функции

Excel содержит две функции, которые позволяют генерировать произвольные цифры –СЛЧИС и СЛУЧМЕЖДУ. Рассмотрим каждую из них более подробно.

Функция СЛЧИС не имеет аргументов, поэтому просто вписываете ее в строку формул и нажимаете Enter.

При помощи маркера автозаполнения можно применить формулу к нужному количеству ячеек.

Важно! При любом действии с ячейкой число автоматически изменяется. Чтобы его зафиксировать, необходимо поставить курсор в нужную ячейку, выделить выражение в строке формул и нажать клавишу F9.

Особенностью этой функции является то, что она работает в пределах от нуля включительно до единицы с нормальным распределением.

Чтобы сгенерировать цифры в заданном диапазоне, например от 3 до 8, необходимо дополнять формулу.

Чтобы сгенерировать случайное целое число, отлично подойдет функция СЛУЧМЕЖДУ. Где в качестве аргументов выступают два числа – верхняя и нижняя границы. При этом существует несколько особенностей:

Первая часть формулы должна быть меньше второй.
Границы должны быть целыми числами.
Цифры после запятой отбрасываются.

Если умножить формулу на определенный коэффициент, то можно создать случайное дробное число с десятыми, сотыми, тысячными и так далее.

В качестве бонуса рассмотрим, как использовать excel для лотереи. Для начала нужно выгрузить базу данных участников в программу любым известным способом, а затем провести розыгрыш. Формула будет выглядеть следующим образом:

Где СЧЕТЗ возвращает количество непустых ячеек, а ИНДЕКС позволяет вывести значение ячейки, которая находится на пересечении конкретной строки и столбца.

Специальный инструмент

Генератор случайных чисел можно найти в пакете анализа данных, который активируется через надстройки Excel. Чтобы воспользоваться этой функцией, необходимо нажать отдельную кнопку во вкладке Данные на Панели инструментов и из списка выбрать нужную строку.

Откроется окно настроек, в котором задаете число переменных и количество случайных чисел, затем указываете дополнительные параметры и место вывода полученных данных. Для примера используем нормальное распределение, которое можно выбрать из отдельного списка.

В результате получилось следующее:

Этот метод намного проще, чем описанные выше способы. Однако он не позволяет накладывать дополнительные условия, поэтому генерация не всегда может удовлетворять требованиям пользователя.

Как видите, в редакторе существует несколько способов задания произвольного числа. Если нужны какие-то ограничения, то используйте встроенные функции, а если важно наличие случайного значения, то генератор из анализа данных подойдет лучше.

Функция мгновенного заполнения автоматически подставляет данные, когда обнаруживает закономерность. Например, с помощью мгновенного заполнения можно разделять имена и фамилии из одного столбца или объединять их из двух разных столбцов.

Примечание: Функция мгновенного заполнения доступна только в Excel 2013 и более поздних версий.

Предположим, что столбец A содержит имена, столбец B — фамилии, а вы хотите заполнить столбец C сочетаниями имен и фамилий. Если ввести полное имя в столбец C, функция мгновенного заполнения заполнит остальные ячейки соответствующим образом.

Введите полное имя в ячейке C2 и нажмите клавишу ВВОД.

Начните вводить следующее полное имя в ячейке C3. Excel определит закономерность и отобразит предварительное изображение остальной части столбца, заполненной объединенным текстом.

Для подтверждения предварительного просмотра нажмите клавишу ВВОД.

Если вариант заполнения не выводится, вероятно, эта функция не включена. Вы можете выбрать Данные > Мгновенное заполнение, чтобы применить заполнение вручную или нажать клавиши CTRL+E. Чтобы включить мгновенное заполнение, выберите Сервис > Параметры > Дополнительно > Параметры правки и установите флажок Автоматически выполнять мгновенное заполнение.

Введите полное имя в ячейке C2 и нажмите клавишу ВВОД.

Выберите Данные > Мгновенное заполнение или нажмите клавиши CTRL+E.

Excel определит закономерность в ячейке C2 и заполнит ячейки ниже.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Читайте также: