棒グラフの色を変える

VBA Excel

800の棒グラフがあり，要素ごとに色分けをする方法を調べてみた． cells(i,2)に企業名がある．あと，積み上げ式棒グラフの場合，SeriesCollection()で，何番目に積み上がっている棒グラフであるかと選択できる． c=3から始まっているのは，ColorIndex=2は白…

2009-06-02

条件文

VBA

if文で，複数の条件をつなぐときは & でなくて and じゃないといけないっぽい．

2009-05-28

セルの色によって判別させる

VBA

If Sheets(1).Cells(*, *).Interior.ColorIndex = 6 Then みたいな感じでいけるらしい． ColorIndexが6は黄色．ほかに1は黒，2は白，3は赤，4は黄緑，5は青など．HelpでColorIndexを参照すべし．

2009-04-27

Excelで画面を更新しない

VBA

VBAに， Application.ScreenUpdating = False と書いたら，画面を書き換える無駄な時間を短縮可能．いつも人のページから上の一行を探しているが，自分の所に貼った方が探しやすいので貼ってみた．

2009-03-06

日本語同士を if文で照合

VBA

Excel VBAのお話。 a = Cells(i, 1).Value b = Cells(j, 2).Value if a = b thenといった作業をさせようとした時にうまくいかなかった。いろいろ調べたところ、 Cells(i, 1).NumberFormatLocal = "@" Cells(j, 2).NumberFormatLocal = "@" a = Cells(i, 1).…