В Visual Basic есть несколько методов специального назначения, позволяющих ускорить специфические операции над диапазонами ячеек. Как и функции рабочего листа, они быстрее универсальных методов Visual Basic, выполняющих те же операции.

Следующий код изменяет значение каждой ячейки в диапазоне А1:А200 сравнительно медленно:

For Each с In Worksheets(1).Range("a1:a200").Cells
═════If c.Value = 4 Then c.Value = 4.5
Next

Другой вариант, использующий метод Replace, выполняет ту же операцию значительно быстрее:

Worksheets(1). Range("a1:a200"). Replace "4", "4.5"

Еще один пример, который демонстрирует сравнительно медленный способ вставки голубого овала в каждую ячейку со значением 4 в диапазоне А1:А500:

For Each с In Worksheets(1).Range("a1:a500").Cells
═════If c.Value = 4 Then
══════════With Worksheets(1).Ovals.Add(c.Left, c.Top, c,Width, c.Height)
═══════════════.Interior. Pattern = xINone
═══════════════. Border. Colorindex = 5
══════════End With
═════End It
Next

А вот как с помощью методов Find и FindNext сделать то же самое, но гораздо быстрее:

With Worksheets(1) . Range ( "а 1 :a500")
═════Set c = .Find(4)
═════If Not c Is Nothing Then
══════════firstAddress = c.Address
══════════Do
═══════════════With Worksheets(1).Ovals.Add(c.Lett, c.Top,_
════════════════════c. Width, c. Height)
════════════════════.Interior. Pattern = xINone
════════════════════.Border.Colorindex = 5
═══════════════End With
═══════════════Set c = .FindNext(c)
══════════Loop While Not c Is Nothing And c.Address <> firstAddress
═════End If
End With

Подробнее о методах Visual Basic специального назначения см. раздел справочной системы, относящийся к объекту, с которым Вы работаете. Список всех методов Visual Basic см. на вкладке Contents (Содержание) диалогового окна Help Topics (Справочная система).

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997