[[20140829112511]] 『複合グラフのデータラベル:今日の値だけ表示した』(あはは) ページの最後に飛ぶ

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

 

『複合グラフのデータラベル:今日の値だけ表示したい』(あはは)

棒グラフと折れ線グラフで、データを5つほど表示させて進捗を管理しています。
そのグラフの今日の日付のみにデータラベルを表示させたいです。

現状は、全日程のラベルを一旦表示させ、今日の日付以外を一つひとつ削除していますが
一度に処理する方法はないでしょうか。
Excel2007を使用しています。

ご存知の方いらっしゃいましたら、教えて下さい。

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


 アナログ的ですが・・・

 >全日程のラベルを一旦表示させ
 じゃなくて、今日の日付の分だけを選択して表示させればいいのでは?
(とらら) 2014/08/29(金) 13:14

今日以外はNA()の系列追加してマーカー非表示
その系列にデータラベルでできそう
未確認情報です。
(水上) 2014/08/29(金) 13:21

今日のデータが何番目かを、元の表から得てください。
以下は、3番目のデータ以外のラベルを消す例です。

 Sub test()
    Dim i As Long

    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        For i = 1 To .DataLabels.Count
            If i <> 3 Then
                .DataLabels(i).Text = ""
            End If
        Next i
    End With
End Sub
(???) 2014/08/29(金) 13:44

とららさん、
>今日の日付の分だけを選択して表示させればいいのでは?
色々試してみましたが、設定方法が解りませんでした。
グラフは常に全日程で表示したいので、ラベル表示設定をすると、やはり全日程にラベルが出てきます。

水上さん
リスト範囲に設定するのでしょうか?

???さん
当方VBAは全く知識がないのですが、同じシートに複数のリストがあって、その中の幾つかをグラフでまとめて表示しています。
試しにコードを実行してみましたが、「オートメーションエラー」となってしまいました。

皆さん、
アドバイスありがとうございました。
もう少し調べてみます!
(あはは) 2014/08/29(金) 18:28


日付   値   ラベル
8月25日 3 #N/A
8月26日 4 #N/A
8月27日 5 #N/A
8月28日 2 #N/A
8月29日 4 4
8月30日 3 #N/A
8月31日 5 #N/A
こんなテーブルをグラフに
ラベル系列にデータラベルつけとくと
あした開くと8/30日にデータラベルが移動
=IF(A2=TODAY(),B2,NA())
(水上) 2014/08/29(金) 22:02

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11134854216
30日に移動しました。

ここの画像みたことあるんだが
つかいかたわからないのでごめん。
(水上) 2014/08/30(土) 06:02


 >ラベル表示設定をすると
 グラフ作成の時点では全てラベルを非表示にしておくんです。
 で、グラフ作成後ラベルの表示をさせたい要素の部分だけを選択して(一つずつしかできないかと、ですが)、
 右クリック→データラベルの追加をクリック で
 ラベル表示をさせるとその選択した要素の分だけのラベルが出てるはずなんですが・・・
(とらら) 2014/09/01(月) 11:46

私のサンプルは、既にラベル表示した状態から削除するものだったので、ラベルが無いとエラーになります。
以下のように1行追加して、もう一度お試しください。

 Sub test()
    Dim i As Long

    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        .ApplyDataLabels
        For i = 1 To .DataLabels.Count
            If i <> 3 Then
                .DataLabels(i).Text = ""
            End If
        Next i
    End With
End Sub

.ChartObjects(1) の数字を変えると、何番目のチャートなのかが変わります。
.SeriesCollection(1) の数字を変えると、何本目のグラフなのかが変わります。
(???) 2014/09/02(火) 09:36


???さん
頂いたコードで上手く表示できました。
コードの解説も勉強になります。
ありがとうございます。

水上さん
当方エクセル2007を使用しているのですが、理解不足で上手く出来ませんでした。
折角アドバイス頂いたのですが、申し訳ない・・・

とららさん
ラベル表示したい日付の部分をグラフ上で選択して、データラベルの追加で出てきました。
グラフが密接していない場合には簡単便利で良いですね。
ありがとうございます。

グラフを普段仕事で使用していなかったので、みなさんのアドバイスが凄く助かりました。
ありがとうございました。
(あはは) 2014/09/02(火) 11:57


コメント返信:

[ 一覧(最新更新順) ]


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