Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Excel не видит заливку ячеек https://www.cyberforum.ru/vba/thread1747566.html
Всем привет. При обработке Excel не видит заливку ячеек ( а именно черный и скажем так зеленый цвет) следовательно обработка проходит не должным образом.В чем проблема? Цвета это исходные ( они...
Как менять цвет? VBA
Привет. Есть игра шашки и нужно чтобы менялся цвет шашек например с помощью InputBox вводишь цвет красный и соответственно цвет меняется на красный. Через if пытаюсь сделать ,но не получается ,просто...
VBA Wrong number of dimensions vba ошибка
Option Explicit Sub pp() Dim x(1 To 10) As Integer, y(1 To 10) As Integer, s As Single, sr As Single, i As Single, n As Single s = 0 n = 10 For i = 1 To 10 If x(i, 1) = 0 Then m1 = m1 + 1 ...
VBA Копирование построчно из Word в Exel через VBA Доброго времени суток. Задача состоит в следующем - есть файл Word и файл Excel. В ворде написан некоторый текст. Необходимо написать программу, которая сможет построчно скопировать текст в ячейки... https://www.cyberforum.ru/vba/thread1747161.html
VBA Коллекции и элементы https://www.cyberforum.ru/vba/thread1747043.html
Здравствуйте, вот такой вопрос: есть коллекция Rows, а что является элементом данной коллекции? Range("1:1")? Вот например, у коллекции Workbooks элемент Workbook. А почему у коллекции Rows, нет...
Разделить данные в нескольких ячейках на строки VBA
Добрый день! Пожалуйста помогите, решить следующую проблему: Есть таблица с данными, в которой в 2-х ячейках есть данные разделенные с помощью ;" Необходимо выделить данные из ячеек в строки ниже...
Цикл расчетов в таблице VBA
Имеется файл, где во второй таблице (правее) производятся расчеты с делением (в колонках AE, AH, AK, AN и далее) через формулы. Т.к. данные все время подгружаются в файл, формулы прописаны на...
VBA Поиск значения и переход к ячейке, VBA Доброго времени суток Я задолбалась не могу никак осуществить поиск по книге Excel такой, что первая ячейка с нужным значением активировалась бы. Задача: книга, в книге листы с названиями... https://www.cyberforum.ru/vba/thread1746937.html
VBA Скопировать только отчество из другого листа в другой где в одной ячейке находится ФИО https://www.cyberforum.ru/vba/thread1746915.html
Имеется цикл, который разбивает ФИО кот. находится в одной ячейке, нужно чтобы в другой лист копировались только отчество For i = 4 To 65536 Sheets(2).Cells(i - 1, 1).Resize(, 3) =...
VBA Где ошибка? Вот задание: 1. Mult передается массив и количество элементов, для которых нужно найти произведение. Составить программу вычисления значения функции z=произведение X(1 to 12) + произведение Y(1 to... https://www.cyberforum.ru/vba/thread1746881.html
Catstail
Модератор
25524 / 13127 / 2462
Регистрация: 12.02.2012
Сообщений: 21,484
29.05.2016, 08:22 0

Как в VBA узнать длительность операции в миллисекундах?

29.05.2016, 08:22. Просмотров 2510. Ответов 12
Метки (Все метки)

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

Решение

Вот пример кода с иcпользованием GetTickCount - замер времени на сортировку массива:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Sub Test()
 
Dim X(1 To 4000) As Integer
 
    Randomize
    
    For i% = 1 To 4000
        X(i%) = 10 * Rnd()
    Next i%
 
    t_Start& = GetTickCount
 
    QuickSort X(), 1, 4000
 
    t_End& = GetTickCount
    
    Debug.Print t_End& - t_Start&
 
End Sub
Функция GetTickCount возвращает число миллисекунд, прошедшее после загрузки ОС, и позволяет замерить временной интервал с точностью до 10 миллисек. Достаточно?

Вернуться к обсуждению:
Как в VBA узнать длительность операции в миллисекундах?
2
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2016, 08:22
Готовые ответы и решения:

Как узнать разрядность ОС VBA
здравствуйте, собственно сабж + узнать название ОС, спасибо

Как узнать пароль на VBA?
как узнать пароль пользователя при поиощи VBA

Как узнать размер экрана из VBA?
Наглухо автоматизированная база данных - требуется при запуске определить размер экрана и запустить...

Как узнать длительность аудиофайла?
Здравствуйте. Пишу аудиоплеер, работаю над косметикой, хочу сделать свой таймлайн private void...

sndPlaySound - как узнать длительность?
Я использовал следующий код, для того чтобы проиграть звуковой файл *.wav (жаль, что нельзя...

12
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.