'変数iに1を入れる Do Whilei <= 10 '変数iが10以下の間処理を続ける Cellsi, 1) = 1 'A列のi行に1を入れる i = + 1 '変数iを1増やす Loop'Doの処理範囲はここまで End ExitDo ExitDoは、Do～Loopのループを抜けます。 指定条件になる前に、 Do～のループ処理...
FunctionStone_Reverse_Right(ByValTargetAsRange)DimiAsInteger'反対の色の石探索用のカウンタi=1Dima_row,a_colAsInteger'座標変換用変数a_row=Target.Row-3'選択セルの行を配列上の座標に変換して代入a_col=Target.Column-3'選択セルの列を配列上の座標に変換して代入DimrAsInteger'ひっくり返す用カウ...
Do While scrCtrl Is Nothing DoEvents: i = i + 1 '無限ループ防止用。作者環境では5000弱はループする。 If i > 100000 Then Err.Raise 429 '429 = ActiveXコンポーネントはオブジェクトを生成できません。 Loop 'Debug.Print i 'ループ回数確認用 '必要に応じて 'scrCtrl.SitehWnd = Excel...