Ja meklējat dažus no vienkāršākajiem veidiem, kā izmantot VBA Range Offset, tad šis raksts būs tā vērts. Sāksim ar veidiem, kā izmantot funkciju VBA Diapazona nobīde.

Lejupielādēt darba burtnīcu

11 veidi, kā izmantot VBA diapazona nobīdi

Man ir šāda datu tabula, kurā ir informācija par dažiem koledžas studentiem. Izmantojot šo datu kopu, es paskaidrošu, kā izmantot. VBA Diapazona nobīde.

Šim nolūkam esmu izmantojis Microsoft Excel 365 versiju, varat izmantot jebkuru citu versiju atbilstoši jūsu ērtībām.

1. metode: šūnas atlase, izmantojot VBA diapazonu

Šeit mēs izvēlēsimies šūnu, kurā ir nosaukums Daniels Defo. Šim nolūkam mēs izmantosim RANGE funkcija vietnē VBA .

Solis-01 :

➤Iet uz Izstrādātājs Cilne>> Visual Basic Iespēja

Tad Visual Basic redaktors atvērsies.

➤Iet uz Ievietot Cilne>> Modulis Iespēja

Pēc tam Modulis tiks izveidots.

Solis-02 :

➤Narakstiet šādu kodu

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

Tas atlasīs šūnas B8 .

➤Press F5

Rezultāts :

Šādā veidā iegūsiet šūnas, kurās ir Daniels Defo izvēlēts.

Lasīt vairāk: Kā lietot VBA diapazona objektu programmā Excel

2. metode: blakus esošu šūnu grupas atlase, izmantojot VBA diapazonu

Varat atlasīt virkni blakus esošu šūnu, piemēram. Skolēna vārds slejā un Rezultāts tabulas slejā, izmantojot šo metodi.

Solis-01 :

➤ Sekot Solis-01 no 1. metode

 Apakšiedaļa ContiguousCells() Range("B5:C10").Select End Sub 

Tas atlasīs šūnas no B5 uz C10 .

➤Press F5

Rezultāts :

Pēc tam jūs saņemsiet šūnas B sleja un C sleja izvēlēts.

3. metode: Nesakrītošu šūnu grupas atlase, izmantojot VBA diapazonu

Pieņemsim, ka vēlaties atlasīt skolēnus ar nosaukumu Viljams Deivids un Maikls Entonijs ieskaitot to attiecīgos E-pasta identitāte Lai atlasītu šīs nesaderīgās šūnas, varat izmantot šo metodi.

Solis-01 :

➤ Sekot Solis-01 no 1. metode

 Apakšiedaļa nonContiguous() Range("B6,D6,B9,D9").Select End Sub 

Tas atlasīs šūnas B6 , D6 , B9, un D9 .

➤Press F5

Rezultāts :

Pēc tam jūs iegūsiet šūnas, kurās ir skolēna vārds. Viljams Deivids , Maikls Entonijs, un to attiecīgie E-pasta identitāte izvēlēts.

4. metode: Nesakrītošu šūnu grupas un diapazona atlase, izmantojot VBA diapazonu

Izmantojot šo metodi, varat vienlaicīgi atlasīt šūnu diapazonu un dažas nesaskanīgas šūnas.

Solis-01 :

➤ Sekot Solis-01 no 1. metode

 Apakšiedaļa nonContiguouswithrange() Range("B5:B10,D6,D10").Select End Sub 

Tas atlasīs šūnu diapazonu diapazonā B5:B10 un pārējās divas šūnas D6 , D10 .

➤Press F5

Rezultāts :

Pēc tam jūs iegūsiet kolonnas šūnas. Skolēna vārds un divi E-pasta identitātes vietnē Viljams Deivids un Donalds Pols izvēlēts.

5. metode: diapazona atlase, izmantojot VBA diapazona nobīdi

Varat atlasīt šūnu diapazonu Skolēna vārda sleja izmantojot OFFSET funkcija .

Solis-01 :

➤ Sekot Solis-01 no 1. metode

 Apakšiedaļa selectrangeoffset() Range("A1:A6").Offset(4, 1).Select End Sub 

Sākumā, Diapazons("A1:A6") atlasīs diapazonu A1:A6 , un pēc tam Nobīde (4, 1) pārvietosies 4 rindas uz leju no šūnas A1 un 1 sleja labajā pusē. Pēc tam vienāds šūnu skaits diapazonā A1:A6 tiks izvēlēts no šejienes.

➤Press F5

Rezultāts :

Šādā veidā atlasīsiet kolonnu Skolēna vārds .

6. metode: VBA diapazona nobīde negatīvs

Varat atlasīt E-pasta identitātes sleja izmantojot šo metodi.

Solis-01 :

➤ Sekot Solis-01 no 1. metode

 Apakšpozīcija negatīvs diapazona nobīde() Range("F11:F16").Offset(-6, -2).Select End Sub 

Sākumā, Diapazons("F11:F16") atlasīs diapazonu F11:F16 , un pēc tam Nobīde (-6, -2) pārvietos 6 rindas uz augšu no šūnas F11 un 2 kolonnas kreisajā pusē. Pēc tam vienāds šūnu skaits diapazonā F11:F16 tiks izvēlēts no šejienes.

➤Press F5

Rezultāts :

Pēc tam varēsiet atlasīt kolonnu E-pasta identitāte .

Līdzīgi lasījumi:

• VBA katrai Excel diapazona šūnai (3 metodes)
• Kā Excel programmā Excel saskaitīt tekstu (7 vienkārši triki)

7. metode: Diapazona atlase attiecībā pret aktīvo šūnu

Šajā gadījumā mums ir aktīva šūna (šūna A1 ) un attiecībā uz šo šūnu mēs izvēlēsimies datu diapazonu šajā metodē.

Solis-01 :

➤ Sekot Solis-01 no 1. metode

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

Šeit, activecell ir A1

Pirmā daļa activecell.Offset(4, 1) atlasīs šūnu 4 rindas uz leju un 1 sleju pa labi no šūnas. A1 un otro daļu activecell.Offset(9, 3) atlasīs šūnu 9 rindas uz leju un 3 kolonnas pa labi no šūnas A1 .

Visbeidzot tiks atlasītas visas šūnas starp šīm divām šūnām.

➤Press F5

Rezultāts :

Pēc tam varēsiet atlasīt visu datu diapazonu.

8. metode: diapazona kopēšana

Ja vēlaties kopēt šūnu diapazonu, varat izmantot šo metodi.

Solis-01 :

➤ Sekot Solis-01 no 1. metode

 Apakšiedaļa copyrangeoffset() Range("A1:A6").Offset(4, 1).Copy End Sub 

Sākumā, Diapazons("A1:A6") atlasīs diapazonu A1:A6 , un pēc tam Nobīde (4, 1) pārvietosies 4 rindas uz leju no šūnas A1 un 1 sleja labajā pusē. Pēc tam vienāds šūnu skaits diapazonā A1:A6 tiks izvēlēts no šejienes.

Visbeidzot, tiks kopētas vērtības diapazonā B5:B10 .

➤Press F5

Rezultāts :

Pēc tam varēsiet kopēt datu diapazonu, kas atrodas Skolēna vārda sleja .

9. metode: diapazona dzēšana

Šeit mēs parādīsim, kā dzēst datu diapazonu, izmantojot VBA kods.

Solis-01 :

➤ Sekot Solis-01 no 1. metode

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

Pirmkārt, Diapazons("F11:F17") atlasīs diapazonu F11:F17 , un pēc tam Nobīde (-7, -2) pārvietos 7 rindas uz augšu no šūnas F11 un 2 kolonnas kreisajā pusē. Pēc tam vienāds šūnu skaits diapazonā F11:F17 tiks izvēlēts no šejienes.

Visbeidzot, tiek dzēsts diapazons D4:D10 .

➤Press F5

Rezultāts :

Šādā veidā jūs kopēsiet datu diapazonu, kas atrodas E-pasta identitātes sleja .

10. metode: VBA diapazona nobīdes izmantošana vērtības ievadīšanai

Šeit mums ir tukša šūna (šīs metodes paskaidrošanai mēs esam noņēmuši šīs šūnas vērtību). Skolēna vārda sleja un mēs vēlamies to aizpildīt ar nosaukumu Džozefs Maikls . Izmantojot VBA kodu mēs varam viegli ievadīt šo vērtību.

Solis-01 :

➤ Sekot Solis-01 no 1. metode

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

Pirmkārt, Diapazons("A1") atlasīs šūnas A1 , un pēc tam Nobīde (6, 1) pārvietos 6 rindas uz leju no šūnas A1 un 1 sleja uz labo pusi. Pēc tam šūnā B7 tiks atlasīts un beigās tiks ievadīta vērtība "Joseph Michael" šajā šūnā.

➤Press F5

Rezultāts :

Šādā veidā jūs iegūsiet nosaukumu Džozefs Maikls šūnā B7 .

11. metode: VBA diapazona nobīde, lai iegūtu izejas datus

Pieņemsim, ka vēlaties uzrakstīt Nodots vai Neizdevās sazināties pie skolēnu vārdiem atkarībā no Rezultātu sleja kur Pass vai Fail ir ierakstīta iekavās. Lai atrastu šo apakšrindu Rezultātu sleja un ierakstiet to Kolonna "Izturējis/neizturējis izmantot šo metodi.

Solis-01 :

➤ Sekot Solis-01 no 1. metode

 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 = "F failed" End If Next cell End Sub 

Šajā gadījumā šūnu diapazons C5:C10 ir izvēlēts Diapazons("C5:C10") kas ir Rezultātu sleja

InStr(šūnas vērtība, "Pass")> 0 ir nosacījums, kad skaitlis ir lielāks par nulli (ja šūnā ir "Pass" ), tad nākamā rinda turpināsies un blakus esošajā šūnā parādīs rezultātu kā Nodots . Šajā gadījumā blakus esošā šūna tiks izvēlēta ar šūna.Offset(0, 1) , kas nozīmē, ka tas pārvietosies 1 slejā pa labi no ievades šūnas.

Ja nosacījums kļūst nepatiess, tas nozīmē, ka šūnā nav nevienas "Pass" tad rinda zem Citādi tiks izpildīts un sniegs izejas vērtību blakus esošajā šūnā kā Neveiksmīgs .

Šī cilpa turpināsies katrai šūnai.

➤Press F5

Rezultāts :

Pēc tam jūs iegūsiet šādus rezultātus Izturējis vai neizturējis in the Izturējis/neizturējis sleja.

Prakses sadaļa

Prakses veikšanai mēs esam nodrošinājuši Prakse sadaļu, piemēram, zemāk lapā ar nosaukumu Prakse . Lūdzu, dariet to pats.

Secinājums

Šajā rakstā es centos aprakstīt vienkāršākos veidus, kā izmantot VBA efektīva diapazona nobīde programmā Excel. Ceru, ka tas jums būs noderīgs. Ja jums ir kādi ieteikumi vai jautājumi, nekautrējieties dalīties ar tiem ar mums.