Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39294 / 76738

←次へ　｜　前へ→


	【42557】Re:Excel上の２次元プロットの方法につい...

漂流民 - 06/9/14(木) 23:59 -


	引用なし

	パスワード

▼無為自然さん：
こんばんわ

>どなたか２次元プロットをするマクロ持っていませんでしょうか。
>
>よろしくお願いします。

持っていませんが参考までに

「準備」を実行後、「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
'********************************************************************************

勘違いだったらすみません^^

0 hits

▼

【42541】Excel上の２次元プロットの方法について 無為自然 06/9/14(木) 14:17