Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44995 / 76735

←次へ　｜　前へ→


	【36747】Re:複数の長方形における干渉をチェック...

ハト - 06/4/12(水) 8:09 -


	引用なし

	パスワード

すみません、一部訂正です

>
>>　　　　　　Else
>>　　　　　　　　If rectB(2) >= rectA(1) Or rectB(1) <= rectA(2) Then
>>　　　　　　　　Else
>>　　　　　　　　　　MsgBox ("交差します")
>>　　　　　　　　　　Exit Sub
>このケースだと
>　　　Exit Sub
>ではありません。プログラムが終了してしまいます
>For文の場合は
>　　　Exit For
>です
>もっともこの場合は後続の処理がないので省略可能です
>
>>　　　　　　　　End If

交差が1個でもあれば、それで終了なら
　　　Exit Sub
です

全部チェックするなら
　　　Exit Sub
も
　　　Exit For
もいりません

　　　Exit For
だと　５番目に対して１０番目、１５番目と交差する四角形が複数あっても
１つめの交差（１０番目）を見つけた時点でループを抜けてしまい
６番目に対する交差をチェックしにいってしまいます。

申し訳ありませんでした

0 hits

▼

【36725】複数の長方形における干渉をチェックするマクロについて しとうと 06/4/10(月) 22:55