Excel 棒グラフ的な、セルへの自動着色

通常のグラフの機能を使用するのではなく
セルに着色またはハッチングパターンを自動的に記入する方法を教えて下さい
例えばA11に1の数字が入っていたら、A1からA10まで10マスが塗られます。
B11に5の数字が入っていたら、B6からB10までが。C11が1だったらC10が一マスだけ着色されます。
つまり11行めに入った数字を読み取り、同じ列の1から10までを棒グラフエリアとして10行目をベースに上に塗っていき、あたかも棒グラフの様な表現にしたいのです。
宜しくお願いします。

No.6 ベストアンサー 回答者： imogasi 回答日時： 2003/07/08 23:11

ＶＢＡでやるなら

１１行目に計数があるとして
Sub test02()
n = 1
For j = 1 To 10
For i = 1 To Int(Cells(11, j) / n)
Cells(10 - i + 1, j).Interior.ColorIndex = 5 '青
Next i
Next j
End Sub
Ａ列からＪ列（第１０列）までの例です。
ｎ＝１の１は最高値の１０分の１を指定するとかして
全列１から１０に収まるような計算を考えて、ｎを決めてください。異常に大きい列の値は、頭打ちの値を考える
必要もあるかも知れません。

この回答へのお礼

imogasiさん再度ありがとうございます
このVBA単純明快で初級者のわたしにも理解しやすいです。

予めセルをいじらなくてもいいので
重宝します。
前回もVBAでお世話になっていたことを思い出しました。
ありがとうございました。

お礼日時：2003/07/09 14:30

No.5 回答者： nihonjinn 回答日時： 2003/07/08 21:16

参考までにですがrept関数というのがあります。

=REPT("■",A11)
でA11に6という数字が入っていたなら「■■■■■■」という風になります。書式設定の配置で方向を90度にするなどしてやればグラフのように見えます。

この回答へのお礼

nihonlinnさんありがとうございます
求めていた回答にもっとも近いです

REPT関数は知っていました。
水平ならすでに自分でも解決していたんです
なるほど～“書式で90°”は気がつきませんでした
早速やってみました
残念ながらセルをまたいで上に表示してくれません
セルの高さを高くすれば表示されますが、本来の意図と食い違います
水平だとセルをまたいでいくらでも右に伸びていってくれるんですが・・・
がんばってみます

お礼日時：2003/07/09 13:46

No.4 回答者： Mozisan 回答日時： 2003/07/08 21:14

何の仕込みもなしに、表示させることはできないと思いますが。

条件付き書式設定がだめなら、関数を入れて、ある数値以上なら文字表示するとか。。。
でも、これも仕掛けですよね。

セルに仕込みたくないなら、VBAですが、
くわしい方の回答を待たれては？

この回答へのお礼

Mozisanさん　再度ありがとうございます

確かにVBAかもしれません

お礼日時：2003/07/09 13:39

No.3 回答者： imogasi 回答日時： 2003/07/08 20:57

(サンプル・データ）

Ａ１１＝２、Ｂ１１＝３、Ｃ１１＝６、Ｄ１１＝４
Ｅ１１＝５、Ｆ１１＝６とか
（書式の設定）
（１）Ａ１：Ａ１０を範囲指定する。
（２）書式－条件付き書式－数式が－（数式ボックスに）
=ROW(A1)+A$11>10と入れる。Ａ＄１１のＡの前には
＄を入れないこと。
（３）書式－パターン－セルの色を指定（例で赤）－ＯＫ－ＯＫ
（４）これでＡ９：Ａ１０が赤色になります。
（書式の複写）
Ａ１：Ａ１０を範囲指定しておき、右下隅の＋をＦ１０まで引っ張る。
（結果）これでＢ１１からＦ１１までの数に応じてセルの
数だけセル１０から上に色が付きました。
後は列幅を統一すれば良い。

この回答へのお礼

imogasiさんありがとうございます

#1さんのやりかたと比較すればこの方が効率がいいのかも知れません
“条件付き書式”もこうやって使うことができるのですね
助かりました！

お礼日時：2003/07/09 14:21

No.2 回答者： Mozisan 回答日時： 2003/07/08 20:23

メニューバー「書式」－「条件付き書式」を使います。

「セルの値が」を「数式が」に変え、右のテキストボックスに「=$A$11>=1」(A10の場合)と入力し、「書式」ボタンをクリック、「パターン」タブでセルの塗りつぶしを設定します。
11行の数値で各列にグラフ化したいなら、$A$11をA$11としておいて、A列の１～10まで設定後、B列以降にコピー、ペーストすれば良いかと思います。

この回答へのお礼

素早い回答ありがとうございます

予めセルに仕掛けを作っておかずに済む方法はないでしょうか？

お礼日時：2003/07/08 20:50

No.1 回答者： dejiji- 回答日時： 2003/07/08 20:20

なぜ、グラフを使わないのか良く分かりませんが、以下の方法で可能かと。

（但し、手間がかかりますが。）
Ａ１からＡ１０までの各セルに条件付書式を設定すればできます。
Ａ１セルに「数式が」を選択して数式を「=$A$11>=10」とし、書式を設定。以下Ａ２セル以降１０を一つずつ数値を減らした、同じ条件付書式を設定する。
Ｂ列以降$A$11を$B$11に変更して、同様に。

この回答へのお礼

素早い回答ありがとうございます
グラフを作るのがメイン目的ではなく、
巨大な商品受発注表の特定のセルの数値の大きさを
イメージ化するために数字の上のセルを塗りたいのです。
予めセルに仕掛けを作っておかずに済む方法はないでしょうか？

お礼日時：2003/07/08 20:48