OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

グラフのタイトルにセル内の文字列を使うには?

  • すぐに回答を!
  • 質問No.225106
  • 閲覧数289
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 75% (3/4)

Excelにて、InputBoxで入力された数の行を参照して、
グラフを生成するマクロを以下のように作成しています。
データの範囲は以下のようにInputBoxでの入力された数値を使って
処理できたのですが、タイトルが上手く処理できません。

入力された数値を利用して、値を参照するセルの位置を決定し、
そのセルに入力されている文字列を
.ChartTitle.Characters.Text の値として代入したいのですが
どう記述すればいいのでしょうか?

以下のように(抜粋)、セルの範囲を一旦変数titleRangeに代入し、
.ChartTitle.Characters.Text = "=Sheet1!" & titleRange
と記述して、セル内の文字列を参照させたかったのですが、
文字列として、シート名と変数名がそのまま表示されてしまいます。

初心者なので、分かりにくい説明で申し訳ありませんが、
グラフのタイトルに指定したセル内の文字列をセットする
方法を教えていただけないでしょうか?

colNum = InputBox("対象行")

titleRange = "R" & colNum & "C1"

With ActiveChart
  .HasTitle = True
  .ChartTitle.Characters.Text = "=Sheet1!" & titleRange
End With
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル11

ベストアンサー率 33% (102/305)

まず、訂正から。
titleRange = "R" & colNum & "C1"
""で囲まれると文字列として確定してしまいます。
この場合、

titleRange =Sheet1.Cells(colNum,1)

(Sheet1のcolNum行目の1列目のセル)だと思います。

With ActiveChart
  .HasTitle = True
  .ChartTitle.Characters.Text = "=Sheet1!" & titleRange
End With

と、ここですが、やっぱり""(ヌルストリング)で囲まれるとそのまま文字列になっちゃいますので、さきほど代入した titleRange を利用して、

With ActiveChart
  .HasTitle = True
  .ChartTitle.Characters.Text = titleRange
End With

でいいと思います。
お礼コメント
schpeltor

お礼率 75% (3/4)

なるほど。""で囲んでしまっているから、文字列とみなされてしまうわけですね。
教えていただいた方法で、自分のやりたいことが実現できました。

どうもありがとうございました。
投稿日時 - 2002-02-26 10:33:26
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ