今回は、変数にセルの値を設定する方法として ブイビーエー ここでは、変数に1つのセルとセル範囲の値を設定する方法を学びます。

練習用ワークブックをダウンロードする

この練習用ワークブックをダウンロードして、この記事を読みながらエクササイズしてください。

Excelでセルの値に変数を設定する3つの簡単な例

ここでは、データセットに含まれる 顧客名 は、その 連絡先 そして メールアドレス 範囲内 B3:D13 ワークシートの

を使用して、このデータセットから変数をセル値に設定することを目指します。 ブイビーエー .

1.エクセルVBAで1つのセルの値に変数を設定する

まず、変数に1つのセルの値を設定する方法を、以下の方法で学びます。 ブイビーエー .

例えば、セル B4 という変数に お客様名 .

値のデータ型がわかっている場合は、事前に宣言しておくとよいでしょう。 そして、その変数に値をセットします。

例えば、こちらのセル B4 は名前を含んでいます。 ボリス・パステルナーク .それは 文字列型 変数があります。 したがって、次のように 2 のコード行を表示します。

 Dim Value As String Value = Range("B4") 

ただし、データ型がよくわからない場合は、2行目だけを書き、その後に ブイビーエー は、あなたのために値を正しく読み取ってくれます。

 値 = Range("B4") 

では、その有無を確認するために ブイビーエー が値を正しく読み取ったかどうか、行を入力します。 MsgBox 値 のどちらかのコードで、コードを実行します。

メッセージボックスが表示され、セル B4 , ボリス・パステルナーク .

2.エクセルVBAで隣接するセル範囲の値を変数に設定する

では、隣接する範囲のセルの値を変数にセットしてみます。 たとえば、範囲を読み込むと B3:D13 を変数 ルンルン .

ここでは、変数のデータ型は レンジ このように事前に宣言しておくこともできます。

 Dim Rng As Range Set Rng = Range("B3:D13") 

または、それで直接値を割り当てることができます。

 設定 Rng = 範囲("B3:D13") 

では、その値にアクセスするために 範囲オブジェクト の場合、行番号と列番号でアクセスする必要があります。 セル・オブジェクト .

例えば、セルにアクセスする場合 B4 を使用する必要があります。 Rng.Cells(2,1)の場合 [... セル B4 が入っています。 第2回 列と 第1回 範囲内の列 B3:D13 .]

行を入力します。 MsgBox Rng.Cells(2,1) を表示します。 ボリス・パステルナーク の値は、セル B4 .

3.エクセルVBAで隣接しないセル範囲の値を変数に設定する

最後に、隣接しない範囲のセルの値を変数に設定します。

例えば、次のような範囲を読み取ってみましょう。 B3:B13 と D3:D13 という変数に ルンルン .

また、データ型として レンジ 事前に申告してもしなくても構いません。

を使うことにします。 ユニオン方式 の ブイビーエー 参加するには 2 またはそれ以上の隣接しない範囲のセルを1つの範囲にすること。

 Dim Rng As Range Set Range = Union(Range("B3:B13"),Range("D3:D13")).Range("B3:B13")を設定します。 

現在、セルへのアクセスは B4 という行を入力する必要があります。 MsgBox Rng.Cells(1,1)。 そして、このコードを実行すると、セルのコンテンツが表示されます。 B4 , ボリス・パステルナーク .

覚えておきたいこと

上記の方法はすべてアクティブなワークシートにのみ有効です。 アクティブでないワークシートにアクセスしたい場合は、範囲の前にワークシート名を記述する必要があります。

例えば、範囲にアクセスする場合 B4 の シート1 を使わなければならない。

 値 = Worksheets("Sheet1").Range("B4")の値