Уникнення використання Select у Excel VBA

Оптимізація коду Excel VBA: відмова від . Виберіть для ефективності

Використання методу .Select у Excel VBA вважається поганою практикою через його вплив на повторне використання коду та ефективність. Багато розробників знають про недоліки, але часто не можуть знайти альтернативні підходи.

У цій статті ми розглянемо, як уникнути використання .Select і зосередимося на використанні змінних для посилань на такі об’єкти, як ActiveCell. Розуміючи та застосовуючи ці методи, ви можете зробити свій код Excel VBA чистішим і надійнішим.

Підвищення ефективності Excel VBA шляхом уникнення .Select

Перший сценарій демонструє, як уникнути використання .Select шляхом використання змінних для посилань на певні об’єкти в Excel VBA. У цьому прикладі ми починаємо з оголошення змінних за допомогою Dim оператор для визначення аркуша (ws), діапазон (rng), а також окремі комірки в цьому діапазоні (cell). Встановивши ці змінні за допомогою Set ми можемо безпосередньо керувати вказаним діапазоном, не вибираючи його. Сценарій проходить по кожній комірці в діапазоні за допомогою For Each...Next цикл, подвоюючи значення кожної комірки. Цей підхід підвищує можливість повторного використання та ефективність коду, оскільки він усуває непотрібні виділення та зосереджується на прямих маніпуляціях із комірками.

Другий сценарій демонструє подібну концепцію, але зосереджується на копіюванні значень з одного діапазону в інший без використання .Select метод. Знову використовуємо Dim оператор для оголошення змінних для цільового аркуша (targetSheet), вихідний діапазон (sourceRange), а цільовий діапазон (targetRange). Після встановлення цих змінних за допомогою Set сценарій копіює значення з sourceRange до targetRange безпосередньо шляхом призначення властивості значення цільового діапазону властивості вихідного діапазону. Цей метод гарантує, що код залишається чистим і ефективним, уникаючи пасток, пов’язаних з використанням .Select і покращення загальної продуктивності сценарію VBA.

Sub AvoidSelectWithVariables()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    ' Set worksheet and range variables
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    ' Loop through each cell in the range
    For Each cell In rng
        ' Perform actions on each cell directly
        cell.Value = cell.Value * 2
    Next cell
End Sub

Sub RefactorWithoutSelect()
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    ' Define the worksheet and ranges
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    Set sourceRange = targetSheet.Range("B1:B10")
    Set targetRange = targetSheet.Range("C1:C10")
    ' Copy values from source to target range without selecting
    targetRange.Value = sourceRange.Value
End Sub

Освоєння Excel VBA: просунуті методи, яких слід уникати .Select

На додаток до використання змінних для обходу .Select інший ефективний метод передбачає використання With заява. The With Інструкція дозволяє виконувати кілька операцій над одним об’єктом без повторних посилань на цей об’єкт. Це не тільки спрощує ваш код, але й покращує його читабельність і продуктивність. Наприклад, замість того, щоб вибирати діапазон і виконувати над ним кілька дій, ви можете обернути ці дії в a With блокувати, таким чином уникаючи необхідності використання .Select.

Ще один передовий метод, якого слід уникати .Select використовує Application об’єкт для безпосереднього керування властивостями та методами Excel. The Application об’єкт забезпечує спосіб керування Excel загалом, дозволяючи вам взаємодіяти з різними елементами середовища Excel, не вибираючи їх. Наприклад, ви можете змінити активний аркуш або отримати доступ до активної клітинки безпосередньо через Application об’єкт, таким чином спрощуючи ваш код і роблячи його більш ефективним. Ці прийоми, у поєднанні з використанням змінних і циклів, можуть значно покращити ваші навички програмування на VBA та призвести до більш зручного та продуктивного коду.

Оптимізація коду Excel VBA шляхом уникнення .Select

Перший сценарій демонструє, як уникнути використання .Select шляхом використання змінних для посилань на певні об’єкти в Excel VBA. У цьому прикладі ми починаємо з оголошення змінних за допомогою Dim оператор для визначення аркуша (ws), діапазон (rng), а також окремі комірки в цьому діапазоні (cell). Встановивши ці змінні за допомогою Set ми можемо безпосередньо керувати вказаним діапазоном, не вибираючи його. Сценарій проходить по кожній комірці в діапазоні за допомогою For Each...Next цикл, подвоюючи значення кожної комірки. Цей підхід підвищує можливість повторного використання та ефективність коду, оскільки він усуває непотрібні виділення та зосереджується на прямих маніпуляціях із комірками.

Другий сценарій демонструє подібну концепцію, але зосереджується на копіюванні значень з одного діапазону в інший без використання .Select метод. Знову використовуємо Dim оператор для оголошення змінних для цільового аркуша (targetSheet), вихідний діапазон (sourceRange), а цільовий діапазон (targetRange). Після встановлення цих змінних за допомогою Set сценарій копіює значення з sourceRange до targetRange безпосередньо шляхом призначення властивості значення цільового діапазону властивості вихідного діапазону. Цей метод гарантує, що код залишається чистим і ефективним, уникаючи пасток, пов’язаних з використанням .Select і покращення загальної продуктивності сценарію VBA.