Vba: 変数内のセルの値を読み取る方法

VBA で次の構文を使用して、セル値を変数に読み取ることができます。

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

この特定のマクロは、 CellValという文字列変数を作成し、現在アクティブなシートのセルA1の値を変数に読み取ります。

最後に、 MsgBoxを使用して、この変数の値をメッセージ ボックスに表示します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA で変数のセルの値を読み取る方法

Excel シートのセルA1に値 500 があるとします。

次のマクロを作成して、このセル値を変数に読み取り、その値をメッセージ ボックスに表示できます。

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal

End Sub

このマクロを実行すると、次の出力が表示されます。

このマクロは、セルA1の値 500 を含む変数の値を表示します。

必要に応じて、変数を使用してより複雑な計算を実行することもできることに注意してください。

たとえば、次のマクロを作成してセルA1の値を変数に読み取り、その値を 5 倍して表示するメッセージ ボックスを作成できます。

 Sub ReadCellValueIntoVar()

Dim CellVal As String
CellVal = Range(" A1 ")

MsgBox CellVal * 5

End Sub

このマクロを実行すると、次の出力が表示されます。

このマクロは、変数の値に 5 を乗算した値を表示します。これは、 500 * 5 = 2500となります。

追加リソース

次のチュートリアルでは、VBA で他の一般的な操作を実行する方法について説明します。

VBA: 別のシートのセルの値を設定する方法
VBA: 別のシートからセルの値を取得する方法
VBA: アクティブセル内の範囲を選択する方法