Suurtes andmebaasides kulutad suurema osa oma ajast vahemike ja lahtritega tegelemisele. Mõnikord pead kordama sama toimingut suurtes vahemikes või suurel hulgal lahtrites. See tapab samal ajal sinu aega ja vähendab sinu tõhusust. Nutikas lahendus sellele probleemile on ehitada üles VBA programmeerimiskood mis läbib iga vahemiku iga lahtri ja teostab teie poolt juhitud sama tegevuse. Täna selles artiklis arutame, kuidas teha VBA-d iga Exceli vahemiku iga lahtri jaoks.

Lae alla praktiline töövihik

Lae alla see harjutusvihik, et harjutada ülesannet selle artikli lugemise ajal.

3 sobivat viisi, kuidas rakendada VBA-d iga Exceli vahemiku iga lahtri jaoks

Kasutades VBA koodi, saab sama valemit täita iga vahemiku või veeru või rea iga lahtri jaoks. Selles jaotises läheme läbi kõik jaotised.

1. Rakendage VBA-d iga vahemiku iga lahtri jaoks

Mõelge olukorrale, kus peate rakendama sama VBA-koodi iga lahtri kohta antud vahemikus ( B3:F12 ). Selleks koostame VBA-koodi. Juhised on esitatud allpool

1. samm:

• Kõigepealt lisame käsunupu, et lihtsustada meie tööd. Mine oma Arendaja vahekaart , valige Sisesta , ja klõpsake käsunupule, et saada üks.

• Meil on meie käsunupp.

• Paremklõpsake käsunupul, et avada valikud. Valige ja klõpsake nuppu Omadused et muuta mõningaid valikuid.

• Muudame käsunupu pealkirja. Siinkohal muudame nime, " Vajuta siia ".

2. samm:

• Nüüd topeltklõpsake käsunupul, et avada VBA Moodul Siin kirjutame ülesande jaoks oma VBA-koodi.

• Kõigepealt deklareerime kaks muutujat. Nimetame vahemiku objekte CL ja Rng Te võite neid nimetada nii, nagu soovite.

 Dim CL As Range Dim Rng As Range 

• Määrake selle käsuga konkreetne vahemik,

Set Rng = Worksheets("VBA1").Range("B3:F12")

• Siin VBA1 on meie töölehe nimi ja B3:F12 on meie määratletud vahemik.

• Nüüd kasutame koodi, et teostada läbi iga lahtri vahemikus. Kood on,

 For Each CL In Rng CL.Value = 100 Next CL 

• Väärtus = 100 viitab sellele, et see naaseb 100 iga lahtri kohta antud vahemikus.

• Nii et meie lõplikuks koodiks saab,

 Private Sub CommandButton1_Click () Dim CL As Range Dim Rng As Range Set Rng = Worksheets("VBA1").Range("B3:F12") For Each CL In Rng CL.Value = 100 Next CL End Sub 

• Mine oma põhilisele töölehele ja klõpsa käsunupule, et käivitada VBA iga vahemiku lahtri jaoks.

3. samm:

• Nagu numbrilisi väärtusi, võime ka tekstiväärtusi panna igasse vahemiku lahtrisse. Sellisel juhul mine VBA aknasse ja sisesta 100 asemel tekstiväärtus, mida soovid läbida. Muudetud rida on järgmine

 CL.Value = "ExcelWIKI" 

• Vajutage käsunupule ja VBA-kood tagastab selle teksti väärtuse iga vahemiku lahtri kohta.

4. samm:

• Selles sammus kaevume veidi sügavamale. Oletame, et soovime esile tõsta iga tühja lahtri meie vahemikus.

• Selleks lisage olemasolevale koodile uus tingimus. Uus valem on,

 If CL.Value = " " Then CL.Interior.ColorIndex = 3 End If 

• See uus kood tõstab tühja lahtri esile punase värviga. Seega on kogu kood,

 Private Sub CommandButton1_Click () Dim CL As Range Dim Rng As Range Set Rng = Worksheets("VBA1").Range("B3:F12") For Each CL In Rng If CL.Value = " " Then CL.Interior.ColorIndex = 3 End If Next CL End Sub 

• Saage tulemus, klõpsates käsunupule.

Sarnased lugemised:

• Kuidas kasutada VBA vahemiku objekti Excelis (5 omadust)
• VBA vahemiku nihutamise kasutamine (11 võimalust)
• Kuidas lugeda teksti Excelis (7 lihtsat trikki)

2. VBA-koodi sisestamine vahemiku iga veeru lahtri jaoks

Me saame VBA-koodi käivitada ka iga veeru lahtri jaoks. Oletame, et meil on veerg, mis sisaldab numbreid ja meil on vaja värvida väärtusi, mis on väiksemad kui 10. Me koostame VBA-koodi, et käivitada iga veeru lahtri jaoks.

1. samm:

• Looge käsunupp, järgides arutlusel olnud juhiseid.

2. samm:

• VBA akna avamiseks tehke topeltklõps käsunupul.
• Me deklareerime muutuja nimega " c " tüübiga long. Me kasutame siin muutujat tüüpi Long, sest muutujad Long on suurema mahutavusega kui muutujad Integer.

 Dim c As Long 

• Seejärel lisage koodirida, mis muudab meie veeru kõigi lahtrite kirjavärvi mustaks.

 Columns(1).Font.Color = vbBlack 

• Sisestage selle koodi tsükkel.

 For c = 1 To Rows.Count Next c 

• Selles etapis sisestame tingimuse, et värvida väärtused, mis on madalamad kui lahtri C4 väärtus (10). Selleks sisestame järgmise koodi.

 If Cells(c, 1).Value <Range("C4").Value And Not IsEmpty(Cells(c, 1).Value) Then Cells(c, 1).Font.Color = vbRed End If 

• Lõplik kood on seega järgmine,

 Private Sub CommandButton1_Click () Dim c As Long Columns(1).Font.Color = vbBlack For c = 1 To Rows.Count If Cells(c, 1).Value <Range("C4").Value And Not IsEmpty(Cells(c, 1).Value) Then Cells(c, 1).Font.Color = vbRed End If Next c End Sub 

• VBA käivitub ja näitab tulemusi, kui klõpsate käsunupule.

3. Kirjutage VBA-kood iga rea rea iga lahtri kohta vahemikus

Me võime käivitada VBA-koodi ka iga rea lahtri jaoks. Antud reas peame sooritama sama toimingu rea iga lahtri jaoks.

1. samm:

• Lisage käsunupp ja muutke selle nimi " Vajuta siia! "

• VBA akna avamiseks tehke nupul topeltklõps. Kirjutage allpool esitatud VBA-kood.

 Private Sub CommandButton1_Click () Dim r As Range Dim MyString As String 'Iga rea lahtri jaoks ja rakendame kollast värvi For Each r In Range("B3:F3").Rows r.Interior.ColorIndex = 6 Next End Sub 

• Kood läbib rea iga lahtri ja täidab iga lahtri kollase värviga.

• Vajutage nupule ja meie tulemus on siin.

Kiire märkmete tegemine

👉 Kui sul ei ole arendaja vahekaart nähtav, saad selle aktiveerida selle juhise abil.

Kohandatud kiirtööriistariba → Rohkem käsklusi → Kohandada lint → Arendaja → OK

Kokkuvõte

Oleme läbi käinud kolm erinevat lähenemist VBA käivitamiseks iga vahemiku lahtri jaoks. Olete väga oodatud kommenteerima, kui teil on küsimusi või päringuid. Võite vaadata ka meie teisi Exceli ülesannetega seotud artikleid!