Ynhâldsopjefte
Yn grutte databases hawwe jo it measte fan jo tiid bestege oan it omgean mei berik en sellen. Soms moatte jo deselde aksje werhelje yn grutte berik of in grut oantal sellen. Dit deadet tagelyk jo tiid en ferminderet jo effisjinsje. De tûke oplossing foar dit probleem is om in VBA-programmearringskoade te bouwen dy't troch elke sel yn it berik rint en deselde aksje útfiere dy't troch jo rjochte is. Hjoed yn dit artikel sille wy beprate hoe't jo VBA dwaan foar elke sel yn berik yn Excel.
Download Practice Workbook
Download dit praktykboek om de taak út te oefenjen wylst jo dit artikel lêze.
VBA-koade foar elke sel yn in berik yn Excel.xlsx
3 geskikte manieren om VBA oan te passen foar elke sel yn in berik yn Excel
Mei in VBA-koade kinne jo deselde formule útfiere foar elke sel yn in berik as in kolom of in rige. Yn dizze paragraaf sille wy troch alle seksjes gean.
1. Tapasse VBA foar elke sel yn berik
Besjoch in situaasje wêryn jo deselde VBA-koade moatte tapasse foar elke sel yn in opjûne berik ( B3:F12 ). Om dit te dwaan sille wy in VBA-koade bouwe. De ynstruksjes wurde hjirûnder jûn
Stap 1:
- Earst sille wy in kommandoknop ynfoegje om ús taak te ferienfâldigjen . Gean nei jo ûntwikkelderstab , selektearje Ynfoegje , en klikje op de kommandoknop om ien te krijen.
- Wy hawwe ús befel krigenknop.
- Rjochtsklik op de kommandoknop om opsjes te iepenjen. Selektearje en klikje op Eigenskippen om guon opsjes te feroarjen.
- Feroarje de titel fan de kommando knop. Hjir feroarje wy de namme yn " Klik hjir ".
Stap 2:
- Dûbelklikje no op de kommandoknop om de VBA Module te iepenjen. Hjir sille wy ús VBA-koade foar de taak opskriuwe.
- Earst sille wy twa fariabelen ferklearje. Wy neame de berikobjekten CL en Rng . Jo kinne se neame lykas jo wolle.
7555
- Twis spesifyk berik troch dit kommando,
Set Rng = Wurkblêden(“VBA1”).Range(“B3:F12”)
- Hjir is VBA1 ús wurkblêdnamme en B3:F12 is ús definieare berik.
- No sille wy de koade brûke om troch elke sel yn it berik út te fieren. De koade is,
6899
- Wearde = 100 ferwiist dat it 100 foar elke sel yn it opjûne berik werombringt.
- Dat ús definitive koade wurdt,
5958
- Gean nei jo haadwurkblêd en klikje op de kommandoknop om VBA út te fieren foar elke sel yn it berik.
Stap 3:
- Lykas numerike wearden kinne wy ek set tekstwearden foar elke sel yn it berik. Yn dat gefal, gean nei it VBA finster, en ynstee fan 100, ynfoegje de tekst wearde jo wolle rinne troch. De feroareline is
1151
- Klik op de kommandoknop en de VBA-koade sil dizze tekstwearde weromjaan foar elke sel yn it berik.
Stap 4:
- Yn dizze stap sille wy wat djipper grave. Litte wy sizze dat wy elke lege sel yn ús berik markearje wolle.
- Foegje dêrfoar in nije betingst ta oan jo besteande koade. De nije formule is,
6699
- Dizze nije koade sil de lege sel markearje mei reade kleur. Sa is de folsleine koade,
9841
- Krij it resultaat troch te klikken op de kommandoknop.
Gelykbere lêzingen:
- Hoe kinne jo it berikobjekt fan VBA yn Excel brûke (5 eigenskippen)
- Gebrûk VBA-berikoffset (11 manieren)
- Hoe kinne jo tekst telle yn Excel (7 maklike trúkjes)
2. VBA ynfoegje Koade foar elke sel yn in kolom fan in berik
Wy kinne ek VBA-koade útfiere foar elke sel yn in kolom. Stel dat wy in kolom hawwe mei nûmers en wy moatte wearden kleurje dy't leger binne as 10. Wy sille in VBA-koade bouwe om elke sel yn 'e kolom út te fieren.
Stap 1:
- Meitsje in kommandoknop nei de ynstruksjes dy't wy hawwe besprutsen.
Stap 2:
- Dûbelklikke op de kommandoknop om it VBA-finster te iepenjen.
- Wy sille in fariabele ferklearje neamd " c " fan type lang. Wy brûke hjir it type Lange fariabele om't Langfariabelen hawwe in gruttere kapasiteit dan Integer fariabelen.
4448
- Foegje dan de koaderigel ta dy't de lettertypekleur fan alle sellen yn ús kolom feroaret yn swart.
3190
- Foegje de lus foar dizze koade yn.
4689
- Yn dizze stap sille wy in betingst ynfiere om de wearden te kleurjen dy't leger binne as de wearde fan sel C4 (10). Fier dizze koade yn om dat te dwaan.
2720
- Dus de definitive koade is,
2355
- De VBA sil rinne en resultaten sjen litte as jo op de kommandoknop klikke.
3. Skriuw in VBA-koade foar elke sel yn in rige fan in berik
Wy kinne ek in VBA-koade útfiere foar elke sel op in rige. Yn de opjûne rige moatte wy deselde aksje útfiere op elke sel fan 'e rige.
Stap 1:
- Foegje in kommandoknop ta en feroarje de namme nei " Klik hjir! "
- Dûbelklik op de knop om iepenje it VBA-finster. Skriuw de VBA-koade hjirûnder op.
4012
- De koade sil troch elke sel fan 'e rige rinne en in giele kleurfol oan elke sel tapasse.
- Klik op de knop en ús resultaat is hjir.
Quick Notes
👉 As jo hawwe jo ljepper foar ûntwikkelders net sichtber, jo kinne it aktivearje mei dizze ynstruksje.
Aanpaste arkbalke foar flugge tagong → Mear kommando's → Lint oanpasse → Untwikkelder → OK
Konklúzje
Wy hawwe trije ferskillende oanpak trochgien om VBA út te fieren foar elke sel yn in berik. Jo binne fan herte wolkom om kommentaar te jaan as jo fragen of fragen hawwe. Jo kinne ek ús oare artikels kontrolearje yn ferbân mei de Excel-taken!