質問: true 'boolean形 end if という風に、全部書いてます。 まだまだ、shapeは増やす予定なので、 そうするとどうしても、長くなってしまうので、どうにかしたいのですが、思いつきません。 どなたか、教えてください。
回答: こんな感じでコードを書いたらshapeが増えても コードを変更しなくてもいいし、 コードもすっきりします。 dim shp as shape hanntei = true for each shp in shape if shp.visible then hanntei = false exit for end if next shp