|
▼無為自然 さん:
こんばんわ
>どなたか2次元プロットをするマクロ持っていませんでしょうか。
>
>よろしくお願いします。
持っていませんが参考までに
「準備」を実行後、「test」を実行
'********************************************************************************
Sub 準備()
Dim i As Integer, j As Integer
j = -50
For i = 1 To 101
Cells(i, 1).Value = j + i
Next i
With Charts.Add
.ChartType = xlXYScatterSmoothNoMarkers
.SetSourceData Source:=Sheets("Sheet1").Range("A1:B101"), PlotBy:=xlColumns
.Location Where:=xlLocationAsNewSheet
.HasLegend = False
End With
End Sub
Sub test()
Dim i As Integer
Dim x As Integer, y As Double
With Sheets("Sheet1")
For i = 1 To 101
x = .Cells(i, 1).Value
y = x ^ 3 '← 求めたい式 ////////////////////////////////
.Cells(i, 2).Value = y
Next i
End With
Sheets("Graph1").Activate
End Sub
'********************************************************************************
勘違いだったらすみません^^
|
|