スキルアップ・問題解決なら、モーグにおまかせ！

以下のプログラムにてｘを-3〜+3まで0.01ピッチで変化させて放物線y=ax2を描こうとしています。
 
Sub Example1()
    Dim a As Single
 
    For a=-3 To 3 Step 0.01
        Range("a")=a
        Calculate
    Next a
End Sub
 
ところが「Range("a")=a」のところでエラーとなり
 
「実行時エラー'1004'
'Range'メソッドは失敗しました'_Global'オブジェクト」
 
というメッセージが出ます。
 
Rangeの指定方法に問題があるのでしょうか。ご教示よろしくお願いいたします。

>Rangeの指定方法に問題があるのでしょうか。
 
単純に、「a」というセルは存在しないということです。
 
VBAでセルを指定する時は、
Range("A1")
というように書きます。
変数で指定する場合は、
Dim セルＡ As String
 
セルＡ = "A10"
 
Range(セルＡ)
 
又は、Cells(10,　1)
 
 

# このスレッドと関係ないことで恐縮です。
https://www.moug.net/faq/viewtopic.php?t=82422
に関係すると思われる記事を書きました。お知らせします。

>プログラムにてｘを-3〜+3まで0.01ピッチで変化させ
と書いたなあば
 
For x = -0.3 To 3 Step 0.01
 
で、x を使わないと説明と整合しないでしょう。
ところで、どのセルに代入したいのでしょうか？
 
固定のセルに代入するのは、おかしいから、
例えば、「セルＢ１から、下へ」のようにする必要があると思います。
医パン的には、Cellsを使た方が分かりやすいとおもいます。

放物線を描く一例です。
放物線のy値をセルに書き込んでおいてから、それをグラフ化するパターンです。
 

Sub Example1()
    Dim x As Single, y As Single
    Dim c As Integer
    
    c = 0
 、    
    For x = -3 To 3 Step 0.01
        y = x * x
        Cells(1 + c, 1) = y
               
        c = c + 1
    Next


ActiveSheet.Shapes.AddChart2(227, xlLineMarkers, 100, 100, 200, 500).Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$A$" & Cells(1, 1).End(xlDown).Row)

End Sub

文章の入力ミス訂正
>医パン的には、Cellsを使た方が分かりやすいとおもいます。
⇞
一般的には、Cellsを使た方が分かりやすいとおもいます。
 

放物線グラウ用の表を、
 
横方向の表に作成するコードです。
参考にしてください。
 

    Dim x As Single, y As Single
    Dim C As Long
 
    For x = -3 To 3 Step 0.01
        y = x * x
        C = Cells(2, Columns.Count).End(xlToLeft).Column + 1
        Cells(1, C).Value = x
        Cells(2, C) = y
    Next

WinArrow様、simple様、wtnb様
検討に時間がかかりそうなので、とりあえず早速のご回答にお礼申し上げます。
別途状況、結果につきまして報告いたします。ありがとうございます。

用途が判りませんが、Single ではなく、Double の方が良いと思います。