[[20141123170202]] 『データラベル』(南米一) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『データラベル』(南米一)

 日々変化する、折れ線グラフのデータラベルの一番右(最新)だけを表示したいの
 ですが、出来ないでしょうか?

< 使用 Excel:Excel2007、使用 OS:Windows7 >


グラフに下記のマクロを登録
マウスでクリックすると更新されます

 Sub test()
    Dim ser As Series
    Dim i As Long

    With ActiveSheet.ChartObjects(Application.Caller).Chart
        For Each ser In .SeriesCollection
            With ser
                .HasDataLabels = True
                For i = 1 To .Points.Count - 1
                    .Points(i).DataLabel.Text = ""
                Next
            End With
        Next
    End With

 End Sub

(マナ) 2014/11/23(日) 21:07


 データラベルを表示する用の系列を
 一つ追加するのはどうですか?
  
(HANA) 2014/11/23(日) 21:33

マクロ案は、データ範囲の更新も同時にしないと使い勝手悪いですね。

(マナ) 2014/11/23(日) 21:41


 マナさん、HANAさんありがとうございます。
 マナさんの作って頂いたマクロを試してみましたが、表示されていたものは消えるのですが、最新の
 データラベルは表示されませんでした。やりかたがまずいのでしょうか?

 (HANAさんのデータラベルを表示する用の系列を一つ追加する)考えているのですが、
 具体的にどうしたらしょうか?ご指導お願いします。
(南米一) 2014/11/23(日) 22:13

グラフをクリックしても表示されませんか?

(マナ) 2014/11/23(日) 22:36


 たとえば
	[A]	[B]	[C]
  [1]	項目	データ	ラベル用
  [2]	1	2	#N/A
  [3]	2	4	#N/A
  [4]	3	6	#N/A
  [5]	4	8	#N/A
  [6]	5	10	10
 C2に =IF(B3="",B2,NA()) の式をいれて、C6までフィルドラッグ。

 A1:C6の範囲で折れ線グラフを作成し
 「ラベル用」の系列のみ、データラベルを表示。
  
(HANA) 2014/11/23(日) 22:42

 マナさん、グラフに回答頂いたマクロを設定し、クリックするとプログラムは最後ま
 で走るんですが。

 HANAさん、わかりました。そういうことなんですね。とても考え付きませんでした。
 ありがとうございました。
(南米一) 2014/11/23(日) 23:04

テーブル使おうよ。
http://fast-uploader.com/file/6972308034623/
(水上) 2014/11/23(日) 23:23

マクロ使うまでもなかったようなので、これで最後。

 .HasDataLabels = True
  ↓
 .DataLabels.AutoText = True

で、どうなりますか。

(マナ) 2014/11/23(日) 23:26


水上さんのコメントで気付きました。
グラフ化するセル範囲は固定ということかもしれませんね。
そうであれば、私のマクロで表示されなくなるのも納得です。

(マナ) 2014/11/24(月) 08:36


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.