シートに漏れがある場合は不合格となるように、以下のようなVBAのコードを書いてみたのですが、上手くいきません。

Visual Basic26閲覧

ベストアンサー

0

C5:C12が空白以外かつ、L9:R12が空白以外なら『合格』 それ以外なら、『不合格』という事であれば、Counta関数で判断すればいいと思います。 全部入力されているなら、データの個数が32個なので、32ならOK、それ以外ならNGという感じで。 Sub test() Dim ws1 As Worksheet Set ws1 = Worksheets("Sheet1") Dim Cnt Cnt = WorksheetFunction.CountA(ws1.Range("C9:C12", "L9:R12")) If Cnt = 32 Then ws1.Cells(21, 5) = "合格" ElseIf Cnt <> 32 Then ws1.Cells(21, 5) = "不合格" End If End Sub

ThanksImg質問者からのお礼コメント

ご丁寧に説明いただき、有難うございました。 おかげさまで無事できました。

お礼日時:7/27 13:43