EXCEL VBA 指定した数字ごとに表示

質問

http://okwave.jp/qa/q8818467.html

上記をこちらで教えていただき、入力してENTERすると思ったとおりの表示がされるのですが、別のセルからコピーするとうまくいきません。

原因はなんでしょうか？

よろしくお願い致します。

回答No.1

keithin · ベストアンサー

正しくないデータが記入されているようなので、少し手直しする事にします

手順：
シート名タブを右クリック、コードの表示を選ぶ
現れたシートに記載されている内容を全て消去し、改めて下記をコピー貼り付ける

option base 1
private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　dim a as variant
　a = application.transpose(range("A1:A3"))　’Ａ１からＡ３に時刻を記入
　on error resume next

　for each h in application.intersect(target, range("D:D"))
　　if cells(h.row, "F") <> "○" then
　　if 1=< h.value and h.value <= 3 then　　’１から３
　　if time >= a(h.value) then
　　　cells(h.row, "F") = a(h.value)
　　end if
　　end if
　　end if
　next
end sub