No.4ベストアンサー
- 回答日時:
こんばんは。
Wendy02です。ご確認を待たずに、こちらで決めて作ってしまいました。
以下の
Const SHEET_NAME As String = "Sheet2"
この部分を決めてください。複数のシートを検索することも考えましたが、負担が大きすぎるような気がしました。
まず、データ(数値)を選択して、マクロを起動させますと、検索し、メッセージボックスに、グラフ名(英語)と系列名が出てきます。マクロは、ボタンやショートカットにすると便利です。ヒットしない場合は、何も出てきません。
'--------------------------------------------
Sub TestGraph()
Dim objChrts As ChartObjects
Dim chrtSC As Object
Dim objChrt As ChartObject
Dim buf As String
Dim mySh As String
Dim myRng As String
'シート名を入れてください。
Const SHEET_NAME As String = "Sheet2"
If VarType(ActiveCell.Value) <> vbDouble Then Exit Sub
Set objChrts = Worksheets(SHEET_NAME).ChartObjects
If IsObject(objChrts) = False Then Exit Sub
For Each objChrt In objChrts
For Each chrtSC In objChrt.Chart.SeriesCollection
buf = Replace(chrtSC.FormulaLocal, "=SERIES(", "")
buf = Mid$(Left$(buf, InStrRev(buf, ",") - 1), 3)
mySh = Left$(buf, InStr(buf, "!") - 1)
myRng = Mid$(buf, InStr(buf, "!") + 1)
If Not Intersect(ActiveCell, Worksheets(mySh).Range(myRng)) Is Nothing Then
MsgBox "グラフ名 :" & objChrt.Name & " 系列名 : " & chrtSC.Name
End If
Next
Set objChrt = Nothing
Next
End Sub
'--------------------------------------------
こんばんは、Wendy02さん。
昨日書き込みを拝見して、ハタと考え込んでしまいました。
グラフからセルをたどる場合はセルの色を変えるなり何なりすればいいですが、セルからグラフをたどる場合は一体どうすれば???
どうしたいかのイメージがわかずに本日ログインしてみれば、何と既にVBAが…
いつもいつもお世話になっていて、ポイントどころか謝礼をお支払いしたいくらいなのですが、それができないのが何とも歯がゆいです。
本当にありがとうございました。
No.3
- 回答日時:
こんにちは。
Wendy02です。もう少し確認させてください。
ご質問を読んだ時点で、だいたいの方針は固まって既にある程度までVBAで作っていました。ただ、予想したとおり、別のシートのグラフということなので、それを、どう表示していくか、という具体的な詰めの段階で、チュウチョしています。最初は、そのグラフに飛ぶということも考えていましたが、それも問題があるのかなって思います。
#1さんのおっしゃるようなカラーリファレンスは、元より別シートですから無理ですが、そのあたりをどうイメージされていますか?可能なら、なるべくイメージに近づけたいと思います。
例えば、アクティブセルから、ボタンやショートカットで、単に、グラフの使用の「ある・なし」の表示するとか?グラフ名(グラフ番号)をメッセージボックスで出すとか?
No.2
- 回答日時:
こんばんは。
>そのセルがグラフに使われているかを探せますか?
たぶん、VBAなら出来ます。
機能的には備わっていないので、それをVBAで行うことになるかと思います。ブック全体の中のグラフから、あるセルが含まれるか含まれないかを、それぞれのグラフの系列の中を全部探すというようなプログラムになるのではないかと思います。
単独のグラフなら、そのようなご質問をするはずがないので、複数のグラフの中で、一体、どれがどれか分らなくなったものを、簡単に見つけ出せる方法はないか、というご主旨ではないかと思いました。
こんばんは、ご推察の通りです。
他人が作ったファイルの修正で、該当ファイルは数千行にわたって数字が入っていて、別シートのグラフも2~3百はあると思います。
この大量のグラフを一々クリックしてチェックするのも大変な作業でして、今回質問させていただいた次第です。
もう少し、ご回答を待ってみます。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) Excel M365 データチェックの仕掛けを作りたい 2 2023/06/03 23:54
- Excel(エクセル) 表計算ソフトcalcにおいて、1時間10分を1.1と表記する方法とそれらを集計する方法は? 4 2022/04/06 16:54
- Excel(エクセル) 【エクセル】文中に別シートのセルの内容を自動入力したい 6 2022/11/17 11:30
- Excel(エクセル) エクセル 関数参照範囲のセルの表示 1 2023/03/16 14:55
- Excel(エクセル) エクセルのグラフで式や文字列を無視したい 2 2022/12/14 10:47
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) エクセルデータの集計、一つのセルに複数のデータがある場合 7 2022/12/28 20:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
エクセルの縦軸(Y軸)が不均等...
-
Excelでx軸とy軸を設定して図を...
-
EXCELでグラフを作るとき、縦軸...
-
Excelグラフの有効数字の統一が...
-
エクセルで式からグラフを作成...
-
エクセルで一つのグラフを複数...
-
エクセルのグラフの1点の色を変...
-
パワーポイントで円グラフが作...
-
散布図を縦に2個並べて出力したい
-
EXCELのプロットエリアサイズの...
-
エクセルで折れ線グラフ(散布...
-
Excelマクロ・グラフエリア・プ...
-
エクセルの対数グラフのエラー
-
x-y座標に10個ぐらいの点をプロ...
-
結合されたセルのグラフ表示
-
Excel:別シートにグラフを貼り...
-
エクセルの円グラフをグラフエ...
-
エクセルのマクロを使ってデー...
-
30品目以上のExcelの折れ線グラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
EXCELでグラフを作るとき、縦軸...
-
エクセルの縦軸(Y軸)が不均等...
-
Excel:別シートにグラフを貼り...
-
エクセルの円を5等分する方法
-
Excelでx軸とy軸を設定して図を...
-
エクセルで折れ線と散布図を同...
-
エクセル 0や空白のセルをグラ...
-
エクセルで折れ線グラフ(散布...
-
エクセルの対数グラフのエラー
-
エクセルで、極座表のグラフ描...
-
Excelのグラフ軸について
-
<EXCELグラフ>データ取得範囲...
-
エクセル グラフの”データーテ...
-
ExcelでIF関数によるグラフの表...
-
散布図を縦に2個並べて出力したい
-
EXCELのグラフ作成時に元データ...
-
エクセルで式からグラフを作成...
-
Excelグラフの有効数字の統一が...
-
Excelの横棒グラフのプロットエ...
おすすめ情報