Excel VBA質問箱 IV

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

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


32310 / 76734 ←次へ | 前へ→

【49662】オートフィルタで抽出後、散布図を作成する方法
質問  すず E-MAIL  - 07/6/15(金) 0:29 -

引用なし
パスワード
   こんばんわ。すずです。

やりたいことについて検索をしてもわからなかったので
質問させてください。

やりたいことは
「オートフィルタで抽出後、散布図を作成する」ことです。

データ一覧表シートと、グラフシートがあります。
データ一覧表シートの中の
1列に"○"のあるもののみグラフ要素を表示してます。
""(○のない行)については要素の外円と背景をxlNoneにして
非表示の形を取ってます。
ActiveChart.SeriesCollection(1).Points(i).Select
With Selection.Border
   .LineStyle = xlNone
 ・・・・・
コード上の"i"はデータの上から下までをループで回してる為です。

データ一覧にはフィルタがついてるのですが
このフィルタを使用するとグラフの要素の表示非表示がずれて
しまい、正しく表示されません。

以下のような表がある場合、A列に"○"がついてるので
3点(1,3,4行)表示されます。
 ※ここでは散布図の例表を作成してません。
  C列の後も続くと前提してください。
 ▼
 ABC
1○x
2 y
3○w
4○z

A列にフィルタをした状態でも3(1,3,4行)点表示したまま
になって欲しいのですが、2行目でエラーになってしまいます。
この時にエラーになります。
 ActiveChart.SeriesCollection(1).Points(i).Select

-----
OS :Windows2000
Ver:Office2000(ただし97でも動作確認をしたい)

回避する方法などご存知でしたら教えてください。
よろしくお願いします。
3 hits

【49662】オートフィルタで抽出後、散布図を作成する方法 すず 07/6/15(金) 0:29 質問

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