科目によって処理を変えたい

エクセル2003を使っています。

Ｆ列に科目名が入っています。
その科目名によってＭ列の値を見て、Ｎ列に返す値が変わってきます。
その処理を2行目から最下行迄、繰り返し処理をしたいと思っています。

例えば、2行目のＦ列が数学、Ｍ列が100と入ってたとします。
数学の場合、Ｍ列の値が179以下なら、Ｎ列は空白で180以上なら「期限切れ」とＮ列に表示させたいと思います。
この場合、Ｍ列が100なのでＮ列は空白にしたいと思います。

次に3行目が国語で、Ｍ列が377とします。
国語の場合、Ｍ列が364以下ならＮ列は空白で、365以上なら「期限切れ」とＮ列に表示させたいと思います。
この場合、Ｍ列が377なので、Ｎ列は期限切れにしたいと思います。

このようなことをＶＢＡでしたいと思います。
どうすれば良いでしょうか？

よろしくお願いします。

No.1 回答者： KURUMITO 回答日時： 2009/07/01 14:43

ＶＢＡにする必要は全くないように思います。

次のようにすることで比較的容易にできますね。
はじめにデータベースとして例えばＰ2セルに数学と入力し、Ｑ2セルには180と入力します。Ｐ3セルには国語と入力し、Ｑ3セルには365と入力します。以下の行についても科目ごとに入力します。
その上でＮ2セルには次の式を入力し下方にオートフィルドラッグすればよいでしょう。
=IF(M2="","",IF(M2<VLOOKUP(F2,P:Q,2,FALSE),"","期限切れ"))

No.2 ベストアンサー 回答者： tom04 回答日時： 2009/07/01 21:25

こんばんは！

参考になるかどうか分かりませんが・・・

科目数がいくつあるか分からないので
↓の画像のように表を作ってみました。
（数学と国語だけならIF関数で対応できるとおもいますが・・・）

Sheet2のA～C列は空白と期限切れの境界値を入力しておきます。
（実際はC列だけでOKですが、理解しやすいように範囲を表示してみました）
尚、最大値がいくつになるか分からないので、とりあえず1000までのデータとしています。

そして、Sheet1の
N2セル　=IF(INDEX(Sheet2!$D$2:$G$4,MATCH(M2,Sheet2!$C$2:$C$4,-1),MATCH(F2,Sheet2!$D$1:$G$1,0))=0,"",INDEX(Sheet2!$D$2:$G$4,MATCH(M2,Sheet2!$C$2:$C$4,-1),MATCH(F2,Sheet2!$D$1:$G$1,0)))

としてオートフィルで下へコピーします。
これで希望に近い形にならないでしょうか？

以上、お役に立てれば幸いですが、
的外れの回答なら無視してくださいね。m(__)m

No.3 回答者： hige_082 回答日時： 2009/07/03 00:38

マクロです

Sub test()
Dim 科目名 As String
Dim M列 As Integer
Dim N列 As String
Dim i As Long
For i = 2 To Range("F65536").End(xlUp).Row
科目名 = Cells(i, 6).Value
M列 = Cells(i, 13).Value
Select Case 科目名
Case "数学"
If M列 <= 179 Then
N列 = ""
Else
N列 = "期限切れ"
End If
Case "国語"
If M列 <= 364 Then
N列 = ""
Else
N列 = "期限切れ"
End If
End Select
Cells(i, 14).Value = N列
Next i
End Sub

参考程度に