VBA cilpai - cilpa caur virkni šūnu - VBA koda piemēri

VBA varat cilpot cauri šūnu diapazonam, piemērojot darbības katrai diapazona šūnai.

Ja vēlaties pārbaudīt nosacījumus katrai diapazona šūnai, izmantojot VBA, labākais veids ir cilpa pa diapazonu, pārbaudot katru šūnu. Šeit ir divi koda piemēri, lai parādītu, kā veikt diapazona cilpu. Diapazona vērtību varat aizstāt jebkuram diapazonam, kas jums nepieciešams, lai veiktu cilpu.

Cilpa caur šūnu diapazonu

Šis piemērs parādīs virkni šūnu. Ja paziņojums pārbauda stāvokli, ja šūnā ir teksts “FindMe”, un tiek parādīts ziņojuma lodziņš ar teksta atrašanās vietu, ja tas ir atrasts.

1234567891011

Publiskās apakšcilpas šūnas ()Dim c As DiapazonsKatram diapazonā esošajam c ("A1: A10")Ja c.Value = "FindMe" TadMsgBox "FindMe atrasts" & c.AddressBeigas JaNākamais cBeigu apakš

Apkārt visu kolonnu

Šajā piemērā tiek apskatīts viss A slejas diapazons.

1234567891011

Publiskās apakškopas kolonna ()Dim c As DiapazonsKatram diapazonā esošajam c ("A: A")Ja c.Value = "FindMe" TadMsgBox "FindMe atrasts" & c.AddressBeigas JaNākamais cBeigu apakš

Apkārt visu rindu

Nākamais piemērs iet cauri 1. rindai, ņemot vērā visu rindu diapazonu.

1234567891011

Publiskā apakšcilpas rinda ()Dim c As DiapazonsKatram c diapazonā ("1: 1")Ja c.Value = "FindMe" TadMsgBox "FindMe atrasts" & c.AddressBeigas JaNākamais cBeigu apakš