- Excel VBA 質問スレ Part59
323 :デフォルトの名無しさん (ワッチョイ 8702-5sVJ)[sage]:2019/02/19(火) 16:06:51.67 ID:XJA9DtkM0 - 四角の領域を表す構造体にRECTというのがありますが、領域が10個あってしかも定数です
その中にあるポイントがあるかどうかを判断するのに、 PtInRectを使いますが、10個のRECT領域をどうやって 定義するのか考えています Dim rect1 as RECT, rect2 as RECT ,,,,, rect10 as RECT とやって、これらに定数を代入するときにいちいち rect1.Top = 10 rect1.Left =10 --- rect10.Bottom = 1000 rect10.Right = 1970 とかやってたら大変です。 Cとかなら rect1 = CRect( 10,10,100,100) って出来ますが、VBAでは出来ませんか。 またやりたいのは、PtInRectなので、簡単に if PtInRect( CRect( 10,10,100,100), x,y) <> 0 then みたいにしたいのですが、どうしたら一番スマートに出来るでしょう?
|