Sub hoge() Dim bk As Workbook: Set bk = Workbooks("3rdData_p2_グラフ.xlsx") Dim s As Worksheet Dim co As ChartObject, ch As Chart Dim buf As String For Each s In bk.Worksheets If InStr(1, s.Name, "AtRisk") > 0 Then For Each co In s.ChartObjects Set ch = co.Chart ch.HasTitle = True buf = ch.ChartTitle.Text ch.ChartTitle.Text = Replace(buf, "良好群", "Risk群") Next ElseIf InStr(1, s.Name, "malnu") > 0 Then For Each co In s.ChartObjects Set ch = co.Chart ch.HasTitle = True buf = ch.ChartTitle.Text ch.ChartTitle.Text = Replace(buf, "良好群", "危険群") Next End If Next End Subつーかよ全部同じ名前にすんじゃねーよ確認しろよ
2014年8月15日金曜日
(VBA)ある条件に合致したグラフのタイトルをまとめて書き換える
シート名で判別してグラフのタイトルをまとめて設定するテスト
登録:
コメントの投稿 (Atom)
とある規格化されたコード
世の中こんなもんまで規格化されていますよ、というお話 https://ja.wikipedia.org/wiki/ISO_5218 この辺が大変良くできた、ためになる(?)解説記事です。(長い https://qiita.com/aoshirobo/items/32deb...
-
今月2本目のUP、良いペースです。 おはよう御座います。部長です。 皆様いかがお過ごしでしょうか?僕はイカが釣れません。 で、 今日は、 アオリイカ用の新しいエギを25本買ったのでそのレビュー じゃなくて、EXCELマクロを書く時にハマりがちな「Me」...
-
<症状> IIS上に素の.htmlファイルを公開したらアクセスの最初に500エラーが発生。 再読込をすると正常にアクセス可能。 という症状が発生。 再読込をすると正常にアクセスできたので気にしてなかったら客先から指摘されてしまった。いろいろ弄ってると一定時間経つと「最...
0 件のコメント:
コメントを投稿