Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6650 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【44011】グラフタイトル グラフ 06/11/1(水) 10:48 質問[未読]
【44012】Re:グラフタイトル Jaka 06/11/1(水) 10:55 発言[未読]
【44013】Re:グラフタイトル グラフ 06/11/1(水) 11:57 発言[未読]
【44014】Re:グラフタイトル Jaka 06/11/1(水) 12:08 発言[未読]
【44017】Re:グラフタイトル グラフ 06/11/1(水) 12:27 発言[未読]
【44021】Re:グラフタイトル Jaka 06/11/1(水) 12:44 回答[未読]
【44023】Re:グラフタイトル グラフ 06/11/1(水) 13:03 発言[未読]
【44022】Re:グラフタイトル Kein 06/11/1(水) 13:01 回答[未読]
【44024】Re:グラフタイトル グラフ 06/11/1(水) 13:06 お礼[未読]
【44011】グラフタイトル
質問  グラフ  - 06/11/1(水) 10:48 -
引用なし
パスワード
   下記マクロはグラフタイトルを作成するときのものです。

With ActiveChart
　　　　.HasTitle = True
　　　　.ChartTitle.Characters.Text = "(ab)"

グラフタイトル『ab』の『b』のみをｾﾙ：G6に入力されている文字で表記するためにはどのようにすればよいのでしょうか？
教えてください
【44012】Re:グラフタイトル
発言  Jaka  - 06/11/1(水) 10:55 -
引用なし
パスワード
   単純に文字連結で

.ChartTitle.Characters.Text = "(a" & Range("G6").value & ")"

取り違えていたらすみません。
【44013】Re:グラフタイトル
発言  グラフ  - 06/11/1(水) 11:57 -
引用なし
パスワード
   回答ありがとうございました。
教示いただいたマクロではコンパイラエラーになってしまいました。
ほかの方法があれば、教示願います。
【44014】Re:グラフタイトル
発言  Jaka  - 06/11/1(水) 12:08 -
引用なし
パスワード
   ▼グラフ さん：
>教示いただいたマクロではコンパイラエラーになってしまいました。
>ほかの方法があれば、教示願います。
コンパイルエラーって、どうやったのでしょうか？
もしかして、提示したものだけを試したのでしょうか？
こんな具合に...。

sub aaaaa()
　 .ChartTitle.Characters.Text = "(a" & Range("G6").value & ")"
End sub
【44017】Re:グラフタイトル
発言  グラフ  - 06/11/1(水) 12:27 -
引用なし
パスワード
   そうです。
何か不具合でも？
小生は全くの素人です。
【44021】Re:グラフタイトル
回答  Jaka  - 06/11/1(水) 12:44 -
引用なし
パスワード
   "(ab)"
　↓
"(a" & Range("G6").value & ")"
【44022】Re:グラフタイトル
回答  Kein  - 06/11/1(水) 13:01 -
引用なし
パスワード
   セル範囲を指定するなら、そのシートへの参照もつけないとダメかと思います。

.ChartTitle.Characters.Text = _
"(a" & Sheets("Sheet1").Range("G6").Value & ")"
【44023】Re:グラフタイトル
発言  グラフ  - 06/11/1(水) 13:03 -
引用なし
パスワード
   ▼Jaka さん：
>"(ab)"
>　↓
>"(a" & Range("G6").value & ")"
上記のようにマクロを変更しましたが、実行時にエラーが発生し、次のようなエラーメッセージが出ました。

実行時エラー　'1004':
'Range'メソッドは失敗しました:'Global'オブジェクト

どうしてです？
【44024】Re:グラフタイトル
お礼  グラフ  - 06/11/1(水) 13:06 -
引用なし
パスワード
   ▼Kein さん：
>セル範囲を指定するなら、そのシートへの参照もつけないとダメかと思います。
>
>.ChartTitle.Characters.Text = _
>"(a" & Sheets("Sheet1").Range("G6").Value & ")"
シート名を追加したら、できました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6650 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free