VBA Intersect - Примери за пресичане в Excel VBA - Методи

Съдържание

Пресичане на Excel VBA

VBA Intersect се използва за получаване на обект от диапазон, който е пресечна точка на два или повече диапазона. Трябва да се предоставят минимум два диапазона, за да се намери пресечната точка на диапазона. Всички останали аргументи не са задължителни въз основа на изискването.

По-долу е синтаксисът на формулата VBA INTERSECT.

  • Arg1 като обхват: първи пресичащ се обхват.
  • Arg2 като обхват: втори обсег на пресичане.

В примерите по-долу ще видим някои от полезните техники.

Примери

Пример # 1

Например използвайте данните по-долу.

Стъпка 1: Декларирайте променливата като Variant.

Код:

Sub Intersect_Example () Dim MyValue As Variant End Sub

Стъпка 2: За тази променлива задайте стойността чрез формулата Intersect.

Код:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (End Sub

Стъпка 3: Изберете първия диапазон като B2 до B9.

Код:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), End Sub

Стъпка 4: Изберете втория диапазон от A5 до D5.

Код:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub

Стъпка 5: Тестваме само с два диапазона тук. Затворете формулата и изберете метода като VBA Cell Address.

Код:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Address End Sub

Стъпка 6: Покажете стойността в полето за съобщение във VBA.

Код:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Address MsgBox MyValue End Sub

Добре, приключихме и вижте какво ще получим в полето за съобщения.

Получихме резултата като B5, т.е. адрес на клетката на пресечната точка на предоставения диапазон.

По този начин, използвайки метода VBA INTERSECT, можем да направим много повече неща.

Пример # 2

Изберете клетката за пресичане

За да изберете пресечната клетка на предоставения диапазон, използвайте кода по-долу.

Код:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Изберете End Sub

Това ще избере пресечната клетка на предоставения диапазон.

Пример # 3

Изчистване на съдържанието на пресечната клетка: За да се изчисти съдържанието на пресечната клетка на предоставения диапазон, се използва кодът по-долу.

Код:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). ClearContents End Sub

Пример # 4

Променете фона на цвета на клетката и цвета на шрифта на клетката за пресичане: За да промените цвета на фона на пресечната клетка и цвета на шрифта на стойността на пресечната клетка, използвайки кода по-долу.

Код:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Cells.Interior.Color = rgbBlue Intersect (Range ("B2: B9"), Range ("A5: D5" )). Cells.Font.Color = rgbAliceBlue End Sub

Change the Value of the Intersection Cell: Using the Intersect function, we can also change the value of that cell into something else.

In the above data, the intersect value of the range “B2:B9” & “A5:D5” is cell B5 i.e., marked with blue color. Now by supplying this range to intersect function, we can actually change the value to something else.

The below code will change the value from 29398 to “New Value.”

Code:

Sub Intersect_Example3() Intersect(Range("B2:B9"), Range("A5:D5")).Value = "New Value" End Sub

Run the code above. We will get the word “New Value” in place of 29398.

Like this, by using the Intersect function, we can play around with the middle position value of the supplied range.

Things to Remember

  • В Excel, за да получим пресечната стойност на диапазона, трябва да дадем интервал между два диапазона.
  • Използвайки VBA кодиране, ние можем да маркираме, форматираме, изтриваме или променяме и да правим много други неща за стойността на пресичането.
  • Ако множеството редове и колони са предоставени на функцията за пресичане, тогава ще получим средните две стойности.

Интересни статии...