【管理図】に関する知恵袋
【質問】
エクセルグラフの最大値を固定でも自動でもなく、決められたセルから数値を引き出す事は可能ですか？どなたか、詳しい方教えていただけませんでしょうか？管理図の知恵袋を言及していくと、QC道具の一つであるパレート図などを作成しグラフ化した場合、管理図の知恵袋についてです。また、棒グラフの最大値は各項目の合計数でなければ各項目の割合（率）のマーカーが棒グラフの右肩部になりません。 自分が作成したグラフは生産管理図で日々入力していくものです。日毎に各項目の合計が増加していきますので毎回最大値を入力しないと各項目の割合がズレてしまいます。パソコンリサイクルを考えると、そこで、常に合計数が入力されるセルから値を抜き出したいのですが方法がわかりません。どなたか、パソコンリサイクルといえば、詳しい方教えていただけませんでしょうか？
【解答】
パソコンリサイクルを紐解くと、マクロを作成するしかないと思います。マクロの記録が出来るのであれば、パソコンリサイクルといえば、一旦マクロの記録で最大値を変更するマクロを作ります。その後、管理図の知恵袋について言及すると、そのマクロに特定のセルの値を変数に取り込んでその変数を最大値に設定するように改造します。下記のマクロはそのようにして作成したものです。不必要な設定は削除しています。B6セルに合計が入っているとした場合です。変数名は「mymax」で設定していますSub Macro1() Dim mymax As Long 'mymaxを変数として宣言 mymax = Range("B6").Value 'B6セルの値をmymaxに入れる ActiveSheet.ChartObjects("グラフ 1").Activate 'グラフを選択 ActiveChart.Axes(xlValue).Select '数値軸を選択 With ActiveChart.Axes(xlValue) .MaximumScale = mymax '最大値にmymaxを設定 End With Range("A1").Activate 'A1セルにカーソルを移動End Subマクロの記録は下記ページが参考になります。管理図の知恵袋を分解していくと、http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_01.html
