Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Генератор случайных чисел по закону нормального распределения, Генерация случайных чисел в заданном интервале поддающихся закону нормального распределения
 
Возможно ли в экселе генерировать выборки в заданном интервале подчиняющиеся закону нормального распределения.
Вычисление индексов для определения положения диапазона в таблице
 
Ігор Гончаренко, спасибо, работает как надо.
Вычисление индексов для определения положения диапазона в таблице
 
Имеется поле чисел (верх) которое подвергается обработке данных некое количество раз (в примере 10).
Необходимо собрать данные из каждого обработанного поля (1 обр, 2 обр и тд.) в столбец (1 обр Rср, 2 обр Rср и тд.) на лист среднее и усреднить.
Как правильно внедрить в код макроса прогресс бар
 
Anchoret, посоветуйте, пожалуйста, как это сделать в цикле.
Как правильно внедрить в код макроса прогресс бар
 
Дмитрий Щербаков,
Код
Range("g1:h1").Copy Range("g2:h2").Resize(1 * n)
Как правильно внедрить в код макроса прогресс бар
 
Пытливый, в исходном коде она нужна, с прогресс баром нет, к чему этот вопрос?
Как правильно внедрить в код макроса прогресс бар
 
Юрий М, операция повторяется до 1 000 000 раз.
Как правильно внедрить в код макроса прогресс бар
 
Dima S, хотя бы, количество пройденных строк.
Как правильно внедрить в код макроса прогресс бар
 
Дмитрий Щербаков, можно написать и через цикл, но тогда увеличится время работы макроса.
Как правильно внедрить в код макроса прогресс бар
 
Код
Sub Размножить()
    Dim lngCalc As Long
    Dim n&
    n = Val(InputBox("n ="))
     
    Application.ScreenUpdating = False
    lngCalc = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.DisplayAlerts = False
     
    Range("g1:h1").Copy Range("g2:h2").Resize(1 * n)
     
    Application.ScreenUpdating = True
    Application.Calculation = lngCalc
    Application.DisplayAlerts = True
    MsgBox "Готово!", vbInformation
End Sub
Генерация случайных чисел без повторов, Необходимо сгенерировать некое количество чисел n раз в строку
 
Поправьте или подскажите, если что-то не так.

Код
Sub random()
[a1:o1000000].Clear
    n = Val(InputBox("Верхний предел выборки"))
    m = Val(InputBox("Количество генерируемых чисел"))
    Dim i As Long, j As Long, a() As Long, b As Long
    ReDim a(1 To n) As Long
    Randomize
    For b = 1 To 1000000
    For i = 1 To n
              j = Int(Rnd() * i + 1)
        If j <> i Then a(i) = a(j)
        a(j) = i
    Next i
        Cells(b, 1).Resize(, m) = a
    Next b
End Sub
Изменено: kolevchuk - 28.03.2018 19:17:15
Генерация случайных чисел без повторов, Необходимо сгенерировать некое количество чисел n раз в строку
 
MCH, заполнили первую строку 10-ю рандомными значениями, переходим ко второй и заполняем её 10-ю новыми рандомными значениями и так далее.
Изменено: kolevchuk - 28.03.2018 14:49:00
Генерация случайных чисел без повторов, Необходимо сгенерировать некое количество чисел n раз в строку
 
MCH, а как повторять это для нескольких строк, это надо для Cells цикл прописывать?
Изменено: kolevchuk - 28.03.2018 13:11:57
Генерация случайных чисел без повторов, Необходимо сгенерировать некое количество чисел n раз в строку
 
MCH, спасибо.
Генерация случайных чисел без повторов, Необходимо сгенерировать некое количество чисел n раз в строку
 
Как записать данные не в столбец, а в строку?
Скрытый текст
Изменено: kolevchuk - 28.03.2018 12:26:39
Генерация случайных чисел без повторов, Необходимо сгенерировать некое количество чисел n раз в строку
 
Есть выборка от 1 до 62.
Нужно из этой выборки записать в строку случайным образом, без повторений, некое количество n значений.
Количество строк и количество значений n нужно задавать через InputBox.
Изменено: kolevchuk - 28.03.2018 11:52:29
Сбор данных из ячеек с заданным шагом
 
Anchoret, разобрался. Спасибо.
Изменено: kolevchuk - 12.03.2018 19:53:13
Сбор данных из ячеек с заданным шагом
 
Anchoret, что-то не получается.

Скрытый текст
Изменено: kolevchuk - 12.03.2018 19:39:18
Сбор данных из ячеек с заданным шагом
 
Что дописать, чтобы копировать на новый лист?
Скрытый текст
Изменено: kolevchuk - 12.03.2018 18:48:22
Сбор данных из ячеек с заданным шагом
 
TheBestOfTheBest, пока только пробовал собрать при помощи Plex.
Если её запустить для сбора 370000 (приблизительно) значений в заголовке окна отображается "Сборка данных с листов книги (Не отвечает). Курсор в виде часов.
Ждал около получаса, надоело.
Снял задачу через диспетчер.  
Сбор данных из ячеек с заданным шагом
 
БМВ, на листе "Пресс n=3" из ячек D8, D18, D28 (шаг 10 строк) и так далее более чем 37000 раз.
Всю таблицу не вставлял из-за ограничений по весу.  
Сбор данных из ячеек с заданным шагом
 
TheBestOfTheBest, результат чего?  
Сбор данных из ячеек с заданным шагом
 
Имеется книга весом порядка 30 мб.
Нужно собрать на листе "Пресс n=3" данные из порядка 37 000 ячеек для дальнейшего анализа, собираю по заранее залитому фону.
Ячейки из которых ведётся сбор идут в строго определённом порядке. D8, D18, D28  
После запуска надстройки PLEX в заголовке окна отображается "Сборка данных с листов книги (Не отвечает). Курсор в виде часов.

Есть ли смысл ждать окончания или Excel подвис окончательно?
Как это узнать, может стоит подождать и сборка закончится через некоторое время?
Ждал более 30 минут, потом надоело.

В настройках включил задействовать все процессоры для вычисления.
В диспетчере загрузка процессора 18%, озу 200 мб.
Файл сохранён в xlbs.

Компьютер относительно мощный i7, 16gb озу.

1) Как ещё можно ускорить работу экселя?
2) Чтобы не использовать подвисающий Plex нужно писать макрос для сбора?  
Изменено: kolevchuk - 12.03.2018 14:49:33
Копирование таблицы n раз макросом или маркером заполнения
 
Цитата
sokol92 написал:
Из опыта: возврат в режим автоматических вычислений может вызвать ошибку, если изменений очень много (как в данном случае). Лучше принудительно перед возвратом выполнить Application.Calculate
Karataev, я обратил внимание на пост 11, но в вашем макросе уже имеется данная процедура,  
Изменено: kolevchuk - 07.03.2018 20:32:33
Копирование таблицы n раз макросом или маркером заполнения
 
Karataev, я вижу. Я использую ваш изменённый макрос из поста 7.
Копирование таблицы n раз макросом или маркером заполнения
 
sokol92, у вас какой-то другой вариант макроса?  
Копирование таблицы n раз макросом или маркером заполнения
 
Karataev, проверил, работает на 10, спасибо!
Копирование таблицы n раз макросом или маркером заполнения
 
Karataev, 0 лишний. Приблизительно 30 000 раз.  
Копирование таблицы n раз макросом или маркером заполнения
 
Karataev, A1:K9
Копирование таблицы n раз макросом или маркером заполнения
 
Есть таблица на листе её нужно скопировать вниз какое-то количество раз на том же листе, желательно чтобы между таблицами была пустая строка.
Можно и маркером заполнения но это очень долго тянуть, так как число копирования около 300000.  
Страницы: 1 2 След.
Наверх