Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Генерация случайных чисел в пределах диапазона - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Генерация случайных чисел в пределах диапазона
Igorka001 Дата: Четверг, 02.11.2023, 15:10 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

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

[vba]
Код
Sub NumberCell()
Const NUMBERED_RANGE = "F3"

Dim arD As Variant
arD = Range([A3], Cells(Rows.Count, "A").End(xlUp).Cells(1, 2))
Dim arN As Variant
ReDim arN(1 To UBound(arD, 1), 1 To 1)
Dim iCount As Long
Dim yy As Long
For yy = 1 To UBound(arD, 1)
If Not IsEmpty(arD(yy, 1)) Then

iCount = iCount + 1
arN(yy, 1) = iCount

End If
Next

Application.EnableEvents = False
Range(NUMBERED_RANGE).Resize(UBound(arN, 1)).Value = arN
Application.EnableEvents = True
End Sub
[/vba]
Первой не могу этот скрипт заставить генерировать нумерацию с ячеек по условию, допустим по содержанию конкретного текста, а второе, нужна та самая генерация из полученной нумерации с помощью этого скрипта, в соседних ячейках


Сообщение отредактировал Igorka001 - Четверг, 02.11.2023, 15:14
 
Ответить
СообщениеТакая проблема, необходима генерация случайных чисел в пределах созданной нумерации с помощью VBA и запись результата в соседнюю ячейку. Есть скрипт VBA взятый с этого форума

[vba]
Код
Sub NumberCell()
Const NUMBERED_RANGE = "F3"

Dim arD As Variant
arD = Range([A3], Cells(Rows.Count, "A").End(xlUp).Cells(1, 2))
Dim arN As Variant
ReDim arN(1 To UBound(arD, 1), 1 To 1)
Dim iCount As Long
Dim yy As Long
For yy = 1 To UBound(arD, 1)
If Not IsEmpty(arD(yy, 1)) Then

iCount = iCount + 1
arN(yy, 1) = iCount

End If
Next

Application.EnableEvents = False
Range(NUMBERED_RANGE).Resize(UBound(arN, 1)).Value = arN
Application.EnableEvents = True
End Sub
[/vba]
Первой не могу этот скрипт заставить генерировать нумерацию с ячеек по условию, допустим по содержанию конкретного текста, а второе, нужна та самая генерация из полученной нумерации с помощью этого скрипта, в соседних ячейках

Автор - Igorka001
Дата добавления - 02.11.2023 в 15:10
Pelena Дата: Четверг, 02.11.2023, 17:24 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
допустим по содержанию конкретного текста

покажите в файле, что где нужно получить и где и как расположены условия


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
допустим по содержанию конкретного текста

покажите в файле, что где нужно получить и где и как расположены условия

Автор - Pelena
Дата добавления - 02.11.2023 в 17:24
Igorka001 Дата: Четверг, 02.11.2023, 17:48 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Приложил файл с макросом, сейчас логика такая, если в колонке "А" Я задаю значение неважно какое главное чтоб ячейка была не пустая, тогда симметрично происходит нумерация ячеек через макрос, хотелось бы так, чтоб нумерация происходила по значению ячейки, например если в ячейке "on", то тогда следует нумерация рядом. Далее нужен макрос, который рядом с пронумерованными ячейками в порядке, создаст ячейки в рандомном порядке, то есть нумерация изменяется в зависимости от свойства ON, а рандом захватывает данные из ячеек с нумерацией и симметрично в соседних ячейках выводит рандомное их значение, в общем это для удобства, с одной стороны нужен порядок нумерации, с другой их рандомность
К сообщению приложен файл: acc11.xlsm (170.8 Kb)
 
Ответить
СообщениеПриложил файл с макросом, сейчас логика такая, если в колонке "А" Я задаю значение неважно какое главное чтоб ячейка была не пустая, тогда симметрично происходит нумерация ячеек через макрос, хотелось бы так, чтоб нумерация происходила по значению ячейки, например если в ячейке "on", то тогда следует нумерация рядом. Далее нужен макрос, который рядом с пронумерованными ячейками в порядке, создаст ячейки в рандомном порядке, то есть нумерация изменяется в зависимости от свойства ON, а рандом захватывает данные из ячеек с нумерацией и симметрично в соседних ячейках выводит рандомное их значение, в общем это для удобства, с одной стороны нужен порядок нумерации, с другой их рандомность

Автор - Igorka001
Дата добавления - 02.11.2023 в 17:48
Pelena Дата: Четверг, 02.11.2023, 18:59 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Не уверена, что правильно поняла, посмотрите вариант в файле.
Обе части в одном макросе нумерации ячеек
[p.s.]Удалила почтовые адреса, вдруг настоящие[/p.s.]
К сообщению приложен файл: 2276171.xlsm (169.8 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНе уверена, что правильно поняла, посмотрите вариант в файле.
Обе части в одном макросе нумерации ячеек
[p.s.]Удалила почтовые адреса, вдруг настоящие[/p.s.]

Автор - Pelena
Дата добавления - 02.11.2023 в 18:59
Igorka001 Дата: Четверг, 02.11.2023, 19:12 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Да рандомность чисел появилась в соседней колонке и это хорошо, но перестала работать генерация нумерации( Предполагалось, что я указываю значение "on" в колонке, где содержится on, off, a и тогда 'генерируется порядок нумерации заново, а затем уже можно с генерить рандом
 
Ответить
СообщениеДа рандомность чисел появилась в соседней колонке и это хорошо, но перестала работать генерация нумерации( Предполагалось, что я указываю значение "on" в колонке, где содержится on, off, a и тогда 'генерируется порядок нумерации заново, а затем уже можно с генерить рандом

Автор - Igorka001
Дата добавления - 02.11.2023 в 19:12
Igorka001 Дата: Четверг, 02.11.2023, 19:17 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Айй, извиняюсь, всё круто работает, только там теперь зависимость между указанием on и колонкой A, как убрать эту зависимость, чтоб работало по указанию "on"? Но уже круто))) Колонку А я создал специально, потому что я не мог сделать чтоб макрос срабатывал только от указание ON


Сообщение отредактировал Igorka001 - Четверг, 02.11.2023, 19:21
 
Ответить
СообщениеАйй, извиняюсь, всё круто работает, только там теперь зависимость между указанием on и колонкой A, как убрать эту зависимость, чтоб работало по указанию "on"? Но уже круто))) Колонку А я создал специально, потому что я не мог сделать чтоб макрос срабатывал только от указание ON

Автор - Igorka001
Дата добавления - 02.11.2023 в 19:17
Pelena Дата: Четверг, 02.11.2023, 19:25 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Так?
К сообщению приложен файл: 5665977.xlsm (169.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТак?

Автор - Pelena
Дата добавления - 02.11.2023 в 19:25
Igorka001 Дата: Четверг, 02.11.2023, 19:29 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Вы просто богиня!!! Я вам так благодарен!!! Спасибо!!!
 
Ответить
СообщениеВы просто богиня!!! Я вам так благодарен!!! Спасибо!!!

Автор - Igorka001
Дата добавления - 02.11.2023 в 19:29
Igorka001 Дата: Среда, 08.11.2023, 14:39 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

Pelena, Здравствуйте, а к вам можно обратится за помощью?
 
Ответить
СообщениеPelena, Здравствуйте, а к вам можно обратится за помощью?

Автор - Igorka001
Дата добавления - 08.11.2023 в 14:39
Pelena Дата: Среда, 08.11.2023, 17:06 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
А кто запрещает?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеА кто запрещает?

Автор - Pelena
Дата добавления - 08.11.2023 в 17:06
Igorka001 Дата: Четверг, 09.11.2023, 03:27 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 20% ±

http://www.excelworld.ru/forum/10-52605-1 вот разместил пост по этой ссылке
 
Ответить
Сообщениеhttp://www.excelworld.ru/forum/10-52605-1 вот разместил пост по этой ссылке

Автор - Igorka001
Дата добавления - 09.11.2023 в 03:27
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!