Kui otsite kõige lihtsamaid viise, kuidas kasutada VBA Range Offset, siis on see artikkel seda väärt. Alustame sellest, kuidas kasutada VBA Vahemiku nihutamine.

Lae alla töövihik

11 viisi VBA vahemiku nihutamise kasutamiseks

Mul on järgmine andmetabel, mis sisaldab mõningaid kolledži üliõpilaste andmeid. Selle andmestiku abil selgitan, kuidas kasutada VBA Range Offset.

Selleks olen kasutanud Microsoft Excel 365 versiooni, võite kasutada mis tahes muid versioone vastavalt oma mugavusele.

Meetod-1: Raku valimine VBA vahemiku abil

Siinkohal valime lahtri, mis sisaldab nime Daniel Defoe. Selleks kasutame me RANGE funktsioon aadressil VBA .

Step-01 :

➤Sealt edasi Arendaja Tab>> Visual Basic Valik

Siis on Visual Basic toimetaja avaneb.

➤Sealt edasi Sisesta Tab>> Moodul Valik

Pärast seda on Moodul luuakse.

Step-02 :

➤ Kirjutage järgmine kood

 Sub SelectCell() Range("B8").Select End Sub 

See valib lahtri B8 .

➤Press F5

Tulemus :

Sel viisil saate lahtri, mis sisaldab Daniel Defoe valitud.

Loe edasi: Kuidas kasutada VBA vahemiku objekti Excelis

Meetod-2: VBA vahemiku abil kõrvuti asetsevate lahtrite rühma valimine

Saate valida kõrvuti asetsevate lahtrite vahemiku, nagu näiteks Õpilase nimi veerg ja Tulemus veergu järgmises tabelis, järgides seda meetodit.

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub ContiguousCells() Range("B5:C10").Select End Sub 

See valib lahtrid alates B5 aadressile C10 .

➤Press F5

Tulemus :

Pärast seda saad rakud Veerg B ja Veerg C valitud.

Meetod-3: Mitte-ühenduvate lahtrite rühma valimine VBA vahemiku abil

Oletame, et soovite valida õpilased nimega William David ja Michael Anthony sealhulgas nende vastavad E-posti aadress Nende mittekonfidentsiaalsete rakkude valimiseks võite järgida järgmist meetodit.

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub nonContiguous() Range("B6,D6,B9,D9").Select End Sub 

See valib rakud B6 , D6 , B9, ja D9 .

➤Press F5

Tulemus :

Seejärel saate lahtrid, mis sisaldavad õpilase nime. William David , Michael Anthony, ja nende vastavad E-posti identifikaator valitud.

Meetod-4: mitteühenduvate lahtrite rühma ja vahemiku valimine VBA vahemiku abil

Selle meetodi abil saate valida üheaegselt rakkude vahemiku ja mõned mitteühenduvad lahtrid.

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub nonContiguouswithrange() Range("B5:B10,D6,D10").Select End Sub 

See valib vahemikus olevate lahtrite vahemiku B5:B10 ja ülejäänud kaks lahtrit D6 , D10 .

➤Press F5

Tulemus :

Pärast seda saate lahtrisse lahtrid veerus Õpilase nimi ja kaks E-posti tunnused . William David ja Donald Paul valitud.

Meetod-5: Vahemiku valimine VBA vahemiku nihutamise abil

Saate valida rakkude vahemiku Õpilase nime veerg kasutades OFFSET funktsioon .

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub selectrangeoffset() Range("A1:A6").Offset(4, 1).Select End Sub 

Alguses, Range("A1:A6") valib vahemiku A1:A6 ja seejärel Offset(4, 1) liigub 4 rida allapoole lahtrist A1 ja 1 veerg paremale poole. Pärast seda on võrdne arv lahtreid vahemikus A1:A6 valitakse siit.

➤Press F5

Tulemus :

Sel viisil valite veeru Õpilase nimi .

Meetod-6: VBA Range Offset Negatiivne

Saate valida E-posti ID veerg järgides seda meetodit.

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub negativerangeoffset() Range("F11:F16").Offset(-6, -2).Select End Sub 

Alguses, Range("F11:F16") valib vahemiku F11:F16 ja seejärel Offset(-6, -2) liigub 6 rida ülespoole lahtrist F11 ja 2 veergu vasakule poole. Pärast seda on võrdne arv lahtreid vahemikus F11:F16 valitakse siit.

➤Press F5

Tulemus :

Pärast seda saate valida veeru E-posti identifikaator .

Sarnased lugemised:

• VBA iga Exceli vahemiku iga lahtri jaoks (3 meetodit)
• Kuidas lugeda teksti Excelis (7 lihtsat trikki)

Meetod-7: Vahemiku valimine aktiivse lahtri suhtes

Siin on meil aktiivne rakk (rakk A1 ) ja selle lahtri suhtes valime selle meetodi abil andmevahemiku.

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub actvcell() Range(activecell.Offset(4, 1), activecell.Offset(9, 3)).Select End Sub 

Siin, activecell on A1

Esimene osa activecell.Offset(4, 1) valib lahtri 4 rida allapoole ja 1 veerg paremale lahtrist A1 ja teine osa activecell.Offset(9, 3) valib lahtri 9 rida allapoole ja 3 veergu paremale lahtrist A1 .

Lõpuks valitakse kõik nende kahe lahtri vahelised lahtrid.

➤Press F5

Tulemus :

Seejärel saate valida kogu andmevälja.

Meetod-8: Vahemiku kopeerimine

Kui soovite kopeerida rakkude vahemikku, siis võite järgida seda meetodit.

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub copyrangeoffset() Range("A1:A6").Offset(4, 1).Copy End Sub 

Alguses, Range("A1:A6") valib vahemiku A1:A6 ja seejärel Offset(4, 1) liigub 4 rida allapoole lahtrist A1 ja 1 veerg paremale poole. Pärast seda on võrdne arv lahtreid vahemikus A1:A6 valitakse siit.

Lõpuks kopeerib see väärtused vahemikus B5:B10 .

➤Press F5

Tulemus :

Pärast seda on võimalik kopeerida andmevälja sisse Õpilase nime veerg .

Meetod-9: Vahemiku kustutamine

Siinkohal näitame, kuidas kustutada andmete vahemikku, kasutades selleks VBA kood.

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub dltrangeoffset() Range("F11:F17").Offset(-7, -2).Delete End Sub 

Esiteks, Range("F11:F17") valib vahemiku F11:F17 ja seejärel Offset(-7, -2) liigub 7 rida ülespoole lahtrist F11 ja 2 veergu vasakule poole. Pärast seda on võrdne arv lahtreid vahemikus F11:F17 valitakse siit.

Lõpuks kustutab see vahemiku D4:D10 .

➤Press F5

Tulemus :

Sel viisil kopeerite andmevälja sisse E-posti ID veerg .

Meetod-10: VBA vahemiku nihutamise kasutamine väärtuse sisestamiseks

Siin on meil tühi lahter ( oleme selle meetodi selgitamiseks eemaldanud selle lahtri väärtuse) lahtris Õpilase nime veerg ja me tahame seda täita nimega Joseph Michael Kasutades VBA koodi saame selle väärtuse hõlpsasti sisestada.

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub valuerangeoffset() Range("A1").Offset(6, 1).Value = "Joseph Michael" End Sub 

Esiteks, Range("A1") valib lahtri A1 ja seejärel Offset(6, 1) liigub 6 rida allapoole lahtrist A1 ja 1 veerg paremale poole. Pärast seda on lahter B7 valitakse ja lõpuks sisestatakse väärtus "Joseph Michael" selles lahtris.

➤Press F5

Tulemus :

Sel viisil saate nime Joseph Michael lahtris B7 .

Meetod-11: VBA vahemiku nihutamise kasutamine väljundi saamiseks

Oletame, et soovite kirjutada Läbitud või Ei vastanud õpilaste nimedele sõltuvalt Tulemuse veerg kus Pass või Fail on kirjutatud sulgudes. Et leida see alamsõna sisse Tulemuse veerg ja kirjutage see üles Passiivne / mittepassiivne veerg järgige seda meetodit.

Step-01 :

➤Follow Step-01 aadressilt Meetod-1

 Sub CheckSubstring() Dim cell As Range For Each cell In Range("C5:C10") If InStr(cell.value, "Pass")> 0 Then cell.Offset(0, 1).value = "Passed" Else cell.Offset(0, 1).value = "Failed" End If Next cell End Sub 

Siin on lahtri vahemik C5:C10 valitakse Range("C5:C10") mis on Tulemuse veerg

InStr(cell. value, "Pass")> 0 on tingimus, mille puhul number on suurem kui null (kui lahter sisaldab "Pass" ), siis jätkub järgmine rida ja annab kõrvalolevasse lahtrisse väljundiks Läbitud Siinkohal valitakse naaberraku poolt valitud cell.Offset(0, 1) , mis tähendab, et see liigub 1 veeru võrra paremale sisendruutu.

Kui tingimus muutub vale tähendab, et lahter ei sisalda ühtegi "Pass" siis rida all Muidu käivitub ja annab väljundväärtuse kõrvalolevas lahtris kui Ebaõnnestunud .

See tsükkel jätkub iga lahtri puhul.

➤Press F5

Tulemus :

Seejärel saate väljundid Läbitud või läbikukkunud aastal Passiivne / mittepassiivne veerus.

Praktika sektsioon

Selleks, et ise harjutada, on meil olemas Praktika lõik nagu allpool lehel nimega Praktika Palun tehke seda ise.

Kokkuvõte

Selles artiklis püüdsin katta kõige lihtsamaid viise, kuidas kasutada VBA vahemiku nihutamine Excelis tõhusalt. Loodan, et see on teile kasulik. Kui teil on ettepanekuid või küsimusi, jagage neid meiega.