• brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Тема: Какое значение считывается из ячейки листа Excel быстрей: .Text или .Value?

Много приходится считывать из таблиц Excel.
Какое значение считывается из ячейки листа Excel быстрей: .Text или .Value? Может быть кто-то анализировал?

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Какое значение считывается из ячейки листа Excel быстрей: .Text или .Value?

> brigval
Проверь сам
Для Value:

Sub testval()
Dim a
a = Timer
Dim s As Variant
Dim cel As Range
For Each cel In Worksheets(1).Range("A1:B1000")
s = cel.Value
Next
MsgBox Timer - a
Debug.Print Timer - a
End Sub '-> Result 1,5625

Для текста:

Sub testtext()
Dim a
a = Timer
Dim s As Variant
Dim cel As Range
For Each cel In Worksheets(1).Range("A1:B1000")
s = cel.Text
Next
MsgBox Timer - a
Debug.Print Timer - a
End Sub '-> Result 3,125

Текст в 2 раза медленней, видимо из-за встроенного
преобразования типов
~'J'~

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Какое значение считывается из ячейки листа Excel быстрей: .Text или .Value?

> Fatty
Спасибо.
Я правда после вопроса и сам собразил, что могу проверить.

Sub eee()
   Dim i As Long
   Dim stext As String
   Dim tmr As Single
   tmr = Timer
   With ThisWorkbook.ActiveSheet
      For i = 0 To 1000000
         stext = .Range("D7").Value
      Next
      MsgBox Timer - tmr
      tmr = Timer
      For i = 0 To 1000000
        stext = .Range("D7").Text
      Next
      MsgBox Timer - tmr
   End With
End Sub

При счывании из одной ячейки считывание Text на 50% медленне, чем считывание Value. То есть составляет, примерно, 3/2 от времени для Value