[[20221123080812]]　『グラフの関数の変更の仕方』（グラフ）　ページの最後に飛ぶ

『グラフの関数の変更の仕方』（グラフ）

申し訳ありません。
あまりわかっておらず返信欄に投稿してしまった為再度投稿させて頂きました。

[[20221121150043]]続きでもう一件お聞きしたいことがあり再度投稿失礼します。
D13～D17 =SERIES(,,はこ!$B$1:$I$1,1)
E13～E17　=SERIES(,,はこ!$B$2:$2$2,1)
...
Y13～Y17 =SERIES(,,はこ!$B＄22:$2$22,1)
列が変わりまして
D18～D22 =SERIES(,,はこ!$B＄23:$2$23,1)
...
Y18～Y22 =SERIES(,,はこ!$B＄43:$2$43,1)
(列D58～D62まであり）
グラフがたくさん並んでいるのですが今隣のグラフをコピーし貼り付けし$B$1:$I$1ここの部分の数字（この場合D13～D17　SERIES(,,はこ!$B$1:$I$1,1)のグラフをE13～E17に貼り付けして1→2）を手入力で数字を変更しているのですが数字楽に変更する手段はありますでしょうか？

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

入力規則のリストで選択するのはどうでしょうか。
（???） 2022/11/23(水) 14:25:00

 >続きでもう一件お聞きしたいことがあり
 なら
 >Y18～Y22 =SERIES(,,はこ!$B＄43:$2$43,1) 
 とありますが
 =SERIES(,,はこ!$B$1:$I$1,1)
 =SERIES(,,はこ!$B$2:$I$2,1)
 =SERIES(,,はこ!$B$3:$I$3,1)
 =SERIES(,,はこ!$B$4:$I$4,1)
 =SERIES(,,はこ!$B$5:$I$5,1)
 の５パターンだけですよね？

 もし違っても、他に方法が思いつかないので一例です。
 D13:D17にグラフが収まっているとして、名前ボックスにD13:D17と入れてEnterするとグラフごとセルが 
 選択されるのでCtrl+CでコピーしてE列～H列に貼り付け。
 E列のグラフの数式バーで1を2に変更。残りも数式バーで変更。

 D13:H17を同じように名前ボックスで範囲指定してコピー、必要範囲に貼り付ければ5パターン分貼り付 
 けられます。

 ご参考まで。
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
 ちんたら書いてたら
 >入力規則のリストで選択するのはどうでしょうか。
 >（???） 2022/11/23(水) 14:25:00
 へ～興味深い。
 でもせっかくなので一応あげときますね^^
（檸檬） 2022/11/23(水) 15:26:07

勘違いしていました。
スルーしてください。
（???） 2022/11/23(水) 16:15:06

ああ、私も勘違いかも＾＾；

 >（この場合D13～D17　SERIES(,,はこ!$B$1:$I$1,1)のグラフをE13～E17に貼り付けして1→2）
 D13～D17の範囲に一つのグラフだと思っていましたが、１セルに一つで縦に5種類のグラフだったのかなぁ
 まあ、それでもやり方は似たようなものですので。。。

 すでに作成済みのものを変更する簡単な方法は他の識者の方にお任せします^^；

（檸檬） 2022/11/23(水) 18:33:51

 マクロでグラフを描くなら、こんな感じかな。

 Sub main()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim shp As Shape
    Dim cht As chart
    Dim rng As Range
    Dim rng2 As Range
    Dim k&

    Set ws1 = Worksheets("sheet1")
    Set ws2 = Worksheets("sheet2")

    Set rng2 = ws2.[D13:D17]    'グラフの書き込み先
    Application.ScreenUpdating = False
    For k = 1 To 199
        Set shp = ws2.Shapes.AddChart2(251, xlPie)
        Set cht = shp.chart

        Set rng = ws1.Cells(k, 2).Resize(1, 8)  '元データ
        With cht
            .SetSourceData Source:=rng
            .ChartTitle.Delete          '不明だが多分
            .Legend.Delete              '不明だが多分
        End With

        'グラフの位置調整
        With shp
            .Left = rng2.Left
            .Top = rng2.Top
            .Width = rng2.Width
            .Height = rng2.Height
        End With

        '次の書き込み位置にセット
        If rng2.Column = 25 Then
            Set rng2 = rng2.Offset(5, -21)
        Else
            Set rng2 = rng2.Offset(0, 1)
        End If
    Next

    Application.ScreenUpdating = True
 End Sub
 もっとスマートな書き方があるのかもしれません。
 ひとつひとつのグラフをその都度作成していますが、
 Duplicateを使って増殖する方法のほうが標準かもしれません。工夫してみて下さい。

 ちなみに、データの提供にいくつか間違いがあります。
 逐一指摘しませんけど、もう少し慎重に提示して頂きたい。

 ちなみに^2、前の質問は結局何が原因だったのですか？きちんと書いて貰いたい。
 手動計算になっていたということですね？F9キーを押すと色が変わったと。
 　
（γ） 2022/11/24(木) 10:32:44

 (γ)さんのを見てわかりました。
 >Y18～Y22 =SERIES(,,はこ!$B＄43:$2$43,1)は
 =SERIES(,,はこ!$B$43:$I$43,1)なのですね。
 別シートに全部のグラフ分の表があってそれぞれ変更できるようにしてあるのですね。

 5パターンではないということですかね～

 >手動計算
 でもないみたいですよ。。。
 >初めからグラフを作成していったらグラフの色変更できました。
 とありましたので。。
（檸檬） 2022/11/24(木) 20:20:09

 私も199個もグラフが必要とは思いません。 
 8C4(=70)の組み合わせがあれば十分と思いますが、
 提示された「列D58～D62まであり」から類推すると、そうなるのかなということです。

 こちらには返事もせず放置したまま、
[[20221124131926]] を立ち上げたようですが、私には信じられない行動ですな。
 　
（γ） 2022/11/24(木) 22:36:58

コメント返信：

[ 一覧(最新更新順) ]

[[20221123080812]] 『グラフの関数の変更の仕方』（グラフ） ページの最後に飛ぶ

[[20221123080812]]　『グラフの関数の変更の仕方』（グラフ）　ページの最後に飛ぶ