Excel VBA質問箱 IV

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

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


44994 / 76732 ←次へ | 前へ→

【36745】Re:複数の長方形における干渉をチェックするマクロについて
発言  ichinose  - 06/4/11(火) 21:42 -

引用なし
パスワード
   皆さん、こんばんは。

作業列を使用した方法です。
'================================================
Sub main()
  Const sagyo = 10 'この例ではO列を作業列に使っています
  Dim rng As Range
  Dim arng As Range
  Set rng = Range(Cells(17, "e"), Cells(Rows.Count, "e").End(xlUp))
  rng.Interior.ColorIndex = xlNone
  If rng.Row >= 17 And rng.Count > 1 Then
    On Error Resume Next
    Names("rec").Delete
    Names.Add "rec", rng
    With rng
     With .Offset(0, sagyo)
       .Formula = _
        "=IF(D17=1," & _
        "if(SUMPRODUCT(" & _
        "(ABS(OFFSET(rec,0,1)-F17)<=(OFFSET(rec,0,4)+I17)/2)*" & _
        "(ABS(OFFSET(rec,0,2)-G17)<=(OFFSET(rec,0,5)+J17)/2))>1,1,""""),"""")"
       Err.Clear
       Set arng = .SpecialCells(xlCellTypeFormulas, xlNumbers)
       If Err.Number = 0 Then
        arng.Cells(1).Offset(0, -sagyo).Interior.ColorIndex = 6
        End If
       .Formula = ""
       End With
     End With
    Names("rec").Delete
    End If
End Sub

これとは別に、数式と条件付書式を使用してもちょっと仕様が違いますが、
できそうですよ!!

試してみて下さい。

2 hits

【36725】複数の長方形における干渉をチェックするマクロについて しとうと 06/4/10(月) 22:55 質問
【36728】Re:複数の長方形における干渉をチェックす... ちくたく 06/4/11(火) 10:22 発言
【36729】Re:複数の長方形における干渉をチェックす... しろうと 06/4/11(火) 10:51 発言
【36731】Re:複数の長方形における干渉をチェック... わいわい 06/4/11(火) 11:33 発言
【36733】Re:複数の長方形における干渉をチェック... ちくたく 06/4/11(火) 11:57 発言
【36738】Re:複数の長方形における干渉をチェック... ハト 06/4/11(火) 16:01 発言
【36739】Re:複数の長方形における干渉をチェック... ちくたく 06/4/11(火) 16:31 発言
【36740】Re:複数の長方形における干渉をチェック... ハト 06/4/11(火) 17:05 発言
【36747】Re:複数の長方形における干渉をチェック... ハト 06/4/12(水) 8:09 発言
【36741】Re:複数の長方形における干渉をチェック... こたつねこ 06/4/11(火) 17:41 発言
【36742】Re:複数の長方形における干渉をチェック... ハト 06/4/11(火) 18:06 発言
【36744】Re:複数の長方形における干渉をチェック... こたつねこ 06/4/11(火) 18:30 発言
【36736】Re:複数の長方形における干渉をチェックす... こたつねこ 06/4/11(火) 15:13 回答
【36745】Re:複数の長方形における干渉をチェックす... ichinose 06/4/11(火) 21:42 発言
【36746】Re:複数の長方形における干渉をチェックす... 平塚在住 06/4/11(火) 22:37 回答

44994 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free