Valiku kasutamise vältimine Exceli VBA-s

Exceli VBA koodi sujuvamaks muutmine: loobumine .Valige tõhususe jaoks

Meetodi .Select kasutamist Excelis VBA-s peetakse laialdaselt halvaks tavaks, kuna see mõjutab koodi korduvkasutatavust ja tõhusust. Paljud arendajad on puudustest teadlikud, kuid neil on sageli raskusi alternatiivsete lähenemisviiside leidmisega.

Selles artiklis uurime, kuidas vältida .Valige ja keskenduge muutujate kasutamisele, et viidata sellistele objektidele nagu ActiveCell. Nendest tehnikatest aru saades ja neid rakendades saate muuta oma Exceli VBA koodi puhtamaks ja vastupidavamaks.

Exceli VBA tõhususe suurendamine, vältides .Select

Esimene skript näitab, kuidas vältida .Select meetodit, kasutades muutujaid Excel VBA konkreetsetele objektidele viitamiseks. Selles näites alustame muutujate deklareerimisest, kasutades Dim lause töölehe määratlemiseks (ws), vahemik (rng) ja üksikud lahtrid selles vahemikus (cell). Seades need muutujad Set käsku, saame määratud vahemikku otse ilma seda valimata manipuleerida. Skript läbib vahemiku iga lahtri, kasutades For Each...Next silmus, kahekordistades iga lahtri väärtuse. See lähenemisviis suurendab koodi korduvkasutatavust ja tõhusust, kuna see välistab tarbetud valikud ja keskendub otsesele rakkude manipuleerimisele.

Teine skript tutvustab sarnast kontseptsiooni, kuid keskendub väärtuste kopeerimisele ühest vahemikust teise ilma .Select meetod. Me kasutame taas Dim avaldus sihttöölehe muutujate deklareerimiseks (targetSheet), allika vahemik (sourceRange) ja sihtvahemik (targetRange). Pärast nende muutujate määramist nupuga Set käsk, kopeerib skript väärtused sourceRange juurde targetRange otse, määrates sihtvahemiku väärtuse atribuudi lähtevahemiku omale. See meetod tagab, et kood jääb puhtaks ja tõhusaks, vältides kasutamisega seotud lõkse .Select ja VBA skripti üldise jõudluse parandamine.

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

Exceli VBA valdamine: täiustatud tehnikad, mida vältida .Valige

Lisaks muutujate kasutamisele, et mööda minna .Select meetod, hõlmab veel üks tõhus tehnika selle kasutamist With avaldus. The With lause võimaldab teha ühe objektiga mitu toimingut sellele objektile korduvalt viitamata. See mitte ainult ei lihtsusta teie koodi, vaid parandab ka selle loetavust ja jõudlust. Näiteks selle asemel, et valida vahemik ja seejärel teha sellega mitu toimingut, saate need toimingud a-sse koondada With blokeerida, vältides sellega vajadust kasutada .Select.

Veel üks täiustatud meetod, mida vältida .Select kasutab Application objekt Exceli atribuutide ja meetoditega otse manipuleerimiseks. The Application objekt pakub võimalust juhtida Excelit tervikuna, võimaldades teil suhelda Exceli keskkonna erinevate elementidega neid valimata. Näiteks saate muuta aktiivset lehte või pääseda aktiivsele lahtrile otse Application objekti, lihtsustades seeläbi teie koodi ja muutes selle tõhusamaks. Need tehnikad koos muutujate ja tsüklite kasutamisega võivad märkimisväärselt täiustada teie VBA programmeerimisoskusi ning tulemuseks on paremini hooldatav ja tõhusam kood.

Exceli VBA koodi optimeerimine, vältides .Select

Esimene skript näitab, kuidas vältida .Select meetodit, kasutades muutujaid Excel VBA konkreetsetele objektidele viitamiseks. Selles näites alustame muutujate deklareerimisest, kasutades Dim lause töölehe määratlemiseks (ws), vahemik (rng) ja üksikud lahtrid selles vahemikus (cell). Seades need muutujad Set käsuga, saame määratud vahemikku otse ilma seda valimata manipuleerida. Skript läbib vahemiku iga lahtri, kasutades For Each...Next silmus, kahekordistades iga lahtri väärtuse. See lähenemisviis suurendab koodi korduvkasutatavust ja tõhusust, kuna see välistab tarbetud valikud ja keskendub otsesele rakkude manipuleerimisele.

Teine skript esitleb sarnast kontseptsiooni, kuid keskendub väärtuste kopeerimisele ühest vahemikust teise ilma .Select meetod. Me kasutame taas Dim avaldus sihttöölehe muutujate deklareerimiseks (targetSheet), allika vahemik (sourceRange) ja sihtvahemik (targetRange). Pärast nende muutujate määramist nupuga Set käsk, kopeerib skript väärtused sourceRange juurde targetRange otse, määrates sihtvahemiku väärtuse atribuudi lähtevahemiku omale. See meetod tagab, et kood jääb puhtaks ja tõhusaks, vältides kasutamisega seotud lõkse .Select ja VBA skripti üldise jõudluse parandamine.