photosdematures.com

Екцел ВБА пресек

ВБА пресек користи се за добијање објекта опсега који је пресек два или више опсега. Потребно је навести најмање два опсега да би се пронашла тачка пресека опсега. Сви остали аргументи су опционални на основу захтева.

Испод је синтакса формуле ВБА ИНТЕРСЕЦТ.

• Арг1 као опсег: Прво подручје пресека.
• Арг2 као опсег: Други опсег пресека.

У следећим примерима видећемо неке корисне технике.

Примери

Овај предложак ВБА Интерсецт Екцел можете преузети овде - ВБА Интерсецт Екцел предложак

Пример # 1

На пример, користите податке у наставку.

Корак 1: Прогласите променљиву варијантом.

Шифра:

 Суб Интерсецт_Екампле () Пригуши МиВалуе као варијанту Крај Суб 

Корак 2: За ову променљиву доделите вредност кроз формулу Интерсецт.

Шифра:

 Суб Интерсецт_Екампле () Дим МиВалуе Ас Вариант МиВалуе = Интерсецт (Енд Суб 

Корак 3: Изаберите први опсег као Б2 до Б9.

Шифра:

 Суб Интерсецт_Екампле () Дим МиВалуе Ас Вариант МиВалуе = Интерсецт (Ранге ("Б2: Б9"), Енд Суб 

Корак 4: Изаберите други опсег од А5 до Д5.

Шифра:

 Суб Интерсецт_Екампле () Дим МиВалуе Ас Вариант МиВалуе = Интерсецт (Ранге ("Б2: Б9"), Ранге ("А5: Д5") Енд Суб 

Корак 5: Овде тестирамо са само два опсега. Затворите формулу и изаберите метод као ВБА ћелијску адресу.

Шифра:

 Суб Интерсецт_Екампле () Дим МиВалуе Ас Вариант МиВалуе = Интерсецт (Ранге ("Б2: Б9"), Ранге ("А5: Д5")). Аддресс Енд Суб 

Корак 6: Прикажите вредност у оквиру за поруке у ВБА.

Шифра:

 Суб Интерсецт_Екампле () Дим МиВалуе Ас Вариант МиВалуе = Интерсецт (Ранге ("Б2: Б9"), Ранге ("А5: Д5")). Адреса МсгБок МиВалуе Енд Суб 

У реду, готови смо и погледајте шта ћемо добити у оквиру за поруке.

Резултат смо добили као Б5, односно адресу ћелије тачке пресека испорученог опсега.

Овако, користећи методу ВБА ИНТЕРСЕЦТ, можемо учинити још много тога.

Пример # 2

Изаберите ћелију пресека

Да бисте изабрали пресечну ћелију испорученог опсега, користите доњи код.

Шифра:

 Суб Интерсецт_Екампле2 () Интерсецт (Ранге ("Б2: Б9"), Ранге ("А5: Д5")). Изаберите Енд Суб 

Ово ће одабрати пресечну ћелију испорученог опсега.

Пример # 3

Јасан садржај пресечне ћелије: Да би се обрисао садржај пресечне ћелије испорученог опсега користи се доњи код.

Шифра:

 Суб Интерсецт_Екампле2 () Интерсецт (Ранге ("Б2: Б9"), Ранге ("А5: Д5")). ЦлеарЦонтентс Енд Суб 

Пример # 4

Промените позадину боје ћелије и боју фонта пресечне ћелије: Да бисте променили боју позадине ћелије пресека и боју фонта вредности ћелије пресека помоћу доњег кода.

Шифра:

 Суб Интерсецт_Екампле2 () Интерсецт (Ранге ("Б2: Б9"), Ранге ("А5: Д5")). Целлс.Интериор.Цолор = ргбБлуе Интерсецт (Ранге ("Б2: Б9"), Ранге ("А5: Д5" )). Целлс.Фонт.Цолор = ргбАлицеБлуе Енд Суб 

Промените вредност ћелије пресека: Коришћењем функције Интерсецт такође можемо променити вредност те ћелије у нешто друго.

У горњим подацима, пресечна вредност опсега „Б2: Б9“ и „А5: Д5“ је ћелија Б5, односно означена плавом бојом. Сад кад пружамо овај опсег за пресецање функције, можемо заправо променити вредност у нешто друго.

Доле наведени код ће променити вредност из 29398 на „Нова вредност“.

Шифра:

 Суб Интерсецт_Екампле3 () Пресек (опсег ("Б2: Б9"), опсег ("А5: Д5")). Валуе = "Нев Валуе" Енд Суб 

Покрените горњи код, уместо ћемо добити реч „Нова вредност“ 29398.

Овако, помоћу функције Интерсецт можемо се поиграти са средњом позицијом вредности испорученог опсега.

Ствари које треба запамтити

• У Екцелу да бисмо добили пресечну вредност опсега, треба да дамо размак између два опсега.
• Коришћењем ВБА кодирања можемо да истакнемо, форматирамо, избришемо или променимо и урадимо многе друге ствари до вредности пресека.
• Ако се више редова и колона испоручи функцији пресецања, тада ћемо добити средње две вредности.