Excel VBA質問箱 IV

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

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


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

45000 / 76735

←次へ　｜　前へ→


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

ハト - 06/4/11(火) 18:06 -


	引用なし

	パスワード

▼こたつねこさん：
>▼ハトさん：
>
>みなさん、こんにちは
>
>>この比較ですとＢの四角形の中にＡの四角形が内包されるケースがひっかかりま
>>せん
>>以下の様にしてみたらどうでしょうか？
>>　　If rectB(3) < rectA(4) Or rectB(4) > rectA(3) Then
>>　　　　f = False
>>　　Else
>>　　　　f = True
>>　　End if
>>
>余計なお世話かもしれませんが・・・
>上記の条件だと、正常に判断できないと思いますよ
>
>例えば
>rectA(3)=1,rectA(4)=7
>rectB(3)=6,rectB(4)=8
>の場合
>f=True
>にならなければいけないと思うのですが
>
>rectB(3) < rectA(4)は 6<7=True
>rectB(4) > rectA(3)は 8>1=True
>True Or True=True
>
>なので
>f=False
>になりませんか？

確かにそうなんですが、
>rectA(3) = Range("G" & i) + Range("J" & i) / 2　'上
>rectA(4) = Range("G" & i) - Range("J" & i) / 2　'下
ということなんで
rectA(3) ＞ rectA(4)
rectB(3) ＞ rectB(4)
が条件なのでこの判断でいけると思います

0 hits

▼

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