Selectin käytön välttäminen Excel VBA:ssa

Excelin VBA-koodin virtaviivaistaminen: Irtautuminen .Valitse tehokkuuden vuoksi

.Select-menetelmän käyttöä Excel VBA:ssa pidetään yleisesti huonona käytäntönä, koska se vaikuttaa koodin uudelleenkäytettävyyteen ja tehokkuuteen. Monet kehittäjät ovat tietoisia haitoista, mutta heillä on usein vaikeuksia löytää vaihtoehtoisia lähestymistapoja.

Tässä artikkelissa tutkimme, kuinka vältät .Selectin käyttämisen ja keskity käyttämään muuttujia viitattaessa objekteihin, kuten ActiveCell. Ymmärtämällä ja soveltamalla näitä tekniikoita voit tehdä Excel VBA -koodistasi puhtaamman ja kestävämmän.

Excel VBA -tehokkuuden parantaminen välttämällä .Select

Ensimmäinen skripti osoittaa, kuinka välttää .Select menetelmää käyttämällä muuttujia viittaamaan tiettyihin objekteihin Excel VBA:ssa. Tässä esimerkissä aloitamme ilmoittamalla muuttujat käyttämällä Dim lauseke laskentataulukon määrittelemiseksi (ws), alue (rng) ja yksittäiset solut tällä alueella (cell). Asettamalla nämä muuttujat Set -komennolla, voimme muokata määritettyä aluetta suoraan valitsematta sitä. Skripti kiertää alueen jokaisen solun läpi käyttämällä For Each...Next silmukan, joka kaksinkertaistaa kunkin solun arvon. Tämä lähestymistapa parantaa koodin uudelleenkäytettävyyttä ja tehokkuutta, koska se eliminoi tarpeettomat valinnat ja keskittyy suoraan solumanipulaatioon.

Toinen skripti esittelee samanlaisen konseptin, mutta keskittyy kopioimaan arvoja alueelta toiselle ilman .Select menetelmä. Käytämme jälleen Dim lauseke muuttujien ilmoittamiseksi kohdetaulukkoa varten (targetSheet), lähdealue (sourceRange), ja kohdealue (targetRange). Kun olet asettanut nämä muuttujat Set komento, komentosarja kopioi arvot sourceRange to targetRange suoraan määrittämällä kohdealueen arvo-ominaisuuden lähdealueen arvo-ominaisuuden. Tämä menetelmä varmistaa, että koodi pysyy puhtaana ja tehokkaana välttäen käyttöön liittyvät sudenkuopat .Select ja parantaa VBA-skriptin yleistä suorituskykyä.

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:n hallitseminen: kehittyneitä tekniikoita välttämiseksi .Valitse

Sen lisäksi, että käytät muuttujia ohittamaan .Select menetelmä, toinen tehokas tekniikka sisältää käyttämällä With lausunto. The With lausekkeen avulla voit suorittaa useita toimintoja yhdelle objektille ilman toistuvaa viittaamista kyseiseen objektiin. Tämä ei vain yksinkertaista koodiasi, vaan myös parantaa sen luettavuutta ja suorituskykyä. Esimerkiksi sen sijaan, että valitsisit alueen ja suoritat sille useita toimintoja, voit rivittää kyseiset toiminnot a-alueelle With estää siten käytön tarpeen .Select.

Toinen edistynyt tapa välttää .Select käyttää Application objekti manipuloidaksesi Excelin ominaisuuksia ja menetelmiä suoraan. The Application Objekti tarjoaa tavan hallita Exceliä kokonaisuutena, jolloin voit olla vuorovaikutuksessa Excel-ympäristön eri elementtien kanssa niitä valitsematta. Voit esimerkiksi vaihtaa aktiivista taulukkoa tai päästä aktiiviseen soluun suoraan Application objektia, mikä virtaviivaistaa koodiasi ja tekee siitä tehokkaampaa. Nämä tekniikat yhdistettynä muuttujien ja silmukoiden käyttöön voivat parantaa merkittävästi VBA-ohjelmointitaitojasi ja johtaa parempaan ylläpidettävään ja tehokkaampaan koodiin.

Excel VBA -koodin optimointi välttämällä .Select

Ensimmäinen skripti osoittaa, kuinka välttää .Select menetelmää käyttämällä muuttujia viittaamaan tiettyihin objekteihin Excel VBA:ssa. Tässä esimerkissä aloitamme ilmoittamalla muuttujat käyttämällä Dim lauseke laskentataulukon määrittelemiseksi (ws), alue (rng) ja yksittäiset solut tällä alueella (cell). Asettamalla nämä muuttujat Set -komennolla, voimme muokata määritettyä aluetta suoraan valitsematta sitä. Skripti kiertää alueen jokaisen solun läpi käyttämällä For Each...Next silmukan, joka kaksinkertaistaa kunkin solun arvon. Tämä lähestymistapa parantaa koodin uudelleenkäytettävyyttä ja tehokkuutta, koska se eliminoi tarpeettomat valinnat ja keskittyy suoraan solumanipulaatioon.

Toinen skripti esittelee samanlaisen konseptin, mutta keskittyy kopioimaan arvoja alueelta toiselle ilman .Select menetelmä. Käytämme jälleen Dim lauseke muuttujien ilmoittamiseksi kohdetaulukkoa varten (targetSheet), lähdealue (sourceRange), ja kohdealue (targetRange). Kun olet asettanut nämä muuttujat Set komento, komentosarja kopioi arvot sourceRange to targetRange suoraan määrittämällä kohdealueen arvo-ominaisuuden lähdealueen arvo-ominaisuuden. Tämä menetelmä varmistaa, että koodi pysyy puhtaana ja tehokkaana välttäen käyttöön liittyvät sudenkuopat .Select ja parantaa VBA-skriptin yleistä suorituskykyä.