Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2933 / 13646 ツリー ←次へ | 前へ→

【65194】交互に色をつける かな 10/4/26(月) 16:13 質問[未読]
【65196】Re:交互に色をつける 超初心者 10/4/26(月) 16:30 発言[未読]
【65207】Re:交互に色をつける かな 10/4/27(火) 11:15 お礼[未読]
【65202】Re:交互に色をつける まだ新人 10/4/26(月) 22:45 発言[未読]
【65206】Re:交互に色をつける かな 10/4/27(火) 11:14 お礼[未読]

【65194】交互に色をつける
質問  かな  - 10/4/26(月) 16:13 -

引用なし
パスワード
   どうも、いまいちうまくいかなくて投稿します

下記のようなデータがあります
品物の数は、まだまだ複数存在します
データは全部で、100件ほどになります

品物  数量  MEMO
いちご  1   
いちご  1
いちご  1
りんご  2
りんご  3
なし   7
なし   1
みかん  2
みかん  2
みかん  4
みかん  2

これを、いちごの行3行を薄緑色にし、
つぎの、りんごの2行は、何も無し
その次の、なしの2行は、薄緑色にし、
その次の、みかんの4行は、なにも無し

といったように、交互に背景色をつけていきたいのですが、
どのようにすればよいのでしょうか?
いまいち、いいアイデアが浮かばず困ってます
どうか、アドバイスのほうをお願いします
 

【65196】Re:交互に色をつける
発言  超初心者  - 10/4/26(月) 16:30 -

引用なし
パスワード
   ▼かな さん:
案です。

作業列を一列(仮にDとします)

D1=1
D2=IF(A2=A1,1,-1)*D1
以下D2をフィル

見た目、次のようになります。

A    B    C    D
品物  数量  MEMO  1
いちご 1       -1
いちご 1       -1
いちご 1       -1
りんご 2        1
りんご 3        1
なし  7       -1
なし  1       -1
みかん 2        1
みかん 2        1
みかん 4        1
みかん 2        1


あとは「条件付書式」で^^;

VBAではありませんが、一案として参考までに。

【65202】Re:交互に色をつける
発言  まだ新人  - 10/4/26(月) 22:45 -

引用なし
パスワード
   ▼かな さん:
 

1.行=2,品名=いちご,色=薄緑

2.色塗り

3.行+1

4.品名は同じか? → yes 2.へ

  ↓no

5.品名←変更
 色=薄緑なら無色 そうでなければ 薄緑
 

6. 2.へ

【65206】Re:交互に色をつける
お礼  かな  - 10/4/27(火) 11:14 -

引用なし
パスワード
   ▼まだ新人 さん:


ありがとうございました。
ヒントを貰ったおかげで、解決できました

たすかりました

【65207】Re:交互に色をつける
お礼  かな  - 10/4/27(火) 11:15 -

引用なし
パスワード
   ▼超初心者 さん:

ありがとうございました
お蔭様で、解決しました

いろいろな考え方があるんですね

2933 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free