Ｐａｇｅ 301 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼グラフにて・・・ いぬだわん 02/10/30(水) 13:34 ┗Re:グラフにて・・・ yu-ji 02/11/6(水) 14:16 ┗Re:グラフにて・・・ いぬだわん 02/11/7(木) 9:09 ─────────────────────────────────────── ■題名 ： グラフにて・・・ ■名前 ： いぬだわん ■日付 ： 02/10/30(水) 13:34 -------------------------------------------------------------------------
| こんにちは。 いつもいつも質問ばかりですみません。 下記のようなWorkSheetがあるとします。 A B C D（列） 1/1 1 9 5 1/2 5 8 1/3 6 8 7 1/4 8 1/5 7 8 9 B2,C4,D4は空白とします。 これを折れ線グラフ(PlotBy:=xlColumns)に表示するときに、 空白のデータがあるところは グラフを作成するために、 空白のデータがあるところを削除した Worksheetを新たに作成することはしないで、 グラフ表示させないことはできますか？ つまり、グラフソースとして扱いたいのが、 1,3,5行目ということです。 わかる方がいらっしゃればご教授願います。 |
| ▼いぬだわん さん： >A B C D（列） >1/1 1 9 5 >1/2 5 8 >1/3 6 8 7 >1/4 8 >1/5 7 8 9 > >B2,C4,D4は空白とします。 > >これを折れ線グラフ(PlotBy:=xlColumns)に表示するときに、 >空白のデータがあるところは >グラフを作成するために、 >空白のデータがあるところを削除した >Worksheetを新たに作成することはしないで、 >グラフ表示させないことはできますか？ 上記の例だと、こんな感じで実現できましたが。 ＃それぞれのデータが自動で設定されたものでは使えない場合、もっと ＃細かい設定をしなくちゃいけないですね。 *********** Sub Macro1() Dim cnt As Integer Dim strRng As String strRng = "" cnt = 1 Do Until Range("a" & cnt) = "" If Range("b" & cnt) <> "" Then If Range("c" & cnt) <> "" Then If Range("d" & cnt) <> "" Then strRng = strRng & "A" & cnt & ":D" & cnt & "," End If End If End If cnt = cnt + 1 Loop If strRng <> "" Then strRng = Left(strRng, Len(strRng) - 1) End If Charts.Add ActiveChart.ChartType = xlLineMarkers ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(strRng), PlotBy:=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" End Sub |
| ▼yu-ji さん： おはようございます。 うまくできました。 ありがとうございました。 |