[[20171011122014]]　『矩形の重なり位置について』（すけろく）　ページの最後に飛ぶ

『矩形の重なり位置について』（すけろく）

 以前、 [[20171005184200]] でお世話になりました。
 今回は矩形が重なった場合の重なった範囲（左下座標と右上座標）を
 取得したいのですが、考えが及びません。
 どのようにすればいいのかご教示いただけませんか？

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

[[20171005184200]]

 すみません。リンクがつきませんでした。
（すけろく） 2017/10/11(水) 12:26

 Function OLCK(X1 As Double, Y1 As Double, X2 As Double, Y2 As Double, X3 As Double, Y3 As Double, X4 As Double, Y4 As Double) As String
     Dim 左, 右, 下, 上

     If X4 < X1 Or X2 < X3 Or Y2 < Y3 Or Y4 < Y1 Then
         OLCK = "不"
      Else
         OLCK = IIf(X4 = X1 Or X2 = X3, IIf(Y2 = Y3 Or Y4 = Y1, "点", "辺"), "重")

         With Application
             左 = .Max(X1, X3)
             右 = .Min(X2, X4)
             下 = .Max(Y1, Y3)
             上 = .Min(Y2, Y4)
         End With

         OLCK = OLCK & "(" & 左 & "," & 下 & ")～(" & 右 & "," & 上 & ")"
     End If
 End Function

（半平太） 2017/10/11(水) 13:14

 半平太さん、ありがとうございます。
 無事にできました！
（すけろく） 2017/10/11(水) 14:52

コメント返信：

[ 一覧(最新更新順) ]

[[20171011122014]] 『矩形の重なり位置について』（すけろく） ページの最後に飛ぶ

[[20171011122014]]　『矩形の重なり位置について』（すけろく）　ページの最後に飛ぶ