![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
以前こちらで成績表からグラフの作成方法を教えていただきました。超初心者です。わかりやすく教えていただけますと幸いです。よろしくお願いいたします。
グラフは4本の折れ線グラフで、元データが四つの期ごとの成績表になっており、初期の設定は i=1~4 の数値をあてはめて、
.Name=i&"期順位" となっています。ただし年度変わりの対応として、1つ目の表の折れ線グラフの凡例を .Name= "=""2018-4期""" とすると、ちゃんと表示されますが、続けて2番目の凡例の記述を””2019-1期”””””としたい場合の記述方法がわかりません。教えてください。よろしくお願いいたします。
Private Sub BtnGraph_Click()
Dim left As Double
Dim top As Double
Dim width As Double
Dim height As Double
Dim col As Long
Dim i As Long
'左位置設定(=B列の開始位置)
left = ActiveSheet.Range("A1").width
'上位置設定(=A列最大行+5行目)
top = ActiveSheet.Range("A1:A" & maxrow + 4).height
'高さ
height = 300 * Y_ratio
'幅
width = ActiveSheet.Range("B2").width * No_koutei * X_ratio
'空のグラフ作成
With ActiveSheet.ChartObjects.Add(left, top, width, height).Chart
End With
'作成したグラフのアクティベイト
ActiveSheet.ChartObjects(1).Activate
'1期から4期まで作成
For i = 1 To 4
'該当期のデータが全て空なら終了する
If HasData(i) = False Then Exit For
'新しくデータ系列を作成
ActiveChart.SeriesCollection.NewSeries
'グラフの種類・データの範囲・凡例の使用を指定
With ActiveChart.SeriesCollection(i)
'グラフの種類を設定 折れ線グラフ
.ChartType = xlLineMarkers
'X軸の項目軸を指定
.XValues = Range(Cells(2, 2), Cells(2, No_koutei + 1))
'データの指定
col = GetCol1(i)
.Values = Range(Cells(saverow + 1, col + 1), Cells(saverow + 1, col + No_koutei))
'凡例の指定
.Name = i & "期順位"
End With
Next
'スケール情報設定
ActiveChart.Axes(xlValue, xlPrimary).MinimumScale = 1
ActiveChart.Axes(xlValue, xlPrimary).MajorUnit = Y_unit
ActiveChart.Axes(xlValue, xlPrimary).MaximumScale = GetMaxScale(maxrow - 2, Y_unit)
ActiveChart.Axes(xlValue, xlPrimary).ReversePlotOrder = True
'タイトル設定
With ActiveChart
.HasTitle = True
.ChartTitle.Text = Cells(saverow, 1).Value 'グラフ対象者の氏名
End With
gmakedFlag = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
エクセルの縦軸(Y軸)が不均等...
-
EXCELでグラフを作るとき、縦軸...
-
エクセルVBA グラフの凡例の...
-
excelグラフの縦軸と横軸を入れ...
-
エクセル グラフはあるけれど...
-
Excelの横棒グラフのプロットエ...
-
Excel:別シートにグラフを貼り...
-
Excelでx軸とy軸を設定して図を...
-
Excelの折れ線グラフでデータ欠...
-
結合されたセルのグラフ表示
-
散布図を縦に2個並べて出力したい
-
エクセル グラフの最大値 最小...
-
Excelの折れ線グラフについて教...
-
excel vbaでグラフとグラフ元デ...
-
対数目盛を使用時のグラフについて
-
エクセルで折れ線グラフ(散布...
-
エクセルの対数グラフのエラー
-
9つのエクセルのグラフ(円グ...
-
パワーポイントで円グラフが作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
Excelでx軸とy軸を設定して図を...
-
エクセルの縦軸(Y軸)が不均等...
-
EXCELでグラフを作るとき、縦軸...
-
Excel:別シートにグラフを貼り...
-
エクセルで折れ線と散布図を同...
-
エクセルで折れ線グラフ(散布...
-
エクセルで式からグラフを作成...
-
エクセルの対数グラフのエラー
-
エクセル 0や空白のセルをグラ...
-
エクセルの円を5等分する方法
-
エクセルのグラフの1点の色を変...
-
エクセルで、極座表のグラフ描...
-
散布図を縦に2個並べて出力したい
-
エクセル グラフはあるけれど...
-
エクセルで作ったグラフの右側...
-
<EXCELグラフ>データ取得範囲...
-
Excelの横棒グラフのプロットエ...
-
エクセル グラフの”データーテ...
-
ExcelでIF関数によるグラフの表...
おすすめ情報