エクセルＶＢＡで質問です。

質問

エクセルＶＢＡで質問です。
エクセルで商品在庫管理をしていています。

Ａ列（顧客名）Ｂ（商品名）Ｃ（受注日）Ｄ（次回受注日）Ｅ（必要在庫数）
中村　　　　　　　あ　　　　　7/1　　　　8/1　　　　　　　10
田中　　　　　　　い　　　　　6/20　　　 7/30 　　　　　　20
佐藤　　　　　　　う　　　　　7/20　　　 8/20　　　　　　 15
中村　　　　　　　あ　　　　　8/1　　　　10/1 　20
渡辺　　　　　　　う　　　　　8/14　　　 9/15 30
中村　　　　　　　か　　　　　7/30 　　8/30 30

Ａ列（顧客名）とＢ列（商品名）が同じで、Ｄ列（次回受注日）が複数存在する場合、
受注日の古い行だけ色を付けることは可能でしょうか？

回答No.1

nda23 · ベストアンサー

こういうマクロで対応できると思います。

Sub Main()
Dim シート As Worksheet
Dim 行 As Long
Dim 位置 As Long
Dim 顧客名 As String
Dim 商品名 As String
Dim 受注日 As Date
Dim 範囲 As Range

Set シート = ThisWorkbook.Worksheets(1)
シート.Cells.Interior.Pattern = xlNone '現在の背景をクリア
行 = 1
Do
　　　　行 = 行 + 1
　　　　顧客名 = シート.Cells(行, 1)
　　　　If 顧客名 = "" Then Exit Do '顧客名が空欄なら終了
　　　　商品名 = シート.Cells(行, 2)
　　　　受注日 = シート.Cells(行, 4)
　　　　Set 範囲 = シート.Columns("A:A") _
　　　　　　　　　　　　 .Find(顧客名, シート.Cells(行 + 1, 1))
　　　　Do Until 範囲 Is Nothing
　　　　　　　　位置 = 範囲.Row
　　　　　　　　If 位置 = 行 Then Exit Do '自分に行き着いたら終了
　　　　　　　　If シート.Cells(位置, 2) = 商品名 Then
　　　　　　　　　　　　If シート.Cells(位置, 4) < 受注日 Then
　　　　　　　　　　　　　　　　シート.Range("A" & CStr(位置) & ":E" & CStr(位置)) _
　　　　　　　　　　　　　　　　.Interior.Color = &HFF '★背景色設定
　　　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　　　Set 範囲 = シート.Columns("A:A") _
　　　　　　　　　　　　　　　　.FindNext(シート.Cells(位置 + 1, 1))
　　　　Loop
Loop
End Sub

お礼

早々のご回答ありがとうございます。
目的としていた事がすんなりできました！

回答No.2

imogasi

エクセルの条件付き書式の範疇に適した問題だと思う。データ変更に対して即時反応性などからして。
しかし条件が複雑で、「数式が」の式が複雑になりそうで、直ぐには思い浮かばないぐらいだ。
（１）Ａ列（顧客名）とＢ列（商品名）が同じで
（２）Ｄ列（次回受注日）が複数存在する場合、
次回受注日は空白の行もあるのかな。顧客名＋商品名で同じものが複数行あれば、次回受注日は複数あると言っていいのかな。同じ行もあるのかな。
（３）受注日の（一番？）古い行
の３つだが、そのままでは元シートは（１）（２）（３）とも並び順を使えないようだし、ＶＢＡを使わざるをえないかな。
ーー
データ変更に即時反応性はあきらめる。
ＶＢＡでも判断個所（行）が何処にあるかわからないタイプの問題で、顧客名＋商品名の該当分の中間表を作らないと難しいだろう。専用データベースシステムでも使えないと、下記にならざるをえないだろう。
ソートをしておかないと、顧客名＋商品名を検索した段階で　　該当分（行）の「溜め込み」をせざるをえないから。
ーー
・元のシートでの行番号を新たな列に振り、顧客名＋商品名＋受注日（昇順）でソートしたシートを別途つくる。
・その「顧客名＋商品名」が同じ行範囲内で
Ｄ列（次回受注日）が複数存在する場合に、
・一番上（一番古い日）を見つけ、元のシートの該当行番号に色を着ける。
こういうロジックでどうかな。
それにしてもＶＢＡの技量が相当経験して無いと、自力作成は無理だろう。丸写しかな。