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
No.1ベストアンサー
- 回答日時:
まず、訂正から。
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
でいいと思います。
なるほど。""で囲んでしまっているから、文字列とみなされてしまうわけですね。
教えていただいた方法で、自分のやりたいことが実現できました。
どうもありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) Excelの文字列を数字に変換する方法について 6 2023/07/31 21:18
- Excel(エクセル) 【Excel】指定した文字列に該当する行を重複しないようにリスト 3 2022/03/30 12:27
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel UserForm の表示位置
-
エクセルVBA 配列からセルに「...
-
VBAマクロ実行時エラーの修正に...
-
エクセルの合計を自動で表示さ...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA 複数条件の分岐処理の上手...
-
マクロの実行時エラー'1004'が...
-
入力規則のリスト選択
-
VBA にて、条件付き書式で背景...
-
Excelで空白セル直前のセルデー...
-
【VBA】【ユーザーフォーム_Lis...
-
昨日、質問した件『VBA にて、...
-
ユーザフォームを使ってのデー...
-
VB.netでのExcelデータの読み込み
-
Excel VBAでCheckboxの名前を変...
-
【VBA】写真の貼り付けコードが...
-
VBA:日付を配列に入れ別セルに...
-
グラフの参照元を相対参照で記...
-
VBAでユーザーフォームにセル値...
-
【Excel VBA】一番右端セルまで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
VBA 複数条件の分岐処理の上手...
-
Excelで空白セル直前のセルデー...
-
Excel UserForm の表示位置
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
VBA にて、条件付き書式で背景...
-
VBAでユーザーフォームにセル値...
-
【VBA】写真の貼り付けコードが...
-
【Excel VBA】一番右端セルまで...
-
Excel VBAでCheckboxの名前を変...
-
エクセルの合計を自動で表示さ...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
Excel VBA IF文がうまく動作し...
-
下記のマクロの説明(意味)を...
-
入力規則のリスト選択
-
C# DataGridViewで複数選択した...
-
関数の引数でrangeを指定したとき
おすすめ情報