[[20231004095733]] 『グラフの一番右のデータだけ数値を表示したい』(ちゅう) ページの最後に飛ぶ

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

 

『グラフの一番右のデータだけ数値を表示したい』(ちゅう)

お世話になっております。

グラフの一番右に最新のデータが表示されるように設定していますが、最新のデータのみを表示する設定は可能でしょうか?

・セルA3から13には項目名が入っています。
・セルB2からAG2には日付が入っています。
・セルB3からAG13には数値を入力し、日付が進むたびに、毎日右に1列ずつ入力しています。

そこで、A2〜AG13までを折れ線グラフで表示して、最新の数値のみを表示するようにしたいです。
表示する内容は「数値」と「系列名」の2種類です。

折れ線グラフの作り方から間違えているのか、今は全てのデータラベルが表示されるので、全て削除をして、最新のデータだけは手入力で削除しないというやり方をしていますが、これを自動化する方法はあるのでしょうか。

専門家の皆様、どうかご教示いただければ幸いです。

< 使用 Excel:Microsoft365、使用 OS:Windows11 >


よくわからないですが、表の最終列の数値のみをグラフ化したいってことだとすると・・・

表は別シートに作っておき、最終列のセル値を取得する関数を表をグラフを作るシートに反映させて
それをグラフにしたらいいのではないでしょうか?

最終列のセル値は
https://office-hack.com/excel/excel-column-last-function/
このあたりを読めばわかるかも
( 'ふ') 2023/10/04(水) 13:04:55


 完全自動化ではありませんが、手作業よりは、というレベル。

 Sub test()
    Dim cht As Chart
    Dim ser As Series
    Dim p As Points

    On Error Resume Next
    Set cht = ActiveChart
    On Error GoTo 0
    If cht Is Nothing Then Exit Sub

    For Each ser In cht.SeriesCollection
         ser.HasDataLabels = False
        Set p = ser.Points
        With p(p.Count)
            .HasDataLabel = True
            .DataLabel.ShowSeriesName = True
            .DataLabel.ShowValue = True
        End With
    Next

 End Sub
(マナ) 2023/10/04(水) 18:57:44

ご確認ありがとうございます!
頂いたページと情報を元にやってみます。
もしわからない箇所があれば、また質問させてください。

お忙しいにも拘らず、丁寧にご回答頂きありがとうございました。
(ちゅう) 2023/10/17(火) 09:27:12


コメント返信:

[ 一覧(最新更新順) ]


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