
以下、お助けいただけたら幸いです!!
バブルチャートの色を変えるマクロに悩んでおります。
具体的にコードをどうしたらいいのか 歯が立ちません。
■どんなマクロを作成したいのか?
→既に作ってあるバブルグラフの”グラフの色を変える”マクロ
【元データ表】
A列:県名、B列:X値、C列:Y値、D列:バブルの大きさの値
【既にあるグラフ】
データ系列:列
X値:B2:B85、Y値:C2:C85
サイズ:D2:D85
★今回は”85”ですが 範囲はそれ以上それ以下のときもあります
■問題点
データ数は80個以上。
→★エクセルの色は56色なので56個超えるとエラーになる
→★色番号をバブルのカウントと対応させ1から指定すると黒など原色が出てしまう。淡い色にしたい
■変えたい点:
色番号20番~50番まえを繰り返し使いたい
No.1ベストアンサー
- 回答日時:
アルゴリズムが思いつかないだけと見受けましたので、あえて説明無しのコードだけで。
(全角スペースは半角に変換ください)
Sub PntClr()
Dim l As Long
Dim NoPnt As Integer
Dim CI As Integer
Application.ScreenUpdating = False
l = 1
CI = 20
With ActiveChart.SeriesCollection(1)
NoPnt = .Points.Count
Do While l < NoPnt
If CI = 50 Then CI = 20
.Points(l).Interior.ColorIndex = CI
l = l + 1
CI = CI + 1
Loop
End With
Application.ScreenUpdating = True
End Sub
そのものです!! できました
厚かましい質問にご丁寧な回答 本当に助かりました!!
具体的に自分が書いていたコードを書かずに申し訳ございません。
考えたのですがどうしてもわからなかったのです。
項目のラベル、判例を無くす、
など自分なりにコードを書いたのですが色となるとはたしてどう反映させたらいいのか行き詰まりました。
そうです
構文の基は”Do While”なのだ、
という初心者ではあっても
その見当はついたのですが どうやってやるのかがわからなかった
If CI = 50 Then CI = 20
.Points(l).Interior.ColorIndex = CI
l = l + 1
CI = CI + 1
ここが特に勉強になりました。
なるほどです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
検便についてです。 便は取れた...
-
Excel 数値の前の「 ' 」を一括...
-
VLOOKUP関数を使用時、検索する...
-
小数点以下を繰り上げたものを...
-
彼女のことが好きすぎて彼女の...
-
血液検査の結果が悪くefgrの値...
-
2つの数値のうち、数値が小さい...
-
コロナでもインフルでもなかっ...
-
値が入っているときだけ計算結...
-
リンク先のファイルを開かなく...
-
MIN関数で空白セルを無視したい...
-
病院側から早く来てくださいと...
-
EXCELで条件付き書式で空白セル...
-
増減表のプラスマイナスの符号...
-
風俗店へ行く前のご飯
-
検便を取ったのですが、棒から...
-
EXCELで式からグラフを描くには?
-
Excel 0目標に対して数字があ...
-
腕を見たら黄色くなってる部分...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
検便についてです。 便は取れた...
-
血小板増加について
-
彼女のことが好きすぎて彼女の...
-
Excel 数値の前の「 ' 」を一括...
-
病院側から早く来てくださいと...
-
VLOOKUP関数を使用時、検索する...
-
腕を見たら黄色くなってる部分...
-
値が入っているときだけ計算結...
-
リンク先のファイルを開かなく...
-
2つの数値のうち、数値が小さい...
-
風俗店へ行く前のご飯
-
小数点以下を繰り上げたものを...
-
一番多く表示のある値(文字列...
-
MIN関数で空白セルを無視したい...
-
勃起する時って痛いんですか? ...
-
エクセルで空白セルを含む列の...
-
増減表のプラスマイナスの符号...
-
【Excelで「正弦波」のグラフを...
-
エクセルで数式の答えを数値と...
おすすめ情報