Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2952 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼かな さん：
案です。

作業列を一列（仮にＤとします）

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


あとは「条件付書式」で＾＾；

ＶＢＡではありませんが、一案として参考までに。
【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 -
引用なし
パスワード
   ▼超初心者 さん：

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

いろいろな考え方があるんですね
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2952 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free