Excel의 가변 행 번호가 있는 VBA 범위(예제 4개)

이 문서에서는 VBA를 사용하는 방법을 보여 드리겠습니다. Excel에서 가변 행 번호가 있는 범위. VBA로 작업하는 방법을 배우게 됩니다. range를 사용하여 셀 범위를 선택하고, 셀 범위에 숫자를 삽입하고, 셀 범위에서 수학 연산을 수행하고, 셀 범위에 색상을 지정합니다. 이 모든 것이 가변 행 번호로 이루어집니다.

Excel에서 가변 행 번호로 범위를 설정하는 VBA 코드(빠른 보기)

Sub Range_with_Variable_Row_Number()

First_Cell = InputBox("Enter the First Cell of the Range: ")
Row_Number = Str(Range(First_Cell).Row)

Number_of_Rows = InputBox("Enter the Total Number of Rows of the Range: ")

Set Rng = Range(First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10))

End Sub

⧭ 강령 설명:

• 코드는 First_Cell이라는 범위의 첫 번째 셀인 두 개의 입력을 받습니다. , 및 Number_of_Rows라고 하는 범위의 총 변수 행 수 .
• 그런 다음 Rng라는 행 범위를 생성합니다. , First_Cell부터 시작 원하는 총 행 수까지.
• 예를 들어 First_Cell B4입니다. 및 Number_of_Rows 10입니다. , 출력 Rng B4:B13입니다. .
• 항상 상대 셀 참조 사용 First_Cell , 절대가 아님 또는 혼합 셀 참조 (B4 사용 , $B$4 아님 또는 $B4 ).

Excel에서 가변 행 번호와 함께 VBA 범위를 사용하는 4가지 예(빠른 보기)

여기에 이름이 있는 데이터 세트가 있습니다. 및 급여 Jupyter Group이라는 회사의 직원 중 일부입니다.

오늘 우리는 VBA를 사용하여 가변 행 번호가 있는 범위로 작업하려고 합니다. 이 데이터 세트에서.

1. Excel에서 VBA로 가변 행 번호가 있는 범위 선택

먼저 매크로를 개발해 보겠습니다. VBA를 사용하여 가변 행 번호가 있는 범위를 선택하려면 .

첫 번째 5의 이름을 선택합시다. 직원.

다음 VBA 코드를 사용할 수 있습니다. 이를 위해:

⧭ VBA 코드:

Sub Select_Range()

First_Cell = InputBox("Enter the First Cell to Select: ")
Row_Number = Str(Range(First_Cell).Row)

Number_of_Rows = InputBox("Enter the Number of Rows to Select: ")

Rng = First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10)

Range(Rng).Select

End Sub

⧭ 출력:

매크로 실행 (Select_Range ). 두 개의 입력 상자가 나타납니다.

1위 상자에 선택하려는 범위의 첫 번째 셀을 입력하라는 메시지가 표시됩니다. B4입니다. , 첫 번째 직원이 있는 셀입니다.

확인을 클릭합니다. . 두 번째 입력 상자는 선택하려는 행의 수를 묻습니다. 5입니다. .

다시 확인을 클릭합니다. . 그리고 첫 번째 5의 이름을 얻게 됩니다. 데이터 세트에서 선택한 직원

자세히 알아보기: Excel VBA를 사용하여 범위에서 행 번호를 가져오는 방법(9개의 예)

2. Excel에서 가변 행 번호를 사용하여 범위에 숫자 삽입

VBA 를 사용하여 가변 행 번호가 있는 범위에 숫자를 삽입할 수도 있습니다. 엑셀에서.

고정된 숫자와 일련의 숫자를 모두 삽입할 수 있습니다.

첫 번째 5 에 번호를 매겨 봅시다. 1~5 직원 .

즉, 1~5 시리즈를 삽입합니다. 첫 번째 5의 이름으로 왼쪽 직원(A4:A8 ).

다음 VBA 코드를 사용할 수 있습니다. 이를 위해:

⧭ VBA 코드:

Sub Insert_Numbers()

First_Cell = InputBox("Enter the First Cell to Insert Number: ")
Row_Number = Str(Range(First_Cell).Row)

Number_of_Rows = InputBox("Enter the Total Number of Rows to Insert Numbers: ")

Set Rng = Range(First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10))

Series_or_Fixed = Int(InputBox("Enter 1 to Enter a Series of Numbers: " + vbNewLine + vbNewLine + "OR" + vbNewLine + vbNewLine + "Enter 2 to Enter a Fixed Number: "))

If Series_or_Fixed = 1 Then

    First_Number = Int(InputBox("Enter the First Number: "))
    Increment = Int(InputBox("Enter the Increment: "))
    For i = 1 To Rng.Rows.Count
        Rng.Cells(i, 1) = First_Number + (i - 1) * Increment
    Next i

ElseIf Series_or_Fixed = 2 Then
    Number = Int(InputBox("Enter the Fixed Number: "))
    For i = 1 To Rng.Rows.Count
        Rng.Cells(i, 1) = Number
    Next i

End If

End Sub

⧭ 출력:

이 매크로 실행 (Insert_Numbers ). 몇 개의 입력 상자가 나타납니다.

1위 상자에 숫자를 삽입할 첫 번째 셀을 입력하라는 메시지가 표시됩니다. A4입니다. .

확인을 클릭합니다. . 두 번째 상자에 숫자를 삽입할 총 행 수를 입력하라는 메시지가 표시됩니다.

5입니다. .

세 번째 일련의 숫자를 원하는지 아니면 고정된 숫자를 원하는지 묻는 상자가 표시됩니다.

1 입력 일련의 숫자에 대해.

2 입력 고정된 숫자입니다.

여기에 일련의 숫자가 필요합니다. 그래서 1을 입력했습니다. .

4번째 상자에 시리즈의 첫 번째 번호가 표시됩니다. 1~5 시리즈를 원합니다. . 그래서 1을 입력했습니다. .

마지막 상자에 증분을 입력하라는 메시지가 표시됩니다. 일련의 1, 2, 3, 4, 5, 1입니다 .

확인을 클릭합니다. . 그리고 일련의 1 ~ 5를 받게 됩니다. A4:A8 범위 내 .

자세히 알아보기: Excel에서 가변 행 번호와 함께 범위를 사용하는 방법

유사한 수치

• Excel에서 열 번호를 기반으로 범위를 사용하는 VBA(4가지 방법)
• 셀 값 VBA를 기준으로 범위를 선택하는 방법(7가지 방법)
• Excel에서 VBA의 범위 개체 사용(5개 속성)
• Excel에서 범위를 설정하는 VBA(예제 7개)
• Excel에서 VBA를 사용하여 행 번호를 찾는 방법(4개 매크로)

3. Excel에서 가변 행 번호가 있는 범위에서 수학 연산 수행

다음으로 매크로 가변 행 번호가 있는 범위에서 수학 연산을 수행합니다.

예를 들어 Jupyter 그룹의 사장이 처음 5명의 직원 급여를 $10,000 인상하려고 한다고 가정해 보겠습니다. .

매크로를 개발하겠습니다. 그의 목적을 달성하기 위해.

다음 VBA 코드를 사용할 수 있습니다. :

⧭ VBA 코드:

Sub Mathematical_Operation()

First_Cell = InputBox("Enter the First Cell to Perform Operation: ")
Row_Number = Str(Range(First_Cell).Row)

Number_of_Rows = InputBox("Enter the Total Number of Rows to Perform Operation: ")

Set Rng = Range(First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10))

Operation = Int(InputBox("Enter the Operation to Perform: " + vbNewLine + "Enter 1 for Addition: " + vbNewLine + "Enter 2 for Subtraction: " + vbNewLine + "Enter 3 for Multiplication: " + vbNewLine + "Enter 4 for Division: "))

Operations = Array("Add", "Subtract", "Multiply", "Divide")

Number = Int(InputBox("Enter the Number to " + Operations(Operation - 1) + ": "))

For i = 1 To Rng.Rows.Count

    If Operation = 1 Then
        Rng.Cells(i, 1) = Rng.Cells(i, 1).Value + Number
    End If

    If Operation = 2 Then
        Rng.Cells(i, 1) = Rng.Cells(i, 1).Value - Number
    End If

    If Operation = 3 Then
        Rng.Cells(i, 1) = Rng.Cells(i, 1).Value * Number
    End If

    If Operation = 4 Then
        Rng.Cells(i, 1) = Rng.Cells(i, 1).Value / Number
    End If

Next i

End Sub

⧭ 출력:

매크로 실행 (수학적 연산 ). 4를 얻습니다. 입력 상자.

1위 상자는 평소와 같이 작업을 수행할 첫 번째 셀을 입력하라는 메시지를 표시합니다.

이 예에서는 첫 번째 직원의 급여인 C4 셀입니다. .

두 번째 상자 작업을 수행할 총 행 수를 묻습니다.

세 번째 상자에는 수행하려는 작업을 입력하라는 메시지가 표시됩니다.

1 입력 추가합니다.

2 입력 빼기.

3 곱하기.

그리고 4 사단을 위해.

여기에 추가를 원합니다. 그래서 1을 입력했습니다. .

마지막으로 4번째 상자에 추가할 번호를 입력하라는 메시지가 표시됩니다. 여기에 10000을 입력했습니다. .

확인을 클릭합니다. . 그리고 처음 5명의 직원 급여가 $10,000 인상되었음을 알게 될 것입니다. .

자세히 알아보기: 열에서 문자열 찾기 및 Excel에서 행 번호 반환(7가지 방법)

4. Excel에서 가변 행 번호가 있는 범위의 색상 셀

마지막으로 매크로 Excel에서 가변 행 번호로 범위의 셀에 색을 지정합니다.

1등 5명의 직원 이름을 빨간색으로 색칠해 봅시다.

다음 VBA 코드를 사용할 수 있습니다. :

⧭ VBA 코드:

Sub Color_Range()

First_Cell = InputBox("Enter the First Cell to Color: ")
Row_Number = Str(Range(First_Cell).Row)

Number_of_Rows = InputBox("Enter the Total Number of Rows to Color: ")

Set Rng = Range(First_Cell & ":" & Mid(First_Cell, 1, Len(First_Cell) - Len(Row_Number) + 1) & Mid(Str(Int(Number_of_Rows) + Int(Row_Number) - 1), 2, 10))

Color_Code = Int(InputBox("Enter the Color Code: " + vbNewLine + "Enter 3 for Color Red." + vbNewLine + "Enter 5 for Color Blue." + vbNewLine + "Enter 6 for Color Yellow." + vbNewLine + "Enter 10 for Color Green."))

Background_or_Text = Int(InputBox("Enter 1 to Color the Whole Background of the Cells: " + vbNewLine + vbNewLine + "Or" + vbNewLine + vbNewLine + "Enter 2 to Color Only the Texts: "))

For i = 1 To Rng.Rows.Count

    If Background_or_Text = 1 Then
        Rng(i, 1).Interior.ColorIndex = Color_Code
    ElseIf Background_or_Text = 2 Then
        Rng.Cells(i, 1).Characters(1, Len(Rng.Cells(i, 1))).Font.ColorIndex = Color_Code
    End If

Next i

End Sub

⧭ 출력:

매크로 실행 (색상 범위 ). 4개의 입력 상자가 표시됩니다.

1위 상자에 색칠할 첫 번째 셀을 입력하라는 메시지가 표시됩니다.

여기 첫 번째 직원인 B4 셀이 있습니다.

두 번째 상자는 색칠할 총 행 수를 묻습니다. 5입니다. .

세 번째 상자에 색상을 선택하라는 메시지가 표시됩니다. Microsoft 색상 코드에 따라 색상 색인을 입력합니다. .

여기에 6을 입력했습니다. (노란색의 경우 색상).

마지막 상자는 셀의 전체 배경을 채색할지 아니면 텍스트만 채색할지 묻습니다.

1을 입력했습니다. (전체 배경).

확인을 클릭합니다. . 그리고 노란색으로 강조 표시된 첫 번째 5개의 이름의 전체 배경을 얻을 수 있습니다.

자세히 알아보기: Excel에서 현재 셀의 행 번호를 얻는 방법(4가지 빠른 방법)

결론

이러한 방법을 사용하여 VBA를 사용할 수 있습니다. Excel에서 가변 행 번호가 있는 범위. 질문있으세요? 언제든지 문의하십시오.

관련 기사

• VBA 범위 오프셋 사용 방법(11가지 방법)
• Excel 범위의 각 셀에 대한 VBA(3가지 방법)
• Excel VBA를 사용하여 각 셀의 범위 반복(궁극적인 가이드)
• Excel VBA 범위를 다른 시트로 복사(8가지 가장 쉬운 방법)
• Excel VBA:열에서 문자열 찾기 및 행 번호 반환
• Excel 수식에서 행 번호를 증가시키는 방법(6가지 편리한 방법)