V VBA lahko preklapljate med celicami in dejanja uporabite za vsako celico v obsegu.
Če želite preizkusiti pogoj za vsako celico v obsegu z uporabo VBA, je najboljši način, da prelistate obseg in preizkusite vsako celico. Tu sta dva primera kode, ki prikazujeta, kako se premikati skozi obseg. Vrednost obsega lahko zamenjate za kateri koli obseg, ki ga potrebujete.
Zanka skozi obseg celic
Ta primer se bo vrtel skozi vrsto celic. Stavek if preizkusi pogoj, če celica vsebuje besedilo »FindMe« in prikaže polje s sporočilom z lokacijo besedila, če je najdeno.
| 1234567891011 | Public Sub LoopCells ()Zatemni c kot obsegZa vsak c v dosegu ("A1: A10")Če je c.Value = "FindMe" PotemMsgBox "FindMe najdeno na" & c.AddressKonec ČeNaprej cEnd Sub |
Zanka skozi cel stolpec
Ta primer se vrti skozi celotno območje stolpca A.
| 1234567891011 | Javni podvrstni stolpec ()Zatemni c kot obsegZa vsak c v dosegu ("A: A")Če je c.Value = "FindMe" PotemMsgBox "FindMe najdeno na" & c.AddressKonec ČeNaprej cEnd Sub |
Prečrtaj celotno vrstico
Naslednji primer se vrti skozi 1. vrstico, pri čemer celotno vrstico obravnava kot obseg.
| 1234567891011 | Public Sub LoopRow ()Zatemni c kot obsegZa vsak c v dosegu ("1: 1")Če je c.Value = "FindMe" PotemMsgBox "FindMe najti na" & c.AdressKonec ČeNaprej cEnd Sub |
