Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Ввести координаты x, y на плоскости Как это делается?Гуглить пробовал. Ввести координаты x, y на плоскости. В условном операторе сформировать значение признака p номера четверти. Далее в операторе множественного ветвления вывести сообщение о номере четверти. https://www.cyberforum.ru/ vba/ thread1688084.html Через сколько дней спортсмен пробежит суммарный путь 100 км. VBA
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму пробега на 10% от нормы предыдущего дня. В документе «Сумма пробега 100 км» реализовать проект, в котором определить, через сколько дней спортсмен пробежит суммарный путь 100 км. Рекомендации. 1. Имена переменных, используемых в программе, назначать русскими словами, а не абстрактными...
VBA Как добавить значения с Листа в Listbox, если количество строк может меняться https://www.cyberforum.ru/ vba/ thread1687975.html
Есть Лист с уже заданными значениями, но они могут изменяться (добавляться, удаляться). Нужно добавить этот столбец в Listbox. Помогите , пожалуйста На такой вариант ругается , выдает ошибку 424 Dim v As Long v = Cells(Rows.Count, 1).End(xlUp).Row For a = 2 To v Do While Данные.Cells(1, a) <> Empty
VBA оператор Like Доброго времени суток, я написал маленькую программку для расчёта факториала числа, при этом при вводе отрицательного числа, символов, или дробных чисел выдаёт ошибку....Т.е. всё работает, но неугомонная училка требует сделать через Like. Подскажите как это можно сделать. Впервые встречаю этот оператор, и не знаю как им пользоваться. Option Base 1 Sub pr() Dim n As Variant Dim i As Double... https://www.cyberforum.ru/ vba/ thread1687886.html
VBA Определить по длинам сторон треугольника, является ли он прямоугольным
С чего начать? Написать программу, определяющую по длинам сторон треугольника, является ли он прямоугольным. Если треугольник не прямоугольный, то вычислить косинус угла, лежащего против большей стороны.
VBA Сделать правильный формат В следующей задаче при переводе выдает только целые части.К примеру,нужно 0.1,а выдает либо 0 либо 0.0.Что не так?Нужно написать формат?Или другой тип данных сделать?Я что-то запуталась,подскажите пожалуйста. Написать программу, которая бы по введенному номеру единицы измерения (1 —дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр) и длине отрезка L выдавала бы соответствующее... https://www.cyberforum.ru/ vba/ thread1687620.html
VBA Видимость ячейки Подскажите пожалуйста, как программным образом отобразить видимость ячейки в excel? (Нужно чтобы при нажатии кнопки, становилась видимой скрытая ячейка). Заранее спасибо. https://www.cyberforum.ru/ vba/ thread1687606.html Как добавить значения с Листа в Listbox VBA
Есть Лист с уже заданными значениями, но они могут изменяться (добавляться, удаляться). Нужно добавить этот столбец в Listbox. Помогите , пожалуйста :)
VBA Нужно написать код для того, что бы макрос распознал значения в таблице, и отобразил таблицу в ячейки ниже Всем доброго времени суток! Получила задание по VBA, но никак не пойму, как его выполнить. Нужно создать обычную таблицу. Указать в строке значения X,Y,Z, а в столбцах по 2-3 любых значения. Затем нужно создать макрос, который распознает эту таблицу, и скопирует ее на этот же лист 1, только в нижние ячейки. И дополнительный макрос, выполняющий такие же действия, только таблицу нужно будет... https://www.cyberforum.ru/ vba/ thread1687422.html VBA Иницировать запуск макроса с рабочего стола https://www.cyberforum.ru/ vba/ thread1687365.html
Добрый день всем! Можно ли каким либо способом иницировать запуск макроса с рабочего стола. Нашел способ, как можно изменять контекстное меню.( когда тыркаешь на файл/папку правой кнопкой и выбираешь "открыть", "отправить" и т.д.) Например, можно ли создать "что -то", что бы запихнуть в это меню. В итоге, я жмакаю правой кнопкой на файл, выбираю макрос1, открывается файл( или даже не...
VBA ListBox1 проставление галок по кнопке
Добрый день! на форме есть ListBox, CheckBox, Button В ListBox загружается список Не могу написать макрос, что бы при установке в CheckBox галки, в ListBox выбирались все строчки. Sub check() Dim x() as Variant
VBA Открытие папок без загрузки новых процессов "explorer.exe" https://www.cyberforum.ru/ vba/ thread1687167.html
Всем доброго времени суток! Прошу помочь решить вопрос с открытием папком посредством VBA. Использую такой код: Sub OpenUserFolder() sHyperLink = "\\corp.somesource.ru" 'рабочая сетевая папка' Shell "explorer.exe " & sHyperLink, vbNormalFocus End SubПапка открывается корректно, но на фоне создается новый процесс "explorer.exe". И таких процессов, соответственно, создается всё большее...
6922 / 2832 / 543
Регистрация: 19.10.2012
Сообщений: 8,645
18.03.2016, 23:10 0

Работа с большим объемом данных - VBA - Ответ 8902071

18.03.2016, 23:10. Показов 5070. Ответов 20
Метки (Все метки)

Лучший ответ Сообщение было отмечено master-artyom как решение

Решение

У меня вариант 2 отработал за 2,52, но это ведь всего лишь "полуиспользование" массива
Я предлагал ведь делать примерно так (отработало за 0,4140625)
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Вариант22()
 
Dim arr
Dim Row As Long
 
    t = Timer
    Application.DisplayAlerts = True: Application.ScreenUpdating = False ':Application.Calculation = xlManual
       
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    arr = Range(Cells(2, 1), Cells(lastRow, 1)).Value
   
    For Row = 2 To lastRow - 1
        If arr(Row, 1) <> "" Then
                    j = j + 1
            arr(j, 1) = arr(Row, 1)
        End If
    Next Row
    
    
    Application.DisplayAlerts = True: Application.ScreenUpdating = True ':Application.Calculation = xlAutomatic
    Range("J3").Resize(j, 1) = arr
    Range("J2").Value = Timer - t
    MsgBox "Готово!"
End Sub


Вернуться к обсуждению:
Работа с большим объемом данных VBA
4
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2016, 23:10
Готовые ответы и решения:

работа с большим объемом данных
большим я называю от 300000Rx50C судя по информации из диспетчера задач происходит накопление...

Работа с большим объемом данных
Всем привет! Всегда создавал коллекцию List&lt;List&lt;xxx&gt;&gt;, заносил в нее данные из txt файла, а потом...

Работа с большим объёмом данных
Приветствую всех! На днях столкнулся с такой проблемой: необходимо отправить на сервер файл...

Работа с большим объемом данных
Коллеги, подскажите по такому вопросу. Есть выборка, несколько миллионов записей. Каким образом...

20
18.03.2016, 23:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.03.2016, 23:10
Помогаю со студенческими работами здесь

Работа с большим объемом данных
Имеется загруженное изоображение с помощью opencv. Задача: вывести цвета изображения с из...

QtSerialPort Работа с большим объемом данных
Добрый день. Я пишу приложение, которое работает с последовательным портом при помощи...

Cron задание, работа с большим объемом данных
К примеру есть скрипт, который должен делать коррекцию данных на сайте. Данных много и к примеру...

Работа с большим объемом данных в реальном времени
Добрый день! Недавно решил перевести один проект с Delphi на C#. Проект связан с получением и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru