Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


838 / 13645 ツリー ←次へ | 前へ→

【78037】マクロでグラフ作成 のりっぺ 16/3/12(土) 22:56 発言[未読]
【78038】Re:マクロでグラフ作成 γ 16/3/13(日) 7:21 発言[未読]
【78039】Re:マクロでグラフ作成 のりっぺ 16/3/13(日) 9:43 発言[未読]
【78040】Re:マクロでグラフ作成 γ 16/3/13(日) 12:07 発言[未読]
【78041】Re:マクロでグラフ作成 のりっぺ 16/3/13(日) 18:27 お礼[未読]
【78042】Re:マクロでグラフ作成 γ 16/3/13(日) 19:03 発言[未読]
【78043】Re:マクロでグラフ作成 のりっぺ 16/3/13(日) 19:25 お礼[未読]
【78044】Re:マクロでグラフ作成 マナ 16/3/13(日) 20:28 発言[未読]
【78045】Re:マクロでグラフ作成 のりっぺ 16/3/13(日) 22:11 質問[未読]
【78046】Re:マクロでグラフ作成 マナ 16/3/13(日) 22:45 発言[未読]
【78047】Re:マクロでグラフ作成 のりっぺ 16/3/13(日) 23:08 お礼[未読]

【78037】マクロでグラフ作成
発言  のりっぺ  - 16/3/12(土) 22:56 -

引用なし
パスワード
   マクロ初心者です。
マクロで任意の日付間のグラフを作成したいのですが、参考にしている記述で分からない所が有ります。
私には理解不能なので、分かりやすく説明して頂けると助かります。
よろしくお願い致します。

'作画
 
   With ActiveSheet.ChartObjects(1).Chart
    For i = 1 To .SeriesCollection.Count
    .SeriesCollection(i).Formula = _
    "=SERIES(" & sheet & "!R6C" & i + 41 & ":R7C" & i + 41 & "," & sheet & "!R" & SC & "C1:R" & LC & "C1," & sheet & "!R" & SC & "C" & i + 41 & ":R" & LC & "C" & i + 41 & "," & i & ")"
    Next i
  End With
End Sub

【78038】Re:マクロでグラフ作成
発言  γ  - 16/3/13(日) 7:21 -

引用なし
パスワード
   こんにちは。

そのコードはどこから持ってきたものですか?
その説明をしてください。
SheetとかLCとかSCとかはどのように設定されたもの?
そういうセル範囲を指定しているんでしょう、としか言えない。

あなたの目的(数値がどこに配置されていて、どのような種類のグラフを
書こうとしているのか)を説明するのが先決でしょう。
そして、マクロ記録をしてみるのが、最上の方法でしょう。

【78039】Re:マクロでグラフ作成
発言  のりっぺ  - 16/3/13(日) 9:43 -

引用なし
パスワード
   ▼γ さん:
>こんにちは。
>
>そのコードはどこから持ってきたものですか?
>その説明をしてください。
>SheetとかLCとかSCとかはどのように設定されたもの?
>そういうセル範囲を指定しているんでしょう、としか言えない。
>
>あなたの目的(数値がどこに配置されていて、どのような種類のグラフを
>書こうとしているのか)を説明するのが先決でしょう。
>そして、マクロ記録をしてみるのが、最上の方法でしょう。


>>返答ありがとうございます。
コードは作成依頼したものです。
それを参考に自分でアレンジしたかったのですが、
依頼すると有料ですので・・・

説明不足でしたね申し訳ございません。
5つの項目について指定期間の折れ線グラフを作成するものです。

グラフに関する記述はシートの5つの列の指定範囲のグラフを表して
居るものだと思いますが私には分かりません。

以下の範囲で説明が出来るようでありましたらお願い致します。

'グラフ作成

  Dim i As Long, SC As Long, LC As Long, CL As Long
  SC = StartCell
  LC = LastCell
  
    
  '作画
 
   With ActiveSheet.ChartObjects(1).Chart
    For i = 1 To .SeriesCollection.Count
    .SeriesCollection(i).Formula = _
    "=SERIES(" & sheet & "!R6C" & i + 41 & ":R7C" & i + 41 & "," & sheet & "!R" & SC & "C1:R" & LC & "C1," & sheet & "!R" & SC & "C" & i + 41 & ":R" & LC & "C" & i + 41 & "," & i & ")"
    Next i
  End With
End Sub

【78040】Re:マクロでグラフ作成
発言  γ  - 16/3/13(日) 12:07 -

引用なし
パスワード
   こんにちは。

  '作画
  Dim s As String
  
  With ActiveSheet.ChartObjects(1).Chart
    For i = 1 To .SeriesCollection.Count
      s = "=SERIES(" & sheet & "!R6C" & i + 41 & ":R7C" & i + 41 & "," _
              & sheet & "!R" & SC & "C1:R" & LC & "C1," _
              & sheet & "!R" & SC & "C" & i + 41 & ":R" & LC & "C" & i + 41 & "," _
              & i & ")"
      Debug.Print s
      .SeriesCollection(i).Formula = s
    Next i
  End With
 
  などとして、内容を確認して下さい。

  SERIESに与える3つの要素は、それぞれ
  ・凡例項目、
  ・横軸ラベル、
  ・グラフ値
  です。
 
  すでにある折れ線グラフの系列を一つ選択して、
  数式のところに現れる文字列をよく観察して、
  それぞれが何を示すか理解することが先決です。

余談:
会社でマクロ作成を依頼するルートがあるんですね?
そういう商売が普及しているのか。知らなかった。
これからは、ここでも幾ばくか払ってもらえないかな。www

【78041】Re:マクロでグラフ作成
お礼  のりっぺ  - 16/3/13(日) 18:27 -

引用なし
パスワード
   ありがとうございました。

この記述でまず仕組みを理解してから修正してみようと思います。
ありがとうございました。

頼んだのは現役を退職された方で副収入でやってるみたいです。

【78042】Re:マクロでグラフ作成
発言  γ  - 16/3/13(日) 19:03 -

引用なし
パスワード
   3つじゃなく4つでした。
系列順序ですね、最後は。
提示した情報で読み解けるはずです。

【78043】Re:マクロでグラフ作成
お礼  のりっぺ  - 16/3/13(日) 19:25 -

引用なし
パスワード
   ありがとうございます。
材料をそろえて頂いたので、
自分で学習しながら頑張ります。

【78044】Re:マクロでグラフ作成
発言  マナ  - 16/3/13(日) 20:28 -

引用なし
パスワード
   ▼のりっぺ さん:
ちょっと書き換えてみました。
(理解しやすいようにしたつもり)

Sub test()
  Dim shn As String
  Dim SC As Long, LC As Long
  Dim i As Long
  Dim 系列名 As String, X軸 As String, Y軸 As String, 系列番号 As Long
  Dim 式 As String
   
  shn = "Sheet1"
  
  SC = 9
  LC = 15

  With ActiveSheet.ChartObjects(1).Chart
    For i = 1 To 5
      系列名 = shn & "!R6C" & i + 41 & ":R7C" & i + 41
      X軸 = shn & "!R" & SC & "C1:R" & LC & "C1"
      Y軸 = shn & "!R" & SC & "C" & i + 41 & ":R" & LC & "C" & i + 41
      系列番号 = i
      式 = "=SERIES(" & 系列名 & "," & X軸 & "," & Y軸 & "," & 系列番号 & ")"
      
      .SeriesCollection(i).FormulaR1C1 = 式
    Next
  End With

End Sub

でも、わたしの場合、Formulaプロパティより
XValuesやValuesプロパティを使うほうが、わかりやすいです。
こんな書き方もあるという参考まで。


Sub test2()
  Dim ws As Worksheet
  Dim SC As Long, LC As Long
  Dim X軸 As Range
  Dim i As Long
   
  Set ws = Worksheets("Sheet1")
  
  SC = 9
  LC = 15
  
  Set X軸 = ws.Range("A" & SC & ":" & "A" & LC)

  With ActiveSheet.ChartObjects(1).Chart
    For i = 1 To 5
      With .SeriesCollection(i)
        .XValues = X軸
        .Values = X軸.Offset(, i + 40)
      End With
    Next
  End With

End Sub

【78045】Re:マクロでグラフ作成
質問  のりっぺ  - 16/3/13(日) 22:11 -

引用なし
パスワード
   マナさん!ホント初心者なのでスイマセン。

最初の記述で
With ActiveSheet.ChartObjects(1).Chart
   
 For i = 1 To 5 >>1.何が1から5なのか分かりません


 系列名 = shn & "!R6C" & i + 41 & ":R7C" & i + 41

>>これはシート1の6行したから41列目と7行したの41列目と言う事でしょうか?

 X軸 = shn & "!R" & SC & "C1:R" & LC & "C1"

>>2."!R"どこを指してるのか全く分かりません。"C1:R" "C1"もどこを指してるのか全く分かりません。
仮にA列に日付が入っている場合はその範囲を示すものなのでしょうか?

  Y軸 = shn & "!R" & SC & "C" & i + 41 & ":R" & LC & "C" & i + 41
>>3.これも41列目に入っている数値の範囲を示していると思いますが、
全く分かりません。
      
 系列番号 = i
>>4.41列目の数値が 1 2 3 4 5 と言う事でしょうか?

余りにも無知で申し訳ございません。

【78046】Re:マクロでグラフ作成
発言  マナ  - 16/3/13(日) 22:45 -

引用なし
パスワード
   ▼のりっぺ さん:
まずはA1形式とR1C1形式について理解して下さい
ht tp://www.tschoolbank.com/excel/cell-reference-r1c1/

shn = "Sheet1"
SC = 9
LC = 15
X軸 = shn & "!R" & SC & "C1:R" & LC & "C1"



X軸 = "Sheet1!R9C1:R15C1"

となって、
これをA1形式にすると

X軸 = "Sheet1!A9:A15"

これが理解できないと、先に進めません。

【78047】Re:マクロでグラフ作成
お礼  のりっぺ  - 16/3/13(日) 23:08 -

引用なし
パスワード
   ありがとうございます。

X軸 = "Sheet1!R9C1:R15C1" と X軸 = "Sheet1!A9:A15"
が同じものは理解が出来ました。数日前にマクロの本を買ったばかりで、
まずは少し読まないとだめですね〜

もう少し知識をつけたら再度質問させて頂きます。

838 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free