2020-06-20から1日間の記事一覧

多重ループからの脱出

たまに、多重ループから抜けたいとき、「どうだっけ?」と迷うことがある。 例えば、こんなとき。 Sub Test() Dim i As Variant Dim j As Variant For Each i In Array(1, 2, 3) For Each j In Array("一", "二", "三") If j = "三" Then Exit For Else Debu…