- 617 名前：デフォルトの名無しさん [2012/01/03(火) 20:12:26.74 ]
- Sub sample()
Dim a, i As Double
a = Cells(2, 3).Value
For i = 1 To a
Cells(i, 1).Value = i
Nexti
End Sub
上記のように、マクロを使用せずに、シート1のセル（2，3）の部分に数字を
入れれば、自動的に、(1,1),(2,1),(3,1)の部分に1，2，3といったように
表示させたく上のコードを作りました。
しかし、なぜかエラーとして
subあるいはfunctionが定義されていません。
と出ました。
どうすればよいのでしょうか？
またfunction関数を作る場合は、module以外のシートに作る必要があるのでしょうか？
何卒よろしくお願いします。
