VBA LBound 배열 기능을 사용하는 방법? (예제 포함)

Excel VBA LBound 함수

VBA의 LBound는 "Lower Bound"를 나타냅니다. 즉, 배열의 가장 낮은 수를 추출합니다. 예를 들어, 배열에 "Dim ArrayCount (2 to 10) as String"가 표시되면 LBound 함수를 사용하여 배열 길이의 최소 수, 즉 2를 찾을 수 있습니다.

다음은 LBound 함수의 구문입니다. 매우 간단하고 쉽습니다. 매개 변수가 두 개뿐입니다.

Lbound (배열 이름 [, 차원])

• 배열 이름 : 이것은 첫 번째 인수입니다. 이 매개 변수의 경우 배열을 정의하는 데 사용되는 배열의 이름을 지정해야합니다.
• [차원] : 배열이 단일 차원이면 필요하지 않습니다. 기본적으로 차원 번호를 제공해야합니다.

따라서이 함수를 사용하여 배열의 최소 길이를 찾을 수 있습니다.

VBA LBound 기능을 사용하는 방법? (예)

이 VBA LBound Excel 템플릿은 여기에서 다운로드 할 수 있습니다 – VBA LBound Excel 템플릿

예 1

예를 들어 아래 코드를보십시오.

암호:

 Sub LBound_Example1 () Dim Count (2 To 5) As Integer MsgBox LBound (Count) End Sub 

위 코드에서는 배열을 정수로 정의하고 배열의 크기를 2 ~ 5로 정의했습니다. 다음으로 LBound 함수를 사용하여 배열의 가장 낮은 길이를 표시하도록 VBA 메시지 상자를 할당했습니다.

코드를 실행하면 메시지 상자에 아래 결과가 표시됩니다.

산출:

배열이 2부터 시작하므로 LBound 함수는 배열의 가장 낮은 길이를 2로 결정합니다.

예제 # 2

이제 아래 코드를보세요.

암호:

 Sub LBound_Example2 () Dim Count (5) As Integer MsgBox LBound (Count) End Sub 

위에서 우리는 최하 한을 결정하지 않고 단지 배열 길이를 5로 제공했습니다. 이제 코드를 실행하고 값의 가장 낮은 길이를 보겠습니다.

산출:

배열의 시작점과 끝점을 결정하지 않고 정적 인 숫자를 제공하기 때문에 결과가 0으로 반환되었습니다. 이제 총 6 개의 값을 저장할 수 있습니다.

개수 (0), 개수 (1), 개수 (2), 개수 (3), 개수 (4), 개수 (5).

예제 # 3

이제 데이터 범위를 사용하고 데이터 범위에서 하한을 결정합니다. 예를 들어 아래 데이터 이미지를보십시오.

이 범위에서 가장 낮은 행과 가장 높은 행 크기를 결정합니다.

먼저 변수를 변형으로 정의하십시오.

암호:

 Sub LBound_Example3 () Dim Rng As Variant End Sub 

이 "Rng"변형 변수의 경우 범위 기준 값을 "범위 ("B2 : B5 "). Value"로 설정합니다.

암호:

 Sub LBound_Example3 () Dim Rng As Variant Rng = Range ( "B2 : B5"). Value End Sub 

이 범위에 대해 가장 낮은 어레이 길이와 가장 높은 어레이 길이를 찾습니다. 메시지 상자와 LBound 함수를 열고 변수 이름을 입력하십시오.

암호:

 Sub LBound_Example3 () Dim Rng As Variant Rng = Range ( "B2 : B5"). Value MsgBox LBound (Rng) End Sub 

이제 VBA 코드를 실행하고 길이에서 가장 낮은 값을 확인합니다.

산출:

이제 변수 참조를 B2 : B5에서 A2 : B5로 변경합니다.

이 범위에 대해 하한값과 상한값을 찾습니다.

암호:

 Sub LBound_Example3 () Dim Rng As Variant Rng = Range ( "A2 : B5"). Value End Sub 

둘 이상의 차원 배열이 있으므로 차원 번호도 제공해야합니다.

암호:

 Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) End Sub 

To find the first column first lower bound above code will help, similarly to find the upper bound in this first column below code will help.

Code:

 Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1) End Sub 

This will find the first column lower length and upper length. Similarly in the next line write one more message box but this time change the dimension from 1 to 2.

Code:

 Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1) MsgBox LBound(Rng, 2) & vbNewLine & UBound(Rng, 2) End Sub 

Run the code and see the result in the message box.

Output:

For the first dimension lower bound is 1 and the upper bound is 4.

Click on “Ok” to get the next dimension limits.

Output:

For the second dimension lower limit is 1 and the upper limit is 2.

Things to Remember here

• LBound function returns the minimum length from the array.
• When the array length static i.e. single number then array always starts from the number 0 not from 1.
• In the case of a multi-dimensional array, we need to specify the dimension number.