Excel VBA質問箱 IV

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

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


6878 / 13646 ツリー ←次へ | 前へ→

【42541】Excel上の2次元プロットの方法について 無為自然 06/9/14(木) 14:17 質問[未読]
【42557】Re:Excel上の2次元プロットの方法につい... 漂流民 06/9/14(木) 23:59 発言[未読]
【42610】Re:Excel上の2次元プロットの方法について asahi 06/9/16(土) 12:59 回答[未読]

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

引用なし
パスワード
   どなたか2次元プロットをするマクロ持っていませんでしょうか。

よろしくお願いします。

【42557】Re:Excel上の2次元プロットの方法につい...
発言  漂流民  - 06/9/14(木) 23:59 -

引用なし
パスワード
   ▼無為自然 さん:
こんばんわ

>どなたか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
'********************************************************************************

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

【42610】Re:Excel上の2次元プロットの方法につい...
回答  asahi  - 06/9/16(土) 12:59 -

引用なし
パスワード
   >2次元プロットをする
散布図の事ですか?
であれば標準のグラフ機能で出来ます。

6878 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free