Vyhnite sa používaniu Select v Excel VBA

Zjednodušenie kódu Excel VBA: Vypúšťanie .Vyberte pre efektívnosť

Používanie metódy .Select v programe Excel VBA sa všeobecne považuje za zlú prax, pretože má vplyv na opätovnú použiteľnosť a efektivitu kódu. Mnoho vývojárov si uvedomuje nevýhody, ale často zápasí s hľadaním alternatívnych prístupov.

V tomto článku preskúmame, ako sa vyhnúť používaniu .Select a zamerať sa na využitie premenných na referenčné objekty, ako je ActiveCell. Pochopením a použitím týchto techník môžete urobiť svoj kód Excel VBA čistejším a robustnejším.

Zvýšenie efektivity Excel VBA tým, že sa vyhnete .Select

Prvý skript ukazuje, ako sa vyhnúť používaniu .Select pomocou premenných na odkazovanie na konkrétne objekty v Excel VBA. V tomto príklade začneme deklarovaním premenných pomocou Dim príkaz na definovanie pracovného hárka (ws), rozsah (rng) a jednotlivé bunky v tomto rozsahu (cell). Nastavením týchto premenných pomocou Set príkaz, môžeme priamo manipulovať so zadaným rozsahom bez toho, aby sme ho vybrali. Skript prechádza cez každú bunku v rozsahu pomocou For Each...Next slučka, zdvojnásobenie hodnoty každej bunky. Tento prístup zvyšuje opätovnú použiteľnosť a efektivitu kódu, pretože eliminuje zbytočné selekcie a zameriava sa na priamu manipuláciu s bunkami.

Druhý skript predstavuje podobný koncept, ale zameriava sa na kopírovanie hodnôt z jedného rozsahu do druhého bez použitia .Select metóda. Opäť používame Dim príkaz na deklarovanie premenných pre cieľový pracovný hárok (targetSheet), zdrojový rozsah (sourceRange) a cieľový rozsah (targetRange). Po nastavení týchto premenných pomocou Set skript skopíruje hodnoty z sourceRange do targetRange priamo priradením vlastnosti hodnoty cieľového rozsahu k vlastnosti zdrojového rozsahu. Táto metóda zaisťuje, že kód zostane čistý a efektívny, čím sa vyhne nástrahám spojeným s používaním .Select a zlepšenie celkového výkonu skriptu 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

Zvládnutie Excel VBA: Pokročilé techniky, ktorým sa treba vyhnúť .Select

Okrem použitia premenných na obídenie .Select ďalšou účinnou technikou je použitie With vyhlásenie. The With vám umožňuje vykonávať viacero operácií na jednom objekte bez opakovaného odkazovania na tento objekt. To nielen zjednoduší váš kód, ale tiež zlepší jeho čitateľnosť a výkon. Napríklad namiesto výberu rozsahu a vykonania viacerých akcií na ňom môžete tieto akcie zabaliť do a With blok, čím sa vyhnete potrebe používania .Select.

Ďalšia pokročilá metóda, ktorej sa treba vyhnúť .Select používa Application objekt na priamu manipuláciu s vlastnosťami a metódami Excelu. The Application objekt poskytuje spôsob, ako ovládať Excel ako celok, čo vám umožňuje interagovať s rôznymi prvkami prostredia Excelu bez ich výberu. Môžete napríklad zmeniť aktívny hárok alebo pristupovať k aktívnej bunke priamo cez Application objekt, čím zefektívnite váš kód a zefektívnite ho. Tieto techniky v kombinácii s použitím premenných a slučiek môžu výrazne zlepšiť vaše programovacie zručnosti vo VBA a viesť k lepšiemu udržiavateľnému a výkonnejšiemu kódu.

Optimalizácia Excel VBA kódu tým, že sa vyhnete .Select

Prvý skript ukazuje, ako sa vyhnúť používaniu .Select pomocou premenných na odkazovanie na konkrétne objekty v Excel VBA. V tomto príklade začneme deklarovaním premenných pomocou Dim príkaz na definovanie pracovného hárka (ws), rozsah (rng) a jednotlivé bunky v tomto rozsahu (cell). Nastavením týchto premenných pomocou Set príkaz, môžeme priamo manipulovať so zadaným rozsahom bez toho, aby sme ho vybrali. Skript prechádza cez každú bunku v rozsahu pomocou For Each...Next slučka, zdvojnásobenie hodnoty každej bunky. Tento prístup zvyšuje opätovnú použiteľnosť a efektivitu kódu, pretože eliminuje zbytočné selekcie a zameriava sa na priamu manipuláciu s bunkami.

Druhý skript predstavuje podobný koncept, ale zameriava sa na kopírovanie hodnôt z jedného rozsahu do druhého bez použitia .Select metóda. Opäť používame Dim príkaz na deklarovanie premenných pre cieľový pracovný hárok (targetSheet), zdrojový rozsah (sourceRange) a cieľový rozsah (targetRange). Po nastavení týchto premenných pomocou Set skript skopíruje hodnoty z sourceRange do targetRange priamo priradením vlastnosti hodnoty cieľového rozsahu k vlastnosti zdrojového rozsahu. Táto metóda zaisťuje, že kód zostane čistý a efektívny, čím sa vyhne nástrahám spojeným s používaním .Select a zlepšenie celkového výkonu skriptu VBA.