0
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。コードに問題はありません。

4

2 に答える 2

3

ここには 2 つの選択肢があります。行ったようにすべてを 1 行に残しますが、削除しますend if(VBA の IF/THEN ステートメントの単一行バージョンはそれを受け入れません)。Thenまたは、キーワードの前に改行を追加し、 End If.

于 2013-11-13T03:44:18.520 に答える
1

どうやら「Then」の後に改行が必要なようです

于 2013-11-13T03:41:44.490 に答える