ｴｸｾﾙのﾏｸﾛを覚えたいと思いますが､何をどのようにすればいいのかわかりません｡つきましては例題を作りましたので､?ﾏｸﾛの記述･作成方法と動かし方､?関数…

ｴｸｾﾙのﾏｸﾛを覚えたいと思いますが､何をどのようにすればいいのかわかりません｡
つきましては例題を作りましたので､?ﾏｸﾛの記述･作成方法と動かし方､?関数を使った場合の計算式の書き方の2通りについて教えてください｡

例題
A1ｾﾙには､A7､A8,A9....のﾃﾞｰﾀｰをそれぞれ入れたい｡
B1ｾﾙには､B7,B8,B9.....のようにA列の行と同じ行のB列の数値を入れたい｡

A7,A8,A9...また､B7.B8,B9...のﾃﾞｰﾀｰをA1,B1ｾﾙに入れたときにC1の計算結果をC7,C8,C9....に入れたい
同様にD7,D8,D9....にはD1の計算結果を入れたい｡
ちなみにC1=A1+B1,D1=B1-A1となっています｡

当方はｴｸｾﾙ初心者につきまして､上記の方法を具体的に教えてください｡
よろしくお願いします｡

A1 を手入力すると､B1, C1, D1, C7?, D7? の数値が変わる､ってことで良いんですよね｡

`■`計算式の場合

見た目はこう｡

B1 は､VLOOKUP 関数を使ってます｡

=VLOOKUP(A1,A7:B20,2)

二番目の引数は､検索対象範囲で､B20 の 20 は､好きなだけ下に延ばしてください｡
C7 が C$1 になってるのは､式のｺﾋﾟﾍﾟが楽だからです｡

C7 に =C$1 と入力
C7 をｺﾋﾟｰ
C7?D20 を選択して､ﾍﾟｰｽﾄ

`■`ﾏｸﾛ (VBA) の場合

こういう感じで操作します｡

｢開発｣のﾘﾎﾞﾝから､｢Visual Basic｣をｸﾘｯｸ
｢ﾌﾟﾛｼﾞｪｸﾄ｣から､ｼｰﾄを右ｸﾘｯｸして､｢ｺｰﾄﾞの表示｣を選択
開いたｳｨﾝﾄﾞｳの上にあるﾘｽﾄﾎﾞｯｸｽで､左に｢Worksheet｣､右に｢Change｣を選択

ﾘｽﾄﾎﾞｯｸｽを選び終わると､ｳｨﾝﾄﾞｳの中には､こんなのが表示されています｡

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

そこに､以下のようなｺｰﾄﾞを入力します｡

Private Sub Worksheet_Change(ByVal Target As Range)

' ★ここから
Const r_start = 7
Const r_end = 20

Application.EnableEvents = False

a1 = Range("a1").Value
For i = r_start To r_end
 If (a1 = Cells(i, 1).Value) Then
 Range("b1").Value = Cells(i, 2).Value
 Range("c1").Value = a1 + Range("b1").Value
 Range("d1").Value = Range("b1").Value - a1
 Exit For
 End If
Next

For i = r_start To r_end
 Cells(i, 3).Value = Range("c1").Value
 Cells(i, 4).Value = Range("d1").Value
Next

Application.EnableEvents = True

' ★ここまで

End Sub

回答のｺﾒﾝﾄを受けての追記です｡

C1 と D1 のｾﾙの｢式｣を､C7?､D7? にｺﾋﾟｰするﾏｸﾛです｡

Private Sub Worksheet_Change(ByVal Target As Range)

Const r_start = 7
Const r_end = 20

Application.EnableEvents = False

For i = r_start To r_end
 Cells(i, 3).Formula = Replace(Range("c1").Formula, "1", CStr(i))
 Cells(i, 4).Formula = Replace(Range("d1").Formula, "1", CStr(i))
Next

Application.EnableEvents = True


End Sub

■計算式の場合

■ﾏｸﾛ (VBA) の場合

`■`計算式の場合

`■`ﾏｸﾛ (VBA) の場合