Excel VBA質問箱 IV

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

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


15882 / 76734 ←次へ | 前へ→

【66326】Re:連続散布図作成&異常点削除
発言  kanabun  - 10/8/23(月) 10:20 -

引用なし
パスワード
   ▼ここ さん:
こんにちは。


>A列をY軸でb・c〜複数列をそれぞれX軸として、
>dataとは別sheetに値が入力されている列全て
>A列との散布図を作成し表記したいです。
>(下の表だとA・B列、A・C列の2つの散布図を作成)
>グラフが多数になるので、グラフは縦並びで
>1つ1つのグラフには、Y軸:温度
>X軸:変化・個数・・・・のタイトルを表示。

この部分だけですが、以下のような感じでどうでしょう。

Sub Try1()
 Dim r As Range
 Dim c As Range
 Dim i As Long
 Dim ChtObj As ChartObject
 
 Set r = Range("A1").CurrentRegion.Resize(, 3) '元データ範囲
 Set r = Intersect(r, r.Offset(1))   '一行目をオミット
 Set c = Range("B10").Resize(18, 7)  'グラフを描画するセル範囲
 
 Set ChtObj = ActiveSheet.ChartObjects.Add(c.Left, c.Top, c.Width, c.Height)
 With ChtObj.Chart
   .ChartType = xlXYScatterLines
   For i = 2 To 3
     With .SeriesCollection.NewSeries
       .XValues = r.Columns(i)
       .Values = r.Columns(1)
       .Name = r.Item(0, i)
     End With
   Next
   .SeriesCollection(1).AxisGroup = 2
    
   .HasAxis(xlCategory, xlPrimary) = True
   With .Axes(xlCategory, xlPrimary)
     .HasTitle = True
     .AxisTitle.Characters.Text = "個数"
   End With
   
   .HasAxis(xlCategory, xlSecondary) = True
   With .Axes(xlCategory, xlSecondary)
     .HasTitle = True
     .AxisTitle.Characters.Text = "変化"
   End With
   
   .HasAxis(xlValue, xlPrimary) = True
   With .Axes(xlValue, xlPrimary)
     .HasTitle = True
     .AxisTitle.Characters.Text = "温度"
   End With
 End With

End Sub

ポイントは 第2軸の追加、です。
>   .SeriesCollection(1).AxisGroup = 2
>   .HasAxis(xlCategory, xlSecondary) = True


>又、そのグラフの中から
>C列の様に99999という異常点を
>ダブルクリックすればグラフには反映しない様にする
>事は可能でしょうか。
>(元dataから削除など)

こちらは ノーアイデアです。
1 hits

【66322】連続散布図作成&異常点削除 ここ 10/8/23(月) 8:54 質問
【66326】Re:連続散布図作成&異常点削除 kanabun 10/8/23(月) 10:20 発言
【66328】Re:連続散布図作成&異常点削除 ここ 10/8/23(月) 13:44 お礼
【66329】Re:連続散布図作成&異常点削除 kanabun 10/8/23(月) 13:59 発言
【66327】Re:連続散布図作成&異常点削除 kanabun 10/8/23(月) 11:21 発言

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