Excelでのグラフ系列に関するマクロの不具合と解決方法

前へ 次へ
このQ&Aのポイント
  • Excelでのグラフ系列に関するマクロの不具合箇所としては、Sub内でDo文が条件外となるとグラフが選択されていないと認識されてNG処理へ移行する点です。
  • 対応策としては、For文を使用する代わりに、Do文の条件を修正することや、グラフを再選択させる前に条件を事前にチェックすることが考えられます。
  • さらに、グラフ系列の追加と参照先設定の際にも一部の置換処理が必要です。基準系列を適切に指定し、系列情報を正しく置換することで、問題を解決することができます。
回答を見る
  • ベストアンサー

Excelでのグラフ系列に関するマクロ

下記が上手く動作しないので、皆さまのお知恵を拝借したく思います。 概略を言いますと、散布グラフ選択時にmt02数の系列を増やすVBAです。増やした系列情報として基準系列データを与えており、その後置換処理をしています（基準系列=mt03、今は一時的に1系列目） Sub 系列情報の取得 Dim fn As String Dim mt02, mt03 As Integer Dim i, k As Integer Dim new_k As String fn = ActiveChart.SeriesCollection(mt03).Formula k = 1 Do Until k > mt02 new_k = 系列追加と参照先設定((i), (k), (fn)) k = k + 1 Loop ' グラフが選択されていない状態になるとココへ Chart_Error: msg = MsgBox("NG", vbCritical, "error") End Sub Function 系列追加と参照先設定(i2 As Integer, k2 As Integer, fn2 As String) Dim fn_new As String ActiveChart.SeriesCollection.NewSeries ' 系列情報を置換、一時的に1系列目を基準データとしている i2 = i2 + k2 fn_new = Replace(fn2, "1)", i2 & ")") ActiveChart.SeriesCollection(i2).Formula = fn_new End Function 不具合箇所としては、Sub内でDo文が条件外となるとグラフが選択されていないと認識されてNG処理へ移行する点です。For文にしても不可、グラフを再選択させてもその瞬間にNGとなります。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

Loop Exit Sub では？

sanakazu
質問者

お礼

おおっ、解決です。簡単なことでしたね・・・。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Office 2003 excel vbaでグラフの種類を一系列毎に判

    Office 2003 excel vbaでグラフの種類を一系列毎に判定するマクロを組もうとしております。マクロの対象となるグラフには合計で4系列が含まれており、上から棒グラフ、棒グラフ、マーカーなしの折れ線グラフ、マーカー付のおれせんグラフとなっています。 以下のマクロを実行して、「xlbar」「xlbar」「xlline」「xlline」とメッセージが返る事を想定していたのですが、実際には「51」「５１」「65」「4」とメッセージが表示されます。 どこで間違っているのかご教示いただけますと幸いです。 Sub 判定() Dim i As Integer Dim seriesCounts As Integer seriesCounts = ActiveChart.SeriesCollection.Count For i = 1 To seriesCounts MsgBox ActiveChart.SeriesCollection(i).ChartType Next i End Sub

  • 積み上げグラフ　系列ごとの自動塗り分け

    現在、オフィス2003で業務の時刻表を作成しています。 写真（左上）のように業務内容と所要時間ような表があり、（右上）のようなグラフにして輸送の部分だけを色付き、他を白色で塗りわけしています。 しかし（左下）のように、順番が1行でも変わると塗り分もずれてしまます。 現在、この塗り分けを自動化するためにマクロやVBAなどを考えていて、以下のようなVBAを作り実行をさせましたが、思うように表示されません。 Sub Macro2() ' ActiveSheet.ChartObjects(1).Activate ActiveChart.ChartArea.Select Dim scname As String Dim colidx As Variant Dim i As Integer With ActiveChart For i = 1 To .SeriesCollection.Count scname = .SeriesCollection(i).Name Select Case Split(scname, " ") Case "輸送": colidx = 4 End Select .SeriesCollection(i).Interior.ColorIndex = colidx Next End With End Sub 何かよい方法は（VBAやマクロなども踏まえて）ありますでしょうか？　ご教授宜しくお願いします。 （最終的に凡例は表示させたくはありませんが、らラベルとして系列名を表示させたく思っています。）

  • エクセル2013　VBA　グラフのデータ系列変更

    エクセル2013を使っています。マクロ初心者です。グラフも普段あまり扱いませんので不慣れです。よろしくお願いします。 マクロの記録を使ってグラフのデータ範囲を変更したら、下記コードが記録されました（○○○はシート名です）。 ActiveSheet.ChartObjects("グラフ 2").Activate ActiveChart.Axes(xlValue).MajorGridlines.Select ActiveChart.FullSeriesCollection(1).Values = "='○○○'!R189C37:R199C37" ActiveChart.FullSeriesCollection(2).Values = "='バ○○○'!R189C38:R199C38" この189と199に変数を下記のように入れました。 Dim r As Integer r = Range("A1").End(xlDown).Row Dim i As Integer Dim s As Integer s = r - 10 i = ActiveCell.Value ActiveSheet.ChartObjects("グラフ 2").Activate ActiveChart.Axes(xlValue).MajorGridlines.Select ActiveChart.FullSeriesCollection(1).Values = "='○○○'!R" & s & "C37:R" & r & "C37" ActiveChart.FullSeriesCollection(2).Values = "='○○○'!R" & s & "C38:R" & r & "C38" これを実行すると、エラーコード400になっていまいます。 どうすればいいのでしょうか？

  • グラフマクロで系列を変数にする方法を教えてください

    エクセルのグラフマクロについて質問します。 系列のｘの値（Ｙの値も）の設定で、 グラフ化したいワークシートと範囲を変数にすることはできますか？ 目的は、複数あるシートの複数のセルをグラフ化したい、というものです。 変数にてシート名と範囲を指定したいです。 ↓のようなプログラムを作成してみましたが、どうもうまく動きません。 12行目で止まってしまいます。 13行目はでたらめですが、範囲も変数bにできないかなぁと、勝手にイメージで作ってみました。 Sub () n = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To n Sheets("SHEET1").Select Range("A" & i).Select a = ActiveCell.Value Sheets(a).Select Charts.Add ActiveChart.ChartType = xlXYScatter ActiveChart.SetSourceData Source:=Sheets(a).Range("V22") ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "=sheets(a)!R2C4:R5C4" ActiveChart.SeriesCollection(1).Values = "=sheets(a)!range(b)" ActiveChart.Location Where:=xlLocationAsObject, Name:=Sheets(a) Next i End Sub 当方、マクロかじりたての初心者です。 どなたか、よろしくおねがいします！

  • Excel 2007 <VBAでグラフの操作>

    Excel 2007 <VBAでグラフの操作> 現在すでにあるグラフを修正しています。 下記マクロでは「各グラフに系列が2つあり、その1つ目を削除して残る1つのデータ範囲（X軸の値)を再設定する」という内容です。 下記マクロではFor構文冒頭のSet～の行で、 「実行時エラー '1004'：　'Cells'メソッドは失敗しました:'_Global'オブジェクト」 とのエラーが出ます。 このエラーについて検索してみたのですが、これといったものが見つからなかったので、このマクロでおかしなところがあれば直接指摘していただけないでしょうか。 よろしくお願いします。 Private Sub Test_Arrange() 　　Dim MyRng As Range 　　Dim R As Integer 　　Dim n As Integer 　　Dim i As Integer 　　n = 10 　　R = Sheets("Sheet1").Range("A1").End(xlDown).Row 　　For i = 1 To n 　　　　Set MyRng = Sheets("Sheet1").Range(Cells(2, 2 * n + 3), Cells(R, 2 * n + 3)) 　　　　Charts(i).SeriesCollection(1).Delete 　　　　Charts(i).SeriesCollection(1).XValues = MyRng 　　Next i End Sub

  • EXCELVBAグラフ凡例表示部分の系列の名称非表

    すいません。VBAの記述の方法がわからないのでお手数ですが教えてください 使用アプリ・使用OS：Excel2010 VBA　Windows7 ■教えてほしい内容 グラフを作成し、その後以下のVBAでグラフの系列を追加しています。 dk = ActiveChart.SeriesCollection.Count + 1 ActiveChart.SeriesCollection.NewSeries '系列名の設定 ActiveChart.SeriesCollection(dk).Name = "cp-" & dk 'y軸の値設定 ActiveChart.SeriesCollection(dk).Values = "={" & aaa & "}" '散布図設定 ActiveChart.SeriesCollection(dk).ChartType = xlXYScatter その後、グラフの凡例部分でこの追加した系列cp-○の凡例内の系列を非表示にしたいのですがわかりません。 申し訳ありませんが教えてください。

  • Excel VBAのグラフ化自動マクロがうまくできません。

    Sub 自動グラフ作成() For i = 5 To 32 Step 3 Charts.Add ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "=distance!R18C1:R1009C1" ActiveChart.SeriesCollection(1).Values = "=distance!R18C" & (i + 2) & ":R1009C" & (i + 2) Next End Sub 上記のように表の中の決められたセルからデータを取り出して自動的にグラフを作成してくれるマクロを作成したのですが、奇数個めのグラフは正常に生成されるのですが、偶数個めのグラフになぜか x= y=distance!$M$18:$M$1009 x= y={1} みたいな必要なグラフ以外に上記の２つのグラフを混じってしまいます。これってどこがおかしいのでしょうか？ どなたか助けて下さい。 お願いいたします。

  • マクロでグラフを作成したい

    Charts.Add ActiveChart.ChartType = xlXYScatterLinesNoMarkers For i = 1 To 25 　　 ActiveChart.SeriesCollection.NewSeries 　　 ActiveChart.SeriesCollection(i).XValues = "=APC!"(3,X)":"Range(lngYCut,X) 　　 ActiveChart.SeriesCollection(i).Values = "=APC!Cells(3,Y):Cells(lngYCut,Y)" 　　 ActiveChart.SeriesCollection(i).Name = "=APC!R1C&X" 　X = i * 3 + 1 　 Y = i * 3 + 2 Next 上記のプログラムでグラフを作成しています。（X,Y,lngYCutは事前に定義しています。） 25個のデータをグラフにする為、For文の中でグラフデータを１つずつ追加していこうと思っています。 データ範囲を変数で指定したいため、=のあとを変えないといけないと思っています。 ただ＝のあと""で囲っているため、文字として入力しているんだと思います。 その文字列として入力している場所にどうにかして変数を使いたいです。 どなたか ActiveChart.SeriesCollection(i).XValues = のあとに変数を使用できる方法を教えてください

  • EXCEL VBA(2003) での積上グラフの要素の合計表示について

    縦積上グラフの合計値をデータラベルの形で既存のグラフに表示するマクロを作成しました。 現状では行方向に県名（要素）、列方向に男／女人口（系列）を並べ、女人口の隣の列に各県の男女の合算人口を並べて”１”で参照させています（データラベルにしたいのでValueをTEXT値にしています）。 マクロでは、既存グラフの要素数を取得して、同数の要素（値は全てゼロ）をもつ配列を新系列に加え、上でTEXT化した合計値をデータラベルの.TEXTに設定するという方法をとっています。 現状の行列の配置の場合には下のマクロが期待通りの実行結果を返してくれますが、既存グラフのデータ範囲の設定で行／列の向きを逆にし、性別毎の合計値を①で参照させた場合には”２”のように要素数と”１”で取得したデータ数が一致しないという結果が返ります。 ”３”付近で間違いをしている気もするのですが、どなたかご指摘いただけますと幸甚です。 Sub Test() Dim newRange As Range Dim newSC As Variant ' Σ系列の配列変数 Dim SCcnt As Integer ' SeriesCollectionの変数 Dim SC1Value As Variant ' SeriesCollection(1)の配列 Dim i As Integer Dim A1 As String 'A1形式→R1C1形式の変換に使用 Dim R1 As String 'A1形式→R1C1形式の変換に使用 Dim R1withSheetname As String 'A1形式→R1C1形式の変換に使用 Set newRange = Application.InputBox(Prompt:="合計欄の参照を選択してください。", Type:=8)　'”１” newSC = newRange With ActiveChart SCcnt = .SeriesCollection.Count SC1Value = .SeriesCollection(1).Values '要素数を取得　'”３” If UBound(newSC) <> UBound(SC1Value) Then '”２” MsgBox ("（注意）選択したデータの個数が系列1のデータ個数と不一致。" & vbCr & vbCr & _ "選択範囲のデータ個数:" & (UBound(newSC) - LBound(newSC)) & vbCr & vbCr & _ "系列1のデータ個数:" & UBound(SC1Value)) End If .SeriesCollection.NewSeries SCcnt = SCcnt + 1 With .SeriesCollection(SCcnt) .Values = newSC .Name = "Σ" End With .PlotArea.Select .ApplyDataLabels AutoText:=True, ShowValue:=True For i = 1 To UBound(newSC) '系列数を取得 'R1C1形式に変換 A1 = newRange(i).Address R1 = Application.ConvertFormula(Formula:=A1, _ fromReferenceStyle:=xlA1, _ toReferenceStyle:=xlR1C1, ToAbsolute:=xlAbsolute) R1withSheetname = "=" & ActiveSheet.Name & "!" & R1 With .SeriesCollection(SCcnt) .DataLabels.Select .Points(i).DataLabel.Select With Selection .Text = R1withSheetname .Position = xlLabelPositionInsideBase End With End With Next i End With End Sub

  • エクセルVBA　自動設定のグラフ系列色のRGB

    VBA初級者です。 エクセルで自動設定されたグラフ系列色（点のみ、線なし）の RGBを取得するにはどうしたらいいのでしょうか？ 系列色を設定する方法は以下のようにすればいいようですが。。。 ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.SeriesCollection(1).Select 　　 With Selection .MarkerBackgroundColorIndex = 色番号 / xlAutomatic .MarkerForegroundColorIndex = 色番号 / xlAutomatic 　　　または、 　　　 .MarkerBackgroundColor = RGB(?,?,?) .MarkerForegroundColor = RGB(?,?,?) End With 私がやりたいことは、上のような記述でxlAutomaticで自動的に設定された ある系列の色を他の系列にも適用したいのです。もう少し具体的に言うと、 系列1，2、系列3，4、のように隣り合う系列を同色にしたいのです。 系列数が少なければ各組合せに対してRGBを設定すればいいのですが、 系列が大量になってきますと、自分でRGBを設定するのも大変で、 系列１，３，５・・・に関しては、xlAutomaticで自動設定して、その色を 系列２，４，６・・・に適用しようと思ったのですが、よくわかりませんでした。 ActiveChart.SeriesCollection(1).Select　 With Selection .MarkerBackgroundColorIndex = xlAutomatic Color = MarkerBackgroundColorIndex End With ActiveChart.SeriesCollection(2).Select　 With Selection .MarkerBackgroundColorIndex = Color End With などとしてみましたがダメでした。恥ずかしながら基礎を 理解できていないので詳しく説明していただけると幸いです。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する