Тестування швидкості читання та запису діапазонів

Книжка: Excel. Трюки та ефекти

Тестування швидкості читання та запису діапазонів

У процесі роботи з електронними таблицями часто доводиться переносити значення масиву в діапазон або з діапазону масив. При цьому швидкість отримання даних з діапазону зазвичай вища за швидкість запису. За допомогою трюка, який ми зараз розглянемо, можна тестувати швидкість запису даних масиву в діапазоні та перенесення цих даних назад у масив.

Лістинг 2.42. Тестування швидкості читання та запису діапазонів

Dim alngData() As Long 'Масив з числами

Dim lngCount As Long ' Кількість елементів у масиві

Dim dtStart As Date ' Зберігає час (і навіть дату)

початку _ тестування

Dim strArrayToTable As String ' Час запису до таблиці

Dim strTableToArray As String Час читання з таблиці

Dim strMessage As String

' Підготовка діапазону осередків

'Введення розміру масиву, формування масиву заданого розміру

lngCount = InputBox(«Введіть кількість елементів»)

ReDim alngData(1 To lngCount)

' Заповнення масиву даними

для i = 1 до lngCount

' Перенесення масиву в таблицю

для i = 1 до lngCount

strArrayToTable = Format (Timer – dtStart, "00:00")

' Читання даних з таблиці назад до масиву

для i = 1 до lngCount

alngData(i) = Cells(i, 1)

strTableToArray = Format (Timer – dtStart, "00:00")

' Виведення на екран результатів тестування

strMessage = "Запис: " & strArrayToTable & vbCrLf & _

MsgBox strMessage, , lngCount & «елементів»