FunctionScoreBoard()'黒石白石数えるよう関数DimiAsLong:i=0DimjAsLong:j=0'黒石白石カウント変数初期化blackCount=0whiteCount=0Fori=0To7'stone_arr配列の中の黒石と白石の数を数えるForj=0To7Ifstone_arr(i,j)=BLACK_STONEThenblackCount=blackCount+1ElseIfstone_arr(i,j)=WHITE_STONEThenwhiteCou...
For ExitForは、For～Nextのループを抜けます。 通常For～Nextは指定回数繰り返す為に使うので、Exit Forを使う事は少ないのですが、 特定条件になった場合は、指定回数の処理を完了する前にループを抜けたい場合に使用します。 Sub 3() Dim For = 1 To 10 If Cellsi, 1) <>...
指定した回数だけ、一連のステートメントを繰り返します。 構文 カウンター=スタート終了の場合[ステップステップ] [statements] [Exit For] [statements] 次へ[counter] For…Nextステートメントの構文には、次の指定項目があります。
If A = True Then X = False Else For i = 0 To 100 If Z = 3 Then Call Hoge End if Next i End If X = True 修正後:If A = True Then X = False Exit Function End If For i = 0 To 100 If Z = 3 Then Call Hoge End if Next i X = True ...
For i = Len(dbName) To 1 Step -1 If Mid(dbName, i, 1) = "\ Then Exit For '￥だったら抜ける Next i 'C:\xxxx\yyyy\zzz.mdb --> C:\xxxx\yyyy\ にする dbShortPath = Mid(dbName, 1, i) 'ファイルの存在をチェックする ...
("設定されている条件付き書式の数は" & Target.FormatConditions.Count & "です。" _ & vbCrLf & "選択セルの最上位の条件付き書式を削除しますか?", vbYesNo ; vbQuestion) If myRetVal = vbYes Then Target.FormatConditions(1).Delete Exit Sub Else End If Else End If MsgBox "選択セル範...
Exit Function End If 'オブジェクト生存確認。未初期化ならNothing、PowerShellが終了している場合はObject '取得済みならここで抜ける If VBA.TypeName(scrCtrl) = TYPE_NAME Then Set GetScriptCtrl = scrCtrl Exit Function Else Set scrCtrl = Nothing '一応明示的に初期化 ...