Results of 1 - 1 of about 3689 for グラフ (0.002 sec.)
- [[20180627203153]]
- #score: 3271
- @digest: a079a51b3474a4e728b4db60b7c7a9a4
- @id: 76714
- @mdate: 2018-06-28T14:04:31Z
- @size: 2879
- @type: text/plain
- #keywords: ・gr (14010), る系 (10976), 目: (8643), seriescollection (8231), フ1 (7564), フ2 (7215), ・da (7000), values (6643), cho (6198), タ7 (4479), graph (4365), charts (4315), タ6 (3623), フ3 (3606), タ5 (2827), 目番 (2655), ラフ (2616), 系列 (2596), グラ (2351), タ4 (2234), 列3 (1925), タ以 (1721), タ3 (1635), 列2 (1259), tbl (1188), 号2 (961), マナ (952), 本日 (938), double (908), 縦棒 (868), 列1 (861), 、グ (848)
- 『グラフを自動で作成したい』（ぽぽ）
縦棒グラフを自動で作成したいです。 やりたいことを説明すると、、、 Excelに以下の二つのシートを用意します。 ・data ・graph dataシートには、以下のようにデータを配置します。 1行目:項目番号 2行目:グラフ1に使用する系列1のデータ 3行目:グラフ1に使用する系列2のデータ 4行目:グラフ1に使用する系列3のデータ 5行目:グラフ2に使用する系列1のデータ 6行目:グラフ2に使用する系列2のデータ 7行目:グラフ2に使用する系列3のデータ 以降、グラフ3,4,5,・・・と配置していく。 graphシートでは、dataシートを参照してグラフ1,2,3・・・と作成します。 現状、グラフのデータ選択をdataシートから手動で選択しているのですが、グラフの数が多いため、オートフィルのようにうまく作成する方法はないのか知りたいです。 以上、よろしくお願いいたします。 ＜ 使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- ＞Excelに以下の二つのシートを用意します。 ＞・data ＞・graph 残りは、マクロでコピーして作成します Option Explicit Sub test() Dim cht As Chart Dim tbl As Range Dim i As Long Set cht = Charts(1) Set tbl = Worksheets(1).Cells(1).CurrentRegion For i = 5 To tbl.Rows.Count Step 3 cht.Copy after:=Charts(Charts.Count) With ActiveChart .SeriesCollection(1).Values = tbl.Rows(i) .SeriesCollection(2).Values = tbl.Rows(i + 1) .SeriesCollection(3).Values = tbl.Rows(i + 2) End With Next End Sub （マナ） 2018/06/27(水) 21:44 ---- マナさん 情報ありがとうございます。 本日、実行してみます。 （ぽぽ） 2018/06/28(木) 07:53 ---- マナさん 本日無事目的を達成することができました。 ありがとうございました。 自分の作成したグラフが埋め込みグラフとなっていて、グラフの移動をしてからでないと期待通りの動作をしないことが分かり、勉強になりました。 このマクロを実行すると、シートが作成するグラフの数量分作成されてしまうので、 次は、graphシート内に連続で作成できるようにしてみたいと思います。 大変助かりました。 ありがとうございました。 （ぽぽ） 2018/06/28(木) 21:48 ---- 埋め込みグラフの場合は Option Explicit Sub test2() Dim tbl As Range Dim cho As ChartObject Dim L As Double, T As Double, H As Double Dim i As Long Dim n As Long Set tbl = Worksheets("data").Cells(1).CurrentRegion Set cho = Worksheets("graph").ChartObjects(1) L = cho.Left T = cho.Top H = cho.Height For i = 5 To tbl.Rows.Count Step 3 n = n + 1 With cho.Duplicate .Left = L .Top = T + (H + 50) * n With .Chart .SeriesCollection(1).Values = tbl.Rows(i) .SeriesCollection(2).Values = tbl.Rows(i + 1) .SeriesCollection(3).Values = tbl.Rows(i + 2) End With End With Next End Sub （マナ） 2018/06/28(木) 22:47... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201806/20180627203153.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97066 documents and 608360 words.
訪問者：