【EXCEL VBA】セルの値を取得する／設定する方法

訪問して頂きありがとうございます。まさふくろーです。

この記事では使用例を使って、セルの値を取得する／設定する方法をご紹介します。

使用例

Worksheetオブジェクト.Cells([RowIndex],[ColumnIndex])

解説	引数で指定した行番号と列番号のセルを参照するためのRangeオブジェクトを取得する。
	引数を省略した場合は、全セルを参照する。
	ほかのワークシートのセルを参照する場合、Cellsプロパティの前にWorksheetオブジェクトを明記する。Worksheetオブジェクトを省略した場合は、アクティブシート（一番手前のシート）のセルが参照される。
引数	RowIndex：行番号を表す数値を指定する。
引数	ColumnIndex：列番号を表す数値（A列なら「1」、B列なら「2」、C列なら「3」・・・）を指定する。

Cellsプロパティの記述例

リボンに「開発」タブが表示されているかの確認をします。

「開発」タブが表示されていない場合は、「開発タブの表示」をご覧ください。

①「開発」タブをクリック⇒②「挿入」をクリック⇒③「ボタン」をクリックします。

シート上にカーソルを移動し、ポインターを「＋」の状態にします。

左クリックを押したまま、緑の矢印の方向にズルズルっとカーソルを移動します。

「マクロの登録」画面が表示されます。

①「マクロ名」を変更⇒②「新規作成」ボタンをクリックします。

エクセルのブックに戻り、ボタンの上にフォーカスを当てます。すると、ポインターが「」マークに切り替わります。

右クリックでショートカットメニューを表示し、「テキストの編集」を選択します。

ボタンの名前を変更します。

VBE(Visual Basic Editor)のピンク枠の部分に、VBAコードを入力していきます。

Sub 実行ボタン_Click()

    Dim GetValue As String
    
    GetValue = Cells(2, 1).Value
    
    Cells(2, 2) = GetValue

End Sub

Sub 実行ボタン_Click()

Dim GetValue As String

GetValue = Cells(2, 1).Value

Cells(2, 2) = GetValue

End Sub

「ファイル」タブをクリックします。

「名前を付けて保存」を選択し、ファイル保存画面を起動します。

①ファイル名を入力⇒②「Excel マクロ有効ブック(*.xlsm)」を選択⇒③「保存」ボタンをクリックします。

最後まで読んでいただき、ありがとうございました！

本のまとめ記事はこちら