[[20200618182523]]　『パレート図をマクロで作成』（不出来な事務員）　ページの最後に飛ぶ

『パレート図をマクロで作成』（不出来な事務員）

問題点　件数　　累積数　累積比率

                                    0             0 
汚れ　　　42　　　　42       30%
キズ　　　33　　　75       54%
異音　　　2             102      74%
隙間　　　24              126     91%
曲がり　　8                134     97%
ガタ付き　4                138    100% 
合計　　　138
上記の表から　パレート図をマクロで作成したいです。
また　マーカー付き折れ線グラフ上に累積比率の値を表示
させる事は可能でしょうか
マクロの記録で作成を試みましたが不出来なもので…。
宜しくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 実際に
 >マクロの記録で作成
 してみたヤツをちょっと弄ってみました。

 (超テキトーですからね)

    Sub test()
        Dim sr As Range
        With ActiveSheet
            Set sr = .Range("A1:D8")
            Set sr = Union(sr.Columns(1), sr.Columns(2), sr.Columns(4))
            With .Shapes.AddChart.Chart
                .ChartType = xlColumnClustered
                .SetSourceData Source:=sr
                With .SeriesCollection(2)
                    .AxisGroup = 2
                    .ChartType = xlLineMarkers
                    .ApplyDataLabels
                    .DataLabels.Position = xlLabelPositionAbove
                End With
            End With
        End With
    End Sub

（白茶） 2020/06/18(木) 20:31

白茶様ありがとうございました。
因みになのですが「棒グラフ上の件数」や「タイトルの表示」
は可能でしょうか？
お願いします。
（不出来な事務員） 2020/06/19(金) 20:57

横からすみません。
可能だとおもいますよ。
ご自分でマクロ記録などでトライして、不明点を具体的に質問してください。
ご自分でトライできないような内容ではないと思いますが、どうですか？

リクエストに応えずに口を挟んで悪いけど、
こういうお願いスタイルだと、いつまで経ってもご自分でできないと思いますよ。
マクロ記録から前に進まないなら、その記録を提示してみてはどうですか？

（γ） 2020/06/19(金) 23:14

γ様のご意見も　考え方も有りだと思います。が
私みたいにこういうスタイルでしかリクエストできない
人もいるんだと理解　共感までとは言いませんが....
ご教授出来る方がいらっしゃりましたらお願いします。

（不出来な事務員） 2020/06/20(土) 08:37

マクロよりテンプレートがよいのではないでしょうか。
http://www4.synapse.ne.jp/yone/excel2013/excel2013_graph_template.html

（マナ） 2020/06/20(土) 09:02

マナ様　貴重なアドバイスありがとうございます。
検討してみます。マクロの方もご教授ねがいます。
（不出来な事務員） 2020/06/20(土) 09:28

白茶様のコードに以下のコードを単純に
追加してもダメなんですね！？

ActiveSheet.ChartObjects.Activate
ActiveChart.FullSeriesCollection(1).Select
Application.CommandBars("Format Object").Visible = False

 ActiveChart.FullSeriesCollection(1).ApplyDataLabels

（不出来な事務員） 2020/06/20(土) 20:00

＞「棒グラフ上の件数」や「タイトルの表示」

この操作を実行し、記録されたコードをそのまま提示してください。

（マナ） 2020/06/20(土) 20:11

こんな感じです。
ActiveSheet.ChartObjects("グラフ 10").Activate

    ActiveChart.FullSeriesCollection(1).Select
    ActiveChart.FullSeriesCollection(1).ApplyDataLabels
（不出来な事務員） 2020/06/20(土) 20:18

単純に「棒グラフ上の件数表示」や「タイトルの表示」を含めた
パレート図を作成するコードを知りたいだけなのですが？......。
白茶様　マナ様　γ様お願いします。
結構みなさんの質問を拝見していますが”コードお願いします”の
リクエストが多いように見えますが…。
私だけ叩かれなければいけないのか？
（不出来な事務員） 2020/06/20(土) 20:42

＞「タイトルの表示」

この操作も実行し、記録されたコードをそのまま提示してください。

（マナ） 2020/06/20(土) 21:01

＞「タイトルの表示」
方法がわかりません。
（不出来な事務員） 2020/06/20(土) 21:11

ならば、そういってくれないと…
タイトルには、何と表示するのですか。

（マナ） 2020/06/20(土) 21:24

タイトルには　「タイトル」と表示しておいて
後で編集します。
（不出来な事務員） 2020/06/20(土) 21:31

普通は、グラフ作成にマクロを使はないと思うのですが？

    Sub test2()
        Dim sr As Range  
        With ActiveSheet
            Set sr = .Range("A1:D8")
            Set sr = Union(sr.Columns(1), sr.Columns(2), sr.Columns(4))
            With .Shapes.AddChart.Chart
                .ChartType = xlColumnClustered
                .SetSourceData Source:=sr
                .HasTitle = True    '★
                .ApplyDataLabels    '★
                With .SeriesCollection(2)
                    .AxisGroup = 2
                    .ChartType = xlLineMarkers
'                    .ApplyDataLabels
                    .DataLabels.Position = xlLabelPositionAbove
                End With
            End With
        End With
    End Sub

（マナ） 2020/06/20(土) 21:41

グラフ　タイトル　Excel2013 で検索してヒットしたもの。

「Excel2013で作成したグラフのタイトル追加/削除/変更方法」
http://xn--icko0bxn.excel-microsoft.info/office/cate08/2013_02.php

マクロのマを云々する前に、一般操作を勉強してください。
勉強の順番がおかしいです。

（γ） 2020/06/20(土) 21:49

ご指摘等多々ありますでしょうが…。
最後に”棒グラフ上だけの件数表示”はかのうでしょうか？
お願いいたします。
（不出来な事務員） 2020/06/21(日) 06:57

    Sub test3()
        Dim sr As Range    
        With ActiveSheet
            Set sr = .Range("A1:D8")
            Set sr = Union(sr.Columns(1), sr.Columns(2), sr.Columns(4))
            With .Shapes.AddChart.Chart
                .ChartType = xlColumnClustered
                .SetSourceData Source:=sr
                .HasTitle = True
                .SeriesCollection(1).ApplyDataLabels    '★
                With .SeriesCollection(2)
                    .AxisGroup = 2
                    .ChartType = xlLineMarkers
'                    .ApplyDataLabels.delete
'                    .DataLabels.Position = xlLabelPositionAbove
                End With
            End With
        End With
    End Sub

（マナ） 2020/06/21(日) 07:56

コメント返信：

[ 一覧(最新更新順) ]

[[20200618182523]] 『パレート図をマクロで作成』（不出来な事務員） ページの最後に飛ぶ

[[20200618182523]]　『パレート図をマクロで作成』（不出来な事務員）　ページの最後に飛ぶ