Results of 1 - 1 of about 19647 for 20�����������������������... (0.004 sec.)
- [[20200618182523]]
- #score: 2682
- @digest: ec040a8ea25050f9dd6e4732e9e845ca
- @id: 84122
- @mdate: 2020-06-20T22:56:53Z
- @size: 5997
- @type: text/plain
- #keywords: 不出 (56475), applydatalabels (29494), xllabelpositionabove (20299), axisgroup (15272), fullseriescollection (13665), 積比 (13353), xllinemarkers (12197), datalabels (11794), xlcolumnclustered (11222), charttype (10513), addchart (10293), 務員 (10204), ト図 (8926), 数累 (8227), hastitle (6098), フ上 (5773), sr (5588), seriescollection (5503), （不 (5369), setsourcedata (5219), 事務 (5159), 茶様 (4959), activechart (4832), 員） (4686), position (4388), 「タ (4207), リク (4109), 累積 (3900), パレ (3576), エス (3475), 棒グ (2519), トル (2243)
- 『パレート図をマクロで作成』（不出来な事務員）
問題点 件数 累積数 累積比率 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... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202006/20200618182523.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97019 documents and 608147 words.
訪問者：