
下記のようなデータを、一気に散布図でグラフ化(データ間は線で結びたい、つまり1個のグラフ中に100本の線ができている状態)したいのですが、やり方がわからず困っています。
(X1とY1、X2とY2、・・・、X100とY100が対応)
X1に対してY1というように、一つ一つ、系列を追加していけばできるのはわかるのですが、データが多いのでそれでは時間がかかりすぎてしまいます。どなたか時間をかけずに一気にグラフ化する方法をご存知であれば、おしえていただけないでしょうか。
<X軸>
X1: 2 8 10 3
X2: 3 21 29 40
・
・
X100:4 9 10 18
<Y軸>
Y1: 1 4 5 2
Y2: 2 8 19 4
・
・
Y100:14 9 2 30
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
まだ締め切り処理をされないのは何か問題が残っているのでしょうか?
もし、そうでしたら遠慮なく質問してください。
グラフ操作関連のテクニック
http://moug.net/tech/exvba/0021.htm
No.3
- 回答日時:
>この配置換え
添付ファイルの例
G2に=INDEX($B$2:$E$6,FLOOR(ROW()+2,COLUMNS($B$2:$E$2))/COLUMNS($B$2:$E$2),MOD(ROWS($B$9:$B9)-1,COLUMNS($B$2:$E$2))+1)
下へコピー
H2に
=IF(COLUMNS($H$1:H1)=FLOOR(ROWS($A$9:A9)+COLUMNS($B$9:$E$9)-1,COLUMNS($B$9:$E$9))/COLUMNS($B$9:$E$9),INDEX($B$9:$E$13,COLUMNS($B$9:B9),MOD(ROWS($B$9:B9)+COLUMNS($B$9:$E$9)-1,COLUMNS($B$9:$E$9))+1),"")
右、下へコピー

No.1
- 回答日時:
マクロのサンプルです。
シート名、データセル範囲等は実情に合わせて変更してください。
With Sheets("グラフ").Range("H2:P20")
With ActiveSheet.ChartObjects.add(.left, .Top, .Width, .Height).Chart
.ChartType = xlXYScatterLines
For i = 0 To 99
With .SeriesCollection.NewSeries
.Name = Sheets("グラフ").Range("A3").Offset(i)
.XValues = Sheets("グラフ").Range("B3:E3").Offset(i)
.Values = Sheets("グラフ").Range("B105:E105").Offset(i)
End With
Next i
End With
End With
ご回答ありがとうございました。
当方、マクロを使ったことがなく、正直よく分かっていません。
このマクロを実行すると、希望する散布図がそのままできるのでしょうか。初心者ですみません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
別シートの年間行事表をカレン...
-
Office2021を別のPCにインスト...
-
Excelで〇のついたものを抽出し...
-
office2019 のoutlookは2025年1...
-
大学のレポート A4で1枚レポー...
-
マクロ自動コピペ 貼り付ける場...
-
ms teamsの日々のスケジュール...
-
Microsoft Formsの「個人情報や...
-
outlookのメールが固まってしま...
-
エクセルで質問です。 ハイパー...
-
【Excel VBA】PDFを作成して,...
-
エクセル 同じ数字を他の列に自...
-
エクセルからメールを作れるか...
-
Microsoft365で自動保存が出来...
-
パソコンWindows11 Office2021...
-
Office 2021 Professional Plus...
-
VBAファイルの保存先について
-
パソコンを買い替える際、前の...
-
エクセル:一定間隔で平均値を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
大学のレポート A4で1枚レポー...
-
Office2021を別のPCにインスト...
-
エクセル 同じ数字を他の列に自...
-
エクセルからメールを作れるか...
-
Microsoft365、ページ設定がで...
-
快活CLUBについて 私用で使う書...
-
パソコンWindows11 Office2021...
-
libreoffice calcで行を挿入し...
-
エクセルで質問です。 ハイパー...
-
outlookのメールが固まってしま...
-
Microsoft Formsの「個人情報や...
-
別シートの年間行事表をカレン...
-
Microsoft Formsでクイズの解答...
-
マクロ自動コピペ 貼り付ける場...
-
Excelで〇のついたものを抽出し...
-
Excel 日付を比較したら、同じ...
-
エクセルで特定のセルの値を別...
-
Officeを開くたびの「再起動メ...
-
office2019 のoutlookは2025年1...
おすすめ情報