上の行の値を取得

ＥＸＣＥＬで　
1.イコール=
2.対象セル
3.エンター
の操作を行うと
対象のセルの値が反映されます。
対象セルＡ１としてＡ２に設定して
Ａ１を変更するとＡ２もそれに合わせて
Ａ１の値が表示されます。
これをＶＢＡでやることは可能なのでしょうか。
Cells(a, 1).Offset(1).Value = Cells(a, 1).Value
このｺｰﾄﾞだと一回のみで次にＡ１の値を変更しても
かわりません。
わかる方お願いいたします

質問者からの補足コメント

• 

  ありがとございます。

  No.1の回答に寄せられた補足コメントです。 補足日時：2018/06/13 14:45

No.1 ベストアンサー 回答者： yambejp 回答日時： 2018/06/13 13:48

Range("A2").FormulaR1C1 = "=R[-1]C"

No.2 回答者： fujillin 回答日時： 2018/06/13 13:50

こんにちは

ご質問のような内容をVBAで実現するには、2通りの方法が考えられます。

1）セルに関数式を設定する
ご提示の例で言えば
　Range("A2").Formula = "=A1"
のような感じで、一度実行しておけば、セルに関数が設定されるので、以後、A1セルの値を変更しても反映されます

2）A1セルの値が変わったら自動的に処理が実行されるように設定する
ご提示の例で言えば、以下のようなコードを対象とするシートモジュールに記載しておきます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Range("A2").Value = Range("A1").Value
End Sub

※ 他にも方法があるかも知れませんが、代表的なのはこんなところかと…

この回答へのお礼

有難うございます

お礼日時：2018/06/13 14:42