If T = Empty Or SGg = Empty Or mugi = Empty Or Bgi = Empty Or xe = Empty Or _
Area = Empty Or hres = Empty Or phires = Empty Or Sgi = Empty Or _
kres = Empty Or pbari = Empty Or zi = Empty Or xf = Empty Or wf = Empty Or _
Hf = Empty Or tauyhb = Empty Or nhb = Empty Or khb = Empty Or Tsc = Empty _
Or psc = Empty Or Tsurf = Empty Or psurf = Empty Then _
MsgBox ("Provide all the missing data on 'INPUT' sheet and in field units")
Exit Sub
End If
質問: 上記のコード行に対してエラー メッセージが表示されますEnd if without block if
。コードに問題はありません。