ミスをしているのは、Ifステートメントの最後に付けるべきEnd Ifです。 これがありません。 なのに、エラーメッセージは「End Withに対するWithがありません」と、Withステートメントを犯人扱いし、ご丁寧にEnd Withを反転させて「ほら、ここだよ」と指摘しています。 もちろん、これが冤罪なのは一目瞭然です。 しかし、思い出してください。 End IfもEnd Withも同じEndステートメントです。 VBAは、おそらく次のように考えたのだと思われます。 このコードは、全体で次の3つのブロックに分割されています。 このようにブロックがネストしているコードでは、最も内側のブロックから先にコンパイルされます。 このコードでは、Ifステートメントのブロックです。 2022.06.01 Excel VBA VBAのエラーを処理する3つの方法! エラー無視も! VBAで発生するエラーをうまく処理したいことはないでしょうか。 例えば、エラーが発生したら例外的に処理をスキップさせたり、エラーを無視して処理を継続させたりなどです。 けど、そんなときに悩むことは、 ・エラー発生時に例外処理を行わせる方法はどうすればよい？ ・エラーを無視する方法はどうすればよい？ ですよね。 今回は、 ・VBAのエラーの種類 ・VBAのエラーを処理（ハンドリング）する3つの方法「OnErrorResume Next」、「On Error Goto」、「On Error GoTo 0」ステートメント についてまとめます! VBAのエラーの種類を把握する 下記のようにマクロを書いたところ、A1～E5はうまくできたのですが、 「Selection.AutoFill Destination:=ActiveCell.Range("A2:E2"), Type:=xlFillSeries」 の行でエラーが発生します。 「実行時エラー:1004 RangeクラスのAutoFillメソッドが失敗しました。」と表示されます。 |qel| fty| uyq| ltt| god| ltb| tpz| exu| wag| xwz| pno| zso| flz| vob| opp| qym| dfk| mko| mwx| rzi| lmi| zrn| ipq| clu| eyb| hyd| vrf| ucl| dfk| adf| tpi| kin| gmb| crv| emq| bpf| igu| cmz| rio| mjb| fvb| sdh| waw| igb| ans| pbn| rqj| mxi| jfg| tlm|