Генерация случайных чисел и замена

ryzhyikoh · Регистрация: 02.02.2015

Студворк — интернет-сервис помощи студентам

Добрый день.
Нужна помощь)
Задача следующая
Есть число например 795 531 55 55.
Нужно что бы в ячейке ниже было точно такое же число но изменились рандомно только комбинация цифр 531 и в итоге вышло 795 486 55 55. Необходимо это делать через кнопку (элемент activex) и была возможность задать определенное количество результатов получаемых чисел. То есть иногда нужно их будет 500 штук а иногда и только 100. И хочется в коде пояснения что и где делается, так как эта малая часть того что надо, но она основная и код будет меняться).
Спасибо большое)

@Vlad999 · 02.02.2015, 13:41

к-во задается сразу (в ячейке или в диалоговом окне)? После указания к-ва выводится весь набор сразу и по одному при каждом нажатии кнопки? Если по одному то выводится в одну ячейку или каждый раз в последующую.

Добавлено через 20 минут
оттачивайте под себя

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim MyValue$, i%, N%
Randomize
N = InputBox("введите к-во случайных чисел")
For i = 1 To N
MyValue = Int(1000 * Rnd)
Cells(i + 1, 1) = Mid(Cells(1, 1), 1, 4) & Format(MyValue, "000") & Mid(Cells(1, 1), 8, 6)
Next
End Sub

ryzhyikoh · 02.02.2015, 14:53 **[ТС]**

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

Visual Basic
1
 Cells(i + 1, 1) = Mid(Cells(1, 1), 1, 4) & Format(MyValue, "000") & Mid(Cells(1, 1), 8, 6)

. Так как в ячейке будет записано несколько вариантов например 787 344 51 51; 676 577 1 577; 787 345 10 10. И нужно сделать так что бы первая комбинация как вы и сделали а далее чуть другое. Во втором варианте менять обе 577 и чтобы они были одинаковы по разному тоесть 676 568 1 568. И другой вариант 676 555 1 555; и третий вариант 787 345 10 10 менять 10 так чтобы было 30 30, 50 50, 45 45. ) спасибо)

Добавлено через 11 минут
Вобщем вот как должно быть в итоге
795 531 55 55; 795 950 2111; 795 411 50 11; 795 755 1 755; 795 421 10 10
795 456 55 55; 795 467 7999; 795 411 67 11; 795 633 9 633; 795 678 55 55
795 876 55 55; 795 753 5666; 795 411 64 11; 795 599 5 599; 795 578 43 43
795 327 55 55; 795 432 8555; 795 411 74 11; 795 466 7 466; 795 678 50 50
795 757 55 55; 795 646 2444; 795 411 42 11; 795 255 6 255; 795 753 35 35

@Vlad999 · 02.02.2015, 15:16

почитайте справку про ф-цию ПСТР эксель, MID это она и есть только в VBA.
П.С. если три числа в одной ячейке то код нужно править, например использовать split для разделения текста на части по разделителю ";" и потом работать с каждой частью отдельно, в итоге собрать все обратно.
да и для двухзначного значения вводить новую переменную и рандомить её.

ryzhyikoh · 02.02.2015, 15:44 **[ТС]**

Спасибо. Попробую. А как рандомить так что бы числа одинаковые были? Как в примере показал.

@Vlad999 · 02.02.2015, 16:06

при обращение к строке 6 кода вы получаете одно рандомное число, вот его сразу и используйте два раза
например

Visual Basic
1
Cells(i + 1, 1) = Mid(Cells(1, 1), 1, 4) & Format(MyValue, "000") & Mid(Cells(1, 1), 8, 4) & Format(MyValue, "000")

ryzhyikoh · 03.02.2015, 20:19 **[ТС]**

Проблема возникла... Выводит иногда одинаковые результаты рандома... Как сделать рандом без повторений?(

@Vlad999 · 04.02.2015, 08:20

Randomize в вашем коде осталось?

ryzhyikoh · 04.02.2015, 09:03 **[ТС]**

Да основа ваша вся.

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim MyValue$, i%, N%
Randomize
N = InputBox("введите к-во случайных чисел")
For i = 1 To N
MyValue = Int(1000 * Rnd)
Cells(i + 1, 1) = Mid(Cells(1, 1), 1, 4) & Format(MyValue, "000") & Mid(Cells(1, 1), 8, 6)
Next
End Sub

ryzhyikoh · 09.02.2015, 14:07 **[ТС]**

ни как не получается сделать без повторов(

Новые блоги и статьи Все статьи Все блоги /
Веб-автоматизация с Python и Selenium AI_Generated 25.06.2025 Selenium с Python — это комбинация, которая выдержала проверку временем. Несмотря на появление новых инструментов вроде Playwright или Puppeteer, связка Python-Selenium остаётся золотым стандартом. . .	CQRS и Event Sourcing на C# ArchitectMsa 25.06.2025 За последние несколько лет сложность корпоративных приложений выросла в геометрической прогрессии. Простые монолитные системы уступили место распределенным микросервисам, а нагрузка на корпоративные. . .	Хак домофона или как открыть дверь по номеру yariko 25.06.2025 Забыли дома ключ. Не проблема. Можно открыть дверь домофона, просто позвонив на свой номер квартиры. Идея состоит в следующем. Внутрь трубки абонента встраивается контроллер, который по звонку сам. . .	Как украсить новогоднюю елку с Q# и Qiskit EggHead 24.06.2025 Что может быть необычнее, чем применить законы квантовой механики для украшения новогодней елки? Пока другие развешивают обычные гирлянды, я решил объединить свою страсть к квантовым вычислениям с. . .	Системы нулевого доверия на C# UnmanagedCoder 24.06.2025 Традиционная архитектура безопасности работает по принципу средневекового замка: создаём высокие стены вокруг корпоративной сети, укрепляем ворота межсетевыми экранами и системами обнаружения. . .
Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку. Hrethgir 24.06.2025 Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .	Деплой Flask приложения py-thonny 23.06.2025 За годы работы с Flask я натыкался на одни и те же грабли достаточно часто, чтобы наконец научится их обходить. И сегодня хочу поделится опытом, который сбережет вам немало нервных клеток. Начнем с. . .	WebAssembly и контейнеры в .NET Aspire для оркестрации распределенных архитектур ArchitectMsa 23.06.2025 Я наблюдаю, как WebAssembly (или просто WASM) постепенно выходит за рамки своего первоначального предназначения — исполнения кода на стороне браузера. Теперь эта технология проникает в серверную. . .	Непрерывная интеграция для пакета Python Mr. Docker 22.06.2025 Было 4 часа утра пятницы, когда я выпустил новую версию нашей внутренней библиотеки для обработки данных. Релиз 0. 5. 2 содержал небольшой фикс для обработки дат в ISO формате, что может пойти не так?. . .	Продвинутый ETL на C# из OLTP БД в хранилище stackOverflow 22.06.2025 Работая в сфере корпоративной аналитики, я постоянно сталкиваюсь с одним и тем же - нужны чистые, структурированные и, главное, свежие данные. Без них современные аналитические системы, машинное. . .

ryzhyikoh 0 / 0 / 0 Регистрация: 02.02.2015 Сообщений: 30

	Генерация случайных чисел и замена 02.02.2015, 12:05. Показов 2081. Ответов 9 Метки нет (Все метки) Добрый день. Нужна помощь) Задача следующая Есть число например 795 531 55 55. Нужно что бы в ячейке ниже было точно такое же число но изменились рандомно только комбинация цифр 531 и в итоге вышло 795 486 55 55. Необходимо это делать через кнопку (элемент activex) и была возможность задать определенное количество результатов получаемых чисел. То есть иногда нужно их будет 500 штук а иногда и только 100. И хочется в коде пояснения что и где делается, так как эта малая часть того что надо, но она основная и код будет меняться). Спасибо большое) 0

@Vlad999 3943 / 2336 / 790 Регистрация: 02.11.2012 Сообщений: 6,208
	02.02.2015, 15:16
	почитайте справку про ф-цию ПСТР эксель, MID это она и есть только в VBA. П.С. если три числа в одной ячейке то код нужно править, например использовать split для разделения текста на части по разделителю ";" и потом работать с каждой частью отдельно, в итоге собрать все обратно. да и для двухзначного значения вводить новую переменную и рандомить её. 0

ryzhyikoh 0 / 0 / 0 Регистрация: 02.02.2015 Сообщений: 30
	02.02.2015, 15:44 [ТС]
	Спасибо. Попробую. А как рандомить так что бы числа одинаковые были? Как в примере показал. 0

ryzhyikoh 0 / 0 / 0 Регистрация: 02.02.2015 Сообщений: 30
	03.02.2015, 20:19 [ТС]
	Проблема возникла... Выводит иногда одинаковые результаты рандома... Как сделать рандом без повторений?( 0

@Vlad999 3943 / 2336 / 790 Регистрация: 02.11.2012 Сообщений: 6,208
	04.02.2015, 08:20
	Randomize в вашем коде осталось? 0

ryzhyikoh 0 / 0 / 0 Регистрация: 02.02.2015 Сообщений: 30
	09.02.2015, 14:07 [ТС]
	ни как не получается сделать без повторов( 0