Excel2002抽出とマクロ

質問

下記のようなExcelの表があります。
（環境は、Excel2002、Windows2000です）

　｜　　Ａ　　 　｜　Ｂ　　｜　　Ｃ　　　　｜　Ｄ　｜
１｜　日付　　｜Ｐ／Ｗ｜ テスト回数｜ミス数｜
２｜04/09/01｜　Ｐ　　｜　　２０　　　｜　１０｜
３｜04/09/04｜　Ｐ　　｜　　１９　　　｜　４４｜
４｜04/09/15｜　Ｗ 　｜　　３２　　　｜　１６｜
５｜04/09/17｜　Ｐ　　｜　　１１　　　｜　２７｜
６｜04/09/24｜　Ｗ 　｜　　１８　　　｜　３１｜

※Ａ列には書式を「yy/mm/dd」に設定された日付データが昇順で入っています。
※列数は増えませんが、行数は日々増えていきます。

マクロを使って、２軸上の折れ線グラフにしたいのですが、
Ｂ列の値が「Ｗ」の時だけを取り出してグラフ化したいのです。
（Ｘ軸が日付で、Ｙ１軸がテスト回数、Ｙ２軸がミス数）

きっとＶＢＡを利用するしかないと思うのですが、調べてみても私には
分かりませんでした。

どうぞよろしくお願いします。

回答No.6

snoopy64 · ベストアンサー

ピボットテーブルを作るとき、Ｐ／Ｗをページに、日付を行に、テスト回数とミス数をデータに配置します。
テスト回数とミス数は合計にします。
このままだとピボットテーブルでは日付の右側にテスト回数とミス数が縦に並ぶと思いますので、テスト回数とミス数を右の方へドラッグすると、横に並びます。
この状態だと希望のグラフになりますよ。
頑張ってくださいヽ(^。^)ノ

お礼

ありがとうございます。
できました。…でも、悲しいことに。
>「$A:$D」に変更してください。そうすれば、日付が増えても対象になります。
…対象になりませんでした。どうやら、ピボットテーブル＋グラフはあらかじめ範囲設定した中での数値の変更には「データの更新」で対応してくれても、行が増えるということには対応してくれないようです。。。
とりあえず、身にはつきましたので何か別のときに役立ってくれることでしょう。

回答No.8

taocat

ＶＢＡを少し扱えるそうなので簡単なサンプルをアップしてみます。

Sheet1　のテープル

　｜　　Ａ　　 　｜　Ｂ　　｜　　Ｃ　　　　｜　Ｄ　｜
１｜　日付　　｜Ｐ／Ｗ｜ テスト回数｜ミス数｜
２｜04/09/01｜　Ｐ　　｜　　２０　　　｜　１０｜
３｜04/09/04｜　Ｐ　　｜　　１９　　　｜　４４｜
４｜04/09/15｜　Ｗ 　｜　　３２　　　｜　１６｜
５｜04/09/17｜　Ｐ　　｜　　１１　　　｜　２７｜
６｜04/09/24｜　Ｗ 　｜　　１８　　　｜　３１｜

流れ：
（１）Sheet2に、抽出したデータとそれを利用したグラフを表示
（２）INPUTBOXで、抽出用文字を入力
（３）Sheet2に前回処理したグラフがあればそれをクリアー
（４）Sheet1をSheet2に全コピーし以降Sheet2だけ使う
（５）抽出文字でない行は削除すると該当分が残る
（６）該当が一件もない時は１行目（見出し）だけ残るのでそれを削除して終了

-------------------------------------------
Sub Test()
Dim ChrtObj As ChartObject
Dim InChara As String
Dim Lastrow As Long
Dim R As Long

InChara = InputBox("抽出用文字を入力せよ")
If InChara = "" Then Exit Sub

Application.ScreenUpdating = False

Sheets("Sheet2").Activate

For Each ChrtObj In Sheets("Sheet2").ChartObjects
ChrtObj.Delete
Next ChrtObj

Sheets("Sheet1").Cells.Copy Destination:=Range("A1")
Application.CutCopyMode = False

Lastrow = Range("A65536").End(xlUp).Row
For R = Lastrow To 2 Step -1
If Range("B" & R) <> InChara Then
Range("B" & R).EntireRow.Delete
End If
Next R

Lastrow = Range("A65536").End(xlUp).Row

If Lastrow = 1 Then
Range("1:1").Delete
Application.ScreenUpdating = True
Exit Sub
End If

'グラフ作成

Charts.Add

ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData _
Sheets("Sheet2").Range("A1:A" & Lastrow, "C1:D" & Lastrow), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "タイトル"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "テスト回数"
End With
ActiveChart.SeriesCollection(2).AxisGroup = 2
With ActiveChart
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "ミス数"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlCategory, xlSecondary) = False
.HasAxis(xlValue, xlPrimary) = True
.HasAxis(xlValue, xlSecondary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
ActiveChart.Axes(xlCategory, xlSecondary).CategoryType = xlAutomatic

Range("A1").Select

Application.ScreenUpdating = True
End Sub

--------------------------------------------

尚、最後のRRange("A1").Selectはグラフ選択を外すためで他の意味はありません。
以上です。

お礼

ありがとうございます。
サンプルを利用して、何がどう働いているのかを勉強してみます（さすがに全部は分かりませんでした…）。

回答No.7

snoopy64

＃６です。お礼拝見しました。
＞行が増えるということには対応してくれないようです。。。
そんな事ないんですけどね。。。(>_<)
データの更新で数値が変化するなら、その同じタイミングで、増えた日付の分だけＸ軸の日付が右に増えていきますよ・・・
増えた日付のデータがＰだったらグラフに反映しなくて当然ですけどね。
ところで、折れ線２本はうまくできたのですか？

お礼

ありがとうございます。そして、手を煩わせてごめんなさい。
>折れ線２本はうまくできたのですか？
はい。できました。うれしかったです。
>テスト回数とミス数を右の方へドラッグ
↑これはちょっと思いつかなかったです。
それにしてもどうしてこう、ピボットテーブル＋グラフを扱うのが下手なんでしょうか。。。どうしてもＸ軸の日付が横に増えてくれなかったんですよ。

回答No.5

snoopy64

＃３です。お礼拝見しました。
＞挑戦してみましたが、やはり行が増えたときに対応できそうにありません・・・

できますよ！
行が増えるとは、日付が増えるということですよね？
ピボットテーブルを普通に作ると、データ範囲が「$A$1:$D$6」のようになりますので、これを「$A:$D」に変更してください。
そうすれば、日付が増えても対象になります。

横軸に日付が並び、縦軸には数字が入っていて、折れ線２本のグラフになります。

見当はずれな回答だったらごめんなさい。

お礼

何度もお答えいただいて、本当にありがとうございます。
確かに上記の方法ですと日付が増えていっても大丈夫なような気がします。
しかしながら、
>ピボットテーブルのグラフでは、既定では重ね棒グラフになりましたが、グラフの種類を折れ線グラフに
しても、２つの折れ線グラフにならないんですよ。。。
そもそも、規定で重ね棒グラフにならない。
ピボットグラフの「ページ」に「Ｐ／Ｗ」を入れて、「項目」に「日付」を入れて…、どこに「テスト回数」と「ミス数」を入れたらいいですか？　フィールドの設定は「合計」でいいのでしょうか？　どの時点でグラフの種類を変更したらよいですか？　具体的なご回答を期待して待っています。

補足

ごめんなさい。いろいろしてたら、解答欄に書いたできなかったことができるようになりました。
ピボットテーブル難しいっす。勉強にはなったけど。
使えるかどうか、ちょっと検討します。
ありがとうございました！！　大変お世話になりました。

回答No.4

taocat

＞ＶＢＡを利用するしかないと思うのですが
＞調べてみても私には分かりませんでした。

これの意味することは

１．ＶＢＡ自体が全然分からない

２．ＶＢＡ自体は少しは分かるが質問の件を
　　ＶＢＡで作るのがわからない

１、２のどちらでしょうか。
質問の件はＶＢＡで出来ますが、１．であれば
ＶＢＡのサンプルをアップしても意味がないと思いますよ。
ですが、２．であればサンプルをアップします。

返事、ください。

お礼

ありがとうございます。
ＶＢＡは避けて通ってきてしまったので…。今、焦って、いろんなページでちらほら勉強をしている最中です。だから、「少しは分かる」という状態だろうと思います。

回答No.3

snoopy64

＃２です。
ピボットテーブルを使わないグラフというものがあるのですか？
僕は使った事がないので、それとの比較ではお話できません。

ピボットテーブルのグラフでは、既定では重ね棒グラフになりましたが、グラフの種類を折れ線グラフにしたら、テスト回数の折れ線と、ミス数の折れ線が現れました。

行数（日付）が増えてもいいように、ピボットテーブルのデータ範囲をA:Dのように列で指定します。

頑張ってくださいヽ(^。^)ノ

お礼

たびたびありがとうございます。
挑戦してみましたが、やはり行が増えたときに対応できそうにありませんので、ピボットテーブル＋グラフは、今回は見送ることにしました。でも、勉強になりました。

回答No.2

snoopy64

ピボットテーブル＋グラフでしたら、ページに「Ｗ／Ｐ」を配置して、グラフかピボットテーブルで「Ｐ／Ｗ」で「Ｗ」を選択すればいいと思います。
頑張ってくださいヽ(^。^)ノ

お礼

ありがとうございます。
ですが、ピボットテーブル＋グラフで、どうやれば「２軸上の折れ線グラフ」にできるのかわかりませんでした。
それから、この方法ですと、行数が増えたときに対応できない気がするのですが…？

回答No.1

yoshimi1968

こんにちは。
VBAは使いませんが、オートフィルターと手動のグラフではどうでしょう？

１．まず、このデータベースのどこかにセルを移す。（B2とでもしましょう。）

２．「データ」「フィルタ」「オートフィルター」を選択。

３．そうすると、１列目に▽が出るので、Ｂ列の▽をクリックして、「Ｗ」だけを選択。
そうするとＢ列がＷの場合のみに選択されます。

４．この状態でグラフを作成する。

というのではどうでしょうか。
グラフは、Ｃ列とＤ列を選択し、折れ線グラフを選択すると出来ると思います。

お礼

ありがとうございます。
ですが、「マクロを使って」作業を行いたいので…。
オートフィルターを利用してマクロ登録すると、データが増えたときにまったく対応してくれないので困っています。