[[20060612182658]]　『散布図の交点に関して』（Pp）　ページの最後に飛ぶ

『散布図の交点に関して』（Pp）
散布図の交点に対する質問です。
散布図のx軸y軸の交点をセルから拾って自動的に変わっていくようにしたいのですが、
何か良い方法はありませんでしょうか？
よろしくお願いします。

 意味がよく分かりませんので
 もう少し詳しく教えてください。

 例えばどんなデータのグラフの時に
 どの値を拾って何を自動的に変えたいのでしょう。

 (HANA)

散布図を使ってPPM分析のグラフを作りました。この際x軸ｙ軸の交点を平均値で交わるようにしたいのですが、グラフの書式設定で設定してるのですが、平均値が月で変わっていくため、一々その設定を変更していくのではなく、セルの平均値が計算して出ているところか、自動的に拾わせて行くようにはならないでしょうか。

 私が管理するグラフなら
 VBAで交点の値をかえると思いますが
 どなたもそのコードを載せないと言うことは
 良い案ではないのかもしれません・・・・。

 (HANA)

HANA様とりあえず載せていただけますでしょうか？よろしくお願いします(Ｐp)

 それならとりあえず載せますが
 何が起こるか分かりませんよ。
 （と言う意味で私運用用なのです）

 Ｘ軸との交点にしたい値が A1
 Ｙ軸との交点にしたい値が A2
 にあるとすると

 Sub XY()
  Dim X As Integer, Y As Integer
   X = Range("A1") '←実際のセル番地に変更して下さい。
   Y = Range("A2") '←実際のセル番地に変更して下さい。

    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScaleIsAuto = False
        .MaximumScaleIsAuto = False
        .MinorUnitIsAuto = False
        .MajorUnitIsAuto = False
        .Crosses = xlCustom
        .CrossesAt = X
        .ReversePlotOrder = False
        .ScaleType = xlLinear
    End With

    ActiveChart.Axes(xlCategory).Select
    With ActiveChart.Axes(xlCategory)
        .MinimumScaleIsAuto = False
        .MaximumScaleIsAuto = False
        .MinorUnitIsAuto = False
        .MajorUnitIsAuto = False
        .Crosses = xlCustom
        .CrossesAt = Y
        .ReversePlotOrder = False
        .ScaleType = xlLinear
    End With
 End Sub

 こんな感じです。
 マクロの記録をつついただけなので
 思いがけないことが起きるかもしれません。

 変更したいグラフをアクティブにした状態でに実行して下さい。

 (HANA)

 以前上記マクロを提案したのですが、桁数が多いとオーバーフローするようです。
[[20061021191342]]『PPMグラフのXY軸の交点』（花形）

 上記リンク先では、「宣言を変える」と言う提案をしましたが、桁数が多い場合
 （おそらく、数式処理で割り切れない場合だと思いますので）
 どちらかというと、ROUND関数を使って有効桁数で丸めを行った物を
 変数に取り入れる方が良いような気がします。
 桁数を減らせない場合は、宣言を変えて下さい。

 以上、追記でした。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20060612182658]] 『散布図の交点に関して』（Pp） ページの最後に飛ぶ

[[20060612182658]]　『散布図の交点に関して』（Pp）　ページの最後に飛ぶ