エクセルでロットの更新

質問

専門家の人にお尋ねします。
商品が2001年8月25日に作った物が有るとします。
その時のLOTは1825XXXXで、LOT内容は左から1が（２００１年）8が（８月）25が（２５日）とします。後の４桁は連番です。１０月だとＸ　１１月だとＹ　１２月だとＺになる決まりがあります。
結果判断の内容は指定した月日以内をこえると警告（色を付ける）の指定です。
例えばセルA1に警告月4と入力し　A5にロットを入力しまするとOKならそのまま、NGなら赤色になります。ただネックなのがXYZでどうすれば月の判断が出来るのかわかりません。VBでかまわないので、解決する方法は無いでしょうか？

回答No.4

nishi6 · ベストアンサー

＞1.空白又A5のセルを削除した場合エラ―出る。　
　　　対応しました。考慮不足でした。
＞2.A5だけでは無く複数のセル（A5～A10）は可能？
　　　対応しました。範囲は変更できるよう分かりやすく書いたつもりです。
＞3.シート名を指定
　　　先ほどのコードは、この機能を使いたいシートのコードウインドウに貼り付ければいいんですが
　　　たくさんあると大変？下記はシート名を指定できるようにしてあります。ThisWorkBookに貼り付けます。

＜ThisWorkBookのコードウインドウに貼り付けます＞
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　'例　Sheet1かSheet2でなければ何もしない
　　If Not (Sh.Name = "Sheet1" Or Sh.Name = "Sheet2") Then Exit Sub
　　'単一のセルの変更のみ対象
　　If Not (Target.Rows.Count = 1 And Target.Columns.Count = 1) Then Exit Sub
　　'対象セルを消去した場合の対応
　　If Target = "" Then Target.Font.ColorIndex = xlAutomatic: Exit Sub
　　'A5からA10に含まれる場合のみ処理する
　　If Union(Range("A5:A10"), Target).Address <> Range("A5:A10").Address Then Exit Sub

　　Dim LOT As String 'LOT
　　Dim LOTnen As Integer 'LOTの年
　　Dim LOTtuki As Integer 'LOTの月
　　Dim keikokuNen As Integer '警告年
　　Dim keikokuTuki As Integer '警告月

　　On Error GoTo ErrorHandler

　　LOT = Right("00000000" & Target, 8) 'セルが数値形式の場合の対応
　　LOTnen = 2000 + Left(LOT, 1)
　　LOTtuki = InStr("123456789XYZ", Mid(LOT, 2, 1))
　　keikokuNen = Year(Now())
　　keikokuTuki = WorksheetFunction.Substitute(Range("A1"), "警告月", "")
　　'判定
　　If keikokuNen * 12 + keikokuTuki < LOTnen * 12 + LOTtuki Then
　　　　Target.Font.ColorIndex = 3 '赤
　　Else
　　　　Target.Font.ColorIndex = xlAutomatic '黒
　　End If

　　Exit Sub
ErrorHandler:
　　MsgBox "エラーです"
End Sub

お礼

アドバイス有難う御座いました。
期限を変更にした場合は更新が出来なかったは残念ですが
とても良く作ってあり感謝しております。
ポイント入れておきます。