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 と呼ばれる範囲の最初のセルである 2 つの入力を受け取ります。 、および 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 ）。入力ボックスが 2 つ表示されます。

1位 ボックスに、選択する範囲の最初のセルを入力するよう求められます。こちらが B4 です 、最初の従業員がいるセル。

[OK] をクリックします . 2 番目の入力ボックスでは、選択する行数を尋ねられます。こちらが 5 です .

もう一度 [OK] をクリックします .そして、最初の 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 です .

[OK] をクリックします . 2番目 ボックスは、数字を挿入する行の総数を入力するよう求めます。

こちらが 5 です .

3番目 ボックスは、一連の数値または固定数値のどちらが必要かを尋ねます。

1 を入力してください

2 を入力してください

ここでは一連の数字が必要です。 1 を入力しました .

4番目 ボックスは、シリーズの最初の番号を尋ねます。 1 ～ 5 のシリーズが欲しい . 1 を入力しました .

最後のボックスでは、増分を入力するよう求められます。 1、2、3、4、5、のシリーズで 1です .

[OK] をクリックします .そして、一連の 1 から 5 を取得します A4:A8 の範囲 .

続きを読む: Excel で可変行番号で範囲を使用する方法

類似の読み物

• Excel で列番号に基づいて範囲を使用する VBA (4 つの方法)
• セル値 VBA に基づいて範囲を選択する方法 (7 つの方法)
• Excel で VBA の Range オブジェクトを使用する (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

⧭ 出力:

マクロを実行します (Mathematic_Operation ）。 4 獲得できます 入力ボックス。

1位 ボックスは、通常どおり、操作を実行する最初のセルを入力するよう求めます。

この例では、最初の従業員の給与、セル C4 です。 .

2 番目のボックス 操作を実行する行の総数を尋ねられます。

3 番目のボックスでは、実行する操作を入力するよう求められます。

1 を入力してください

2 を入力してください

3

そして4

ここで追加が欲しい。 1 を入力しました .

最後に、4 番目 ボックスに、追加する番号を入力するよう求められます。ここに 10000 と入力しました .

[OK] をクリックします .また、最初の 5 人の従業員の給与が $10,000 増加していることがわかります。 .

続きを読む: 列で文字列を検索し、Excel で行番号を返す (7 つの方法)

4. Excel で可変行番号を持つ範囲のセルに色を付ける

最後に、マクロを作成します Excel で可変行番号を使用して範囲のセルに色を付けます。

最初の 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

⧭ 出力:

マクロを実行します (Color_Range ）。 4 つの入力ボックスがあります。

1位 ボックスは、色を付ける最初のセルを入力するよう求めます。

これは最初の従業員、セル B4 です。

2番目 box は、色を付ける行の総数を尋ねます。こちらが 5 です .

3番目 ボックスで色を選択するよう求められます。 Microsoft Color Code に従って任意のカラー インデックスを入力します .

ここに 6 と入力しました (黄色の場合 色）

最後のボックスでは、セルの背景全体に色を付けるか、テキストのみに色を付けるかを尋ねられます。

1 を入力しました (背景全体)

[OK] をクリックします .最初の 5 つの名前の背景全体が黄色で強調表示されます。

続きを読む: Excel で現在のセルの行番号を取得する方法 (4 つの簡単な方法)

結論

これらのメソッドを使用すると、VBA を使用できます Excel の可変行番号の範囲。何か質問がありますか？お気軽にお問い合わせください。

関連記事

• VBA 範囲オフセットの使用方法 (11 の方法)
• Excel の範囲内の各セルの VBA (3 つの方法)
• Excel VBA を使用して各セルの範囲をループする (究極のガイド)
• Excel VBA 範囲を別のシートにコピー (最も簡単な 8 つの方法)
• Excel VBA:列の文字列を検索して行番号を返す
• Excel 数式で行番号をインクリメントする方法 (6 つの便利な方法)