
No.2ベストアンサー
- 回答日時:
atom11290301さん こんにちは。
グラフはマクロ記録だけではなかなか難しいようですね。
一応簡単ですが、以下の処理でできると思います。
Sub Eの色変更()
Dim I As Integer
Dim 店舗名 As Variant
With Sheets("りんご").ChartObjects("グラフ 1").Chart.SeriesCollection(1)
店舗名 = .XValues
For I = 1 To UBound(店舗名)
If 店舗名(I) = "E" Then .Points(I).Interior.ColorIndex = 3
Next I
End With
End Sub
注)sheet1、"グラフ 1"、色(ColorIndex)等は変更してください。
No.3
- 回答日時:
系列の色を変えるではなく、要素(質問の場合のE)の色を変える、では無いの?
例データ
a10
b30
c20
で棒グラフを作り
bのデータ要素の書式設定をマクロの記録をとって見ましたか?(bは質問ではE)
マクロの記録を採ると
ActiveChart.SeriesCollection(1).Points(2).Select
bだからPoints(2)と2なので、ソートして順序が変わるなら
何番目にあるか調べたら良いでしょう。
2つのシートでテスト。
標準モジュール
Sub test01()
Dim sh
For Each sh In Worksheets(Array("Sheet1", "Sheet2"))
MsgBox sh.Name
sh.Activate
x = ActiveSheet.Range("A2:A4").Find("b").Row 'bは何番目の行にあるか
MsgBox x - 1 '見出し行数までを引く
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.SeriesCollection(1).Points(x - 1).Select
Selection.Interior.ColorIndex = 3
Next
End Sub
ーーー
>("Sheet1", "Sheet2"))は自分の場合に変える、増やす。
または全シートなら、In Worksheets
シート内にグラフを挿入する方式を仮定。
グラフが1シート1個(問題にしているグラフのみ)と仮定。
一応ソート後のデータでグラフを描くとか、描いたあと(自動で)順序が反映されていると仮定。
No.1
- 回答日時:
1つの系列の色でも、系列の中の1つの要素の色でも
マクロで記録したコードを参考にすれば簡単に変えられる
ので、うまくいかないとだけ言われてもやり方が悪いんでしょ
としかいえない。
どんなコードを書いて、どこのコードでどんなエラーが出るとか、
想定した結果は○○なのに、結果が××だとか、
具体的に書いてないと、宿題や課題の丸投げと区別できません。
丸投げして社会問題起こすような人が出てきちゃったので、
安心して回答できるような質問内容に変更して欲しいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル VBAでBook モジュールのプロシージァ(コード)に除外シートを設定したい 1 2023/01/11 15:53
- Excel(エクセル) エクセルの大きなシートでグラフを見つける 4 2022/07/28 10:07
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Excel(エクセル) Excel 散布図グラフ 外れ値 セル番地参照方法 4 2022/04/19 18:56
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Excel(エクセル) Googleスプレッドシートの割合の関数と円グラフの並べ替えについて 1 2022/07/22 17:31
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】大変な警告
【大喜利】「今このパソコンは大変危険な状態です」という警告メッセージを無視してパソコンを開いたら、こんなことが起こった
-
人生最悪の忘れ物
今までの人生での「最悪の忘れ物」を教えてください。 私の「最悪の忘れ物」は「財布」です。
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
コーピングについて教えてください
皆さんはストレスを感じたとき、どのような方法や手段、テクニックで対処していますか?
-
今から楽しみな予定はありますか?
いよいよ2025年が始まりました。皆さんには、今から楽しみにしている予定はありますか?
-
[エクセル]マクロで、自動的にグラフの色を変える方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
ファイル名を今日の日付、時刻...
-
VBAを使ってエクセルシート...
-
エクセルでツールバーに「縮小...
-
Powerpointでランダムな数字の...
-
VBA[Private Sub]のコードをシ...
-
エクセルVBAで、画像の倍率を知...
-
VisualStudioのアウトライン機...
-
ピボットグラフの書式の固定に...
-
エクセルシートをまとめて印刷...
-
【ExcelVBA】クエリの更新とピ...
-
VBAで実行時エラー '1004'の解...
-
PowerpointファイルにCtrl+Vで...
-
EXCELにクリップボードにある画...
-
VBAでの複数ページの印刷範囲の...
-
ユーザフォームをどの画面から...
-
エクセルで「ODBC Microsoft Ac...
-
エクセルで、マクロをボタンに...
-
Pictures.Insertメソッド⇒Shape...
-
エクセルのストップウォッチ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
cellsで特定の離れた範囲を選択...
-
VBA[Private Sub]のコードをシ...
-
ファイル名を今日の日付、時刻...
-
Powerpointでランダムな数字の...
-
最初の1回のみにボタンクリッ...
-
どのドキュメントは暗号化され...
-
ピボットグラフの書式の固定に...
-
VBAを使ってエクセルシート...
-
Pictures.Insertメソッド⇒Shape...
-
【ExcelVBA】クエリの更新とピ...
-
エクセルVBAで、画像の倍率を知...
-
エクセル2007 テキストボ...
-
エクセルワークシート上に印刷...
-
エクセルのマクロでSelection.S...
-
htmlまたはJavascriptからファ...
-
別ブックからユーザーフォーム...
-
エクセルシートをまとめて印刷...
-
EXCELにクリップボードにある画...
おすすめ情報