エクセルVBA 指定したセルの合否判定について

教えてください

こういう場合はどうしたらいいでしょうか
条件　指定したセルが全て合格であれば合格　一つでも空白があれば条件付き合格　一つでも不合格があれば不合格　ただし特定のセルは判定を無視する
例
A1ーA5合格　A6ーA8空白　A9ーA11 合格
F1 合格
A1ーA5　A2のみ空白　他合格　A6ーA8空白　A9ーA11 合格
F1 条件付合格
A1ーA5　合格　A2のみ不合格　A6ーA8空白　A9ーA11 合格
F1 不合格

簡単にいうとA1からA11のセル中でA6からA8のみ空白でも判定を無視する仕様にしたいのですが
説明へたくそですいません

質問者からの補足コメント

• 

  説明不足ですいません
  A6からA8は基本空白で判定対象から外す仕様を考えております

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/06/10 15:09

• 

  判定不能で問題ありません

  No.2の回答に寄せられた補足コメントです。 補足日時：2017/06/10 16:51

No.3 ベストアンサー 回答者： tatsu99 回答日時： 2017/06/10 17:15

以下のマクロを標準モジュールへ登録してください。

Option Explicit
Public Sub 判定()
Dim hantei, val As String
Dim row As Long
Dim gokaku, kuhaku As Boolean
gokaku = False
kuhaku = False
hantei = "判定不能"
For row = 1 To 11
If row < 6 Or row > 8 Then
val = Cells(row, "A").Value
If val = "不合格" Then
Cells(1, "F").Value = "不合格"
Exit Sub
End If
If val = "" Then kuhaku = True
If val = "合格" Then gokaku = True
End If
Next
If gokaku = True Then
If kuhaku = True Then
hantei = "条件付合格"
Else
hantei = "合格"
End If
End If
Cells(1, "F").Value = hantei
End Sub

この回答へのお礼

助かりましたありがとうございました

お礼日時：2017/06/26 19:42

No.2 回答者： tatsu99 回答日時： 2017/06/10 16:28

>A6からA8は基本空白で判定対象から外す仕様を考えております

A6,A7,A8は何が設定されていても無視するれば良い訳ですね。
もし、A1~A5、A9~A11が全て空白の場合は、F1は"判定不能"で良いですか。

No.1 回答者： tatsu99 回答日時： 2017/06/10 14:38

A6に不合格があった場合は、F1不合格でよいのですか？