ВБА Нађи вредност у колони

Овај чланак ће показати како да употребите ВБА за проналажење вредности у колони.

Можемо користити Ранге.Финд да прођемо кроз колону вредности у ВБА да пронађемо све ћелије у опсегу које одговарају наведеним критеријумима.

Петља кроз колону са Ранге.Финд и Ранге.ФиндНект

У доњем примеру пролазимо кроз податке у колони и тражимо реч „доспело“. Када пронађе реч, означиће ћелију променом боје текста ћелије у црвену. Затим ће се методом Ранге.ФиндНект пребацити на следећу ћелију и наставити да тражи реч, настављајући петљу до краја наведеног опсега ћелија.

1234567891011121314151617 Суб ФиндЛооп ()Дим стрФирстАддресс Ас СтрингДим рнгФиндВалуе Ас РангеДим рнгСеарцх Ас РангеДим рнгФинд Ас РангеПостави рнгФинд = АцтивеСхеет.Ранге ("Ф1: Ф17")Подесите рнгСеарцх = рнгФинд.Целлс (рнгФинд.Целлс.Цоунт)Подесите рнгФиндВалуе = рнгФинд.Финд ("Закашњело", рнгСеарцх, клВалуес)Ако није рнгФиндВалуе није ништастрФирстАддресс = рнгФиндВалуе.АддрессрнгФиндВалуе.Фонт.Цолор = вбРедУрадитиПостави рнгФиндВалуе = рнгФинд.ФиндНект (рнгФиндВалуе)рнгФиндВалуе.Фонт.Цолор = вбРедПетља до рнгФиндВалуе.Аддресс = стрФирстАддрессКрај АкоЕнд Суб

Када се код покрене, он чува адресу прве ћелије у којој се подаци налазе у променљивој стрФирстАддресс и мења боју текста у црвену. Затим се ствара петља за проналажење следеће ћелије која садржи потребне податке. Када се вредност пронађе, боја текста се мења у црвену, а затим се адреса ћелије у којој се налази вредност упоређује са низом стрФирстАддресс. Ако они нису исти, петља се наставља, проналазећи сваку инстанцу речи „доспело“. Када петља дође до краја опсега ћелија (тј. Ф17), она ће почети на почетку опсега (Ф1) и наставити да се петља. Када по други пут дође до ћелијске адресе Ф3, иста је као и сачувана променљива стрФирстАддресс, петља ће се зауставити.

wave wave wave wave wave