Excelでセルに式を入れる

セルに+12の間隔で他のセルを参照したい時
ドラッグして入力を簡単にするため下の"D1"の数字の部分を変数化するには、どのように記述すればいいのでしょうか？D(x+12)となるようなイメージです

_____ A_____B_____C_____D_____E
_1__|=D1__|____|______|__45_|__1
_2__|=D13|____|______|_____|__13
_3__|=D25|____|______|_____|__25
_4__|=D37|____|______|_____|__37
:
1000|=D?_|____|______|_____|___

または別のところ(例えばE1,E2,E3,E4...)に数列(1,13,25,37...)をつくり（これはドラッグすれば簡単にできるので）D(E1),D(E2),D(E3)...とドラッグしてゆくような感じのやり方はないでしょうか？

No.5 ベストアンサー 回答者： ja7awu 回答日時： 2002/11/11 11:19

他のセルを使ったり、ＶＢＡを使わなくてもセルＡ１に

=INDIRECT("D"& (ROW()-1)*12+1)

を入れて下へ必要分フィルハンドルコピーすればＯＫです。

No.4 回答者： imogasi 回答日時： 2002/11/11 08:16

＃１のものです。

＃３でご指摘の通り、Ａ１は＝Ｄ１でスタートするために、For i = 1 To 5 －－－－＞For i = 0 To 5のように修正してください。考え方・方法には修正
する必要はないと思います。

No.3 回答者： kazuhiko5681 回答日時： 2002/11/11 01:20

初めまして。

＃１さんのご回答だとＡ１にＤ１３の値が入力されてしまいます。貴方様はＡ１にＤ１の値・Ａ２にＤ１３の値・Ａ３にＤ２５の値・・・を入力されたいのであれば、次のような操作方法で実行することができます。

・新規ブックを開き、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を表示させ、画面左上のVBAProjectと書かれている下のSheet1をダブルクリックして表示された画面の右側の白い部分に下記のコードをコピー＆ペーストする。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRow As Integer
Dim i As Integer

myRow = Target.Row
If Target.Address <> Cells(myRow, 1).Address Then Exit Sub
For i = 1 To CInt(Range("A1").Value)
If i = 1 Then
Cells(i, 1).Formula = "=D1"
Else
Cells(i, 1).Formula = "=D" & (i * 12 + 1)
End If
Next i

End Sub

操作方法

上記のコードを貼り付けし終えたら、ＡＬＴ＋Ｆ１１キーを押してエクセルの画面にもどり、シート１のＡ１に式を入れたいＡ列の最終行の行番号(例えばＡ１０まで式を入力したいのであれば、１０と入力)し、エンターキー等でＡ１を抜けだす。その時点でマクロが走り、指定した最終行まで式が自動的に入力されます。

ご不明な点・不具合等がありましたらご遠慮なくお知らせ下さい。私のわかる範囲でご一緒に考えていきたいと思います。

No.2 回答者： ruburubu 回答日時： 2002/11/10 23:41

A1に、=indirect("D"&E1)と入力し、下のほうにドラッグすればできます。

No.1 回答者： imogasi 回答日時： 2002/11/10 23:35

この問題はＶＢＡ利用が簡単で良い。

Sub test01()
For i = 1 To 5
Cells(i, 1).Formula = "=d" & (i * 12 + 1)
Next i
End Sub
を実行すると出来る。i = 1 To 5の部分を,１０００行までならi = 1 To 1000に変えてください。
ＶＢＡがはじめてなら、本を読んで頂くか、要求あれば補足します。